annotate src/w32.c @ 103050:3de4425fbae5

Update documentation status.
author Chong Yidong <cyd@stupidchicken.com>
date Wed, 22 Apr 2009 04:22:20 +0000
parents 06ca3efb355b
children 3e06f0e66062
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16867
diff changeset
1 /* Utility and Unix shadow routines for GNU Emacs on the Microsoft W32 API.
96462
c74d39c72729 Spelling fix.
Glenn Morris <rgm@gnu.org>
parents: 96376
diff changeset
2 Copyright (C) 1994, 1995, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
100951
e038c1a8307c Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 100885
diff changeset
3 2007, 2008, 2009 Free Software Foundation, Inc.
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 13932
diff changeset
5 This file is part of GNU Emacs.
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94816
diff changeset
7 GNU Emacs is free software: you can redistribute it and/or modify
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 13932
diff changeset
8 it under the terms of the GNU General Public License as published by
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94816
diff changeset
9 the Free Software Foundation, either version 3 of the License, or
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94816
diff changeset
10 (at your option) any later version.
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 13932
diff changeset
12 GNU Emacs is distributed in the hope that it will be useful,
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 13932
diff changeset
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 13932
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 13932
diff changeset
15 GNU General Public License for more details.
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 13932
diff changeset
17 You should have received a copy of the GNU General Public License
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94816
diff changeset
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94816
diff changeset
19
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94816
diff changeset
20 /*
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 Geoff Voelker (voelker@cs.washington.edu) 7-29-94
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 */
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
23 #include <stddef.h> /* for offsetof */
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24 #include <stdlib.h>
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25 #include <stdio.h>
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26 #include <io.h>
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
27 #include <errno.h>
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28 #include <fcntl.h>
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29 #include <ctype.h>
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
30 #include <signal.h>
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
31 #include <sys/file.h>
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
32 #include <sys/time.h>
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
33 #include <sys/utime.h>
76098
9ad6c99cdc71 (stat, get_long_basename, is_unc_volume): Use _mbspbrk instead of strpbrk.
Eli Zaretskii <eliz@gnu.org>
parents: 75348
diff changeset
34 #include <mbstring.h> /* for _mbspbrk */
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
35 #include <math.h>
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
36
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
37 /* must include CRT headers *before* config.h */
42469
64341c22fb4c Include <config.h>.
Pavel Janík <Pavel@Janik.cz>
parents: 42192
diff changeset
38
64341c22fb4c Include <config.h>.
Pavel Janík <Pavel@Janik.cz>
parents: 42192
diff changeset
39 #ifdef HAVE_CONFIG_H
64341c22fb4c Include <config.h>.
Pavel Janík <Pavel@Janik.cz>
parents: 42192
diff changeset
40 #include <config.h>
64341c22fb4c Include <config.h>.
Pavel Janík <Pavel@Janik.cz>
parents: 42192
diff changeset
41 #endif
64341c22fb4c Include <config.h>.
Pavel Janík <Pavel@Janik.cz>
parents: 42192
diff changeset
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
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
66 #include "lisp.h"
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
67
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68 #include <pwd.h>
53123
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
69 #include <grp.h>
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70
31350
f5c37cece73f (_ANONYMOUS_UNION) [__GNUC__]: New define
Andrew Innes <andrewi@gnu.org>
parents: 31106
diff changeset
71 #ifdef __GNUC__
f5c37cece73f (_ANONYMOUS_UNION) [__GNUC__]: New define
Andrew Innes <andrewi@gnu.org>
parents: 31106
diff changeset
72 #define _ANONYMOUS_UNION
f5c37cece73f (_ANONYMOUS_UNION) [__GNUC__]: New define
Andrew Innes <andrewi@gnu.org>
parents: 31106
diff changeset
73 #define _ANONYMOUS_STRUCT
f5c37cece73f (_ANONYMOUS_UNION) [__GNUC__]: New define
Andrew Innes <andrewi@gnu.org>
parents: 31106
diff changeset
74 #endif
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
75 #include <windows.h>
97486
2c195017488c (_MEMORY_STATUS_EX, MEMORY_STATUS_EX, LPMEMORY_STATUS_EX): Rename from
Eli Zaretskii <eliz@gnu.org>
parents: 97372
diff changeset
76 /* Some versions of compiler define MEMORYSTATUSEX, some don't, so we
2c195017488c (_MEMORY_STATUS_EX, MEMORY_STATUS_EX, LPMEMORY_STATUS_EX): Rename from
Eli Zaretskii <eliz@gnu.org>
parents: 97372
diff changeset
77 use a different name to avoid compilation problems. */
2c195017488c (_MEMORY_STATUS_EX, MEMORY_STATUS_EX, LPMEMORY_STATUS_EX): Rename from
Eli Zaretskii <eliz@gnu.org>
parents: 97372
diff changeset
78 typedef struct _MEMORY_STATUS_EX {
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
79 DWORD dwLength;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
80 DWORD dwMemoryLoad;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
81 DWORDLONG ullTotalPhys;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
82 DWORDLONG ullAvailPhys;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
83 DWORDLONG ullTotalPageFile;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
84 DWORDLONG ullAvailPageFile;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
85 DWORDLONG ullTotalVirtual;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
86 DWORDLONG ullAvailVirtual;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
87 DWORDLONG ullAvailExtendedVirtual;
97486
2c195017488c (_MEMORY_STATUS_EX, MEMORY_STATUS_EX, LPMEMORY_STATUS_EX): Rename from
Eli Zaretskii <eliz@gnu.org>
parents: 97372
diff changeset
88 } MEMORY_STATUS_EX,*LPMEMORY_STATUS_EX;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
89
91878
a5f49adf9035 (init_user_info): Use TOKEN_USER and TOKEN_PRIMARY_GROUP instead of
Eli Zaretskii <eliz@gnu.org>
parents: 88048
diff changeset
90 #include <lmcons.h>
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
91 #include <shlobj.h>
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
92
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
93 #include <tlhelp32.h>
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
94 #include <psapi.h>
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
95 /* This either is not in psapi.h or guarded by higher value of
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
96 _WIN32_WINNT than what we use. */
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
97 typedef struct _PROCESS_MEMORY_COUNTERS_EX {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
98 DWORD cb;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
99 DWORD PageFaultCount;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
100 DWORD PeakWorkingSetSize;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
101 DWORD WorkingSetSize;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
102 DWORD QuotaPeakPagedPoolUsage;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
103 DWORD QuotaPagedPoolUsage;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
104 DWORD QuotaPeakNonPagedPoolUsage;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
105 DWORD QuotaNonPagedPoolUsage;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
106 DWORD PagefileUsage;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
107 DWORD PeakPagefileUsage;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
108 DWORD PrivateUsage;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
109 } PROCESS_MEMORY_COUNTERS_EX,*PPROCESS_MEMORY_COUNTERS_EX;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
110
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
111 #ifdef HAVE_SOCKETS /* TCP connection support, if kernel can do it */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
112 #include <sys/socket.h>
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
113 #undef socket
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
114 #undef bind
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
115 #undef connect
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
116 #undef htons
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
117 #undef ntohs
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
118 #undef inet_addr
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
119 #undef gethostname
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
120 #undef gethostbyname
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
121 #undef getservbyname
45090
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
122 #undef getpeername
18725
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
123 #undef shutdown
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
124 #undef setsockopt
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
125 #undef listen
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
126 #undef getsockname
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
127 #undef accept
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
128 #undef recvfrom
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
129 #undef sendto
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
130 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
131
16593
4ed80eda6fac Use new names for w32 files
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
132 #include "w32.h"
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
133 #include "ndir.h"
16593
4ed80eda6fac Use new names for w32 files
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
134 #include "w32heap.h"
35286
fcd8120b294a (init_environment, sys_shutdown, sys_pipe): Remove unused
Jason Rumney <jasonr@gnu.org>
parents: 34696
diff changeset
135 #include "systime.h"
95277
3df8e58fdc7f Include dispextern.h.
Eli Zaretskii <eliz@gnu.org>
parents: 95217
diff changeset
136 #include "dispextern.h" /* for xstrcasecmp */
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
137 #include "coding.h" /* for Vlocale_coding_system */
35286
fcd8120b294a (init_environment, sys_shutdown, sys_pipe): Remove unused
Jason Rumney <jasonr@gnu.org>
parents: 34696
diff changeset
138
95917
c46e112bded0 Comment fix for rms.
Glenn Morris <rgm@gnu.org>
parents: 95884
diff changeset
139 /* For serial_configure and serial_open. */
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
140 #include "process.h"
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
141 /* From process.c */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
142 extern Lisp_Object QCport, QCspeed, QCprocess;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
143 extern Lisp_Object QCbytesize, QCstopbits, QCparity, Qodd, Qeven;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
144 extern Lisp_Object QCflowcontrol, Qhw, Qsw, QCsummary;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
145
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
146 typedef HRESULT (WINAPI * ShGetFolderPath_fn)
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
147 (IN HWND, IN int, IN HANDLE, IN DWORD, OUT char *);
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
148
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
149 void globals_of_w32 ();
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
150 static DWORD get_rid (PSID);
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
151
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
152 extern Lisp_Object Vw32_downcase_file_names;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
153 extern Lisp_Object Vw32_generate_fake_inodes;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
154 extern Lisp_Object Vw32_get_true_file_attributes;
80484
796bbedc63b1 (stat): When Vw32_get_true_file_attributes is Qlocal, get
Jason Rumney <jasonr@gnu.org>
parents: 80376
diff changeset
155 /* Defined in process.c for its own purpose. */
796bbedc63b1 (stat): When Vw32_get_true_file_attributes is Qlocal, get
Jason Rumney <jasonr@gnu.org>
parents: 80376
diff changeset
156 extern Lisp_Object Qlocal;
796bbedc63b1 (stat): When Vw32_get_true_file_attributes is Qlocal, get
Jason Rumney <jasonr@gnu.org>
parents: 80376
diff changeset
157
55645
5b3f2477d17b Rename w32_num_mouse_buttons from Vw32_num_mouse_buttons.
Jason Rumney <jasonr@gnu.org>
parents: 55643
diff changeset
158 extern int w32_num_mouse_buttons;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
159
34696
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
160
92124
0249dbc614f0 (globals_of_w32): Add initializations for g_b_init_get_sid_sub_authority and
Eli Zaretskii <eliz@gnu.org>
parents: 91878
diff changeset
161 /* Initialization states.
0249dbc614f0 (globals_of_w32): Add initializations for g_b_init_get_sid_sub_authority and
Eli Zaretskii <eliz@gnu.org>
parents: 91878
diff changeset
162
0249dbc614f0 (globals_of_w32): Add initializations for g_b_init_get_sid_sub_authority and
Eli Zaretskii <eliz@gnu.org>
parents: 91878
diff changeset
163 WARNING: If you add any more such variables for additional APIs,
0249dbc614f0 (globals_of_w32): Add initializations for g_b_init_get_sid_sub_authority and
Eli Zaretskii <eliz@gnu.org>
parents: 91878
diff changeset
164 you MUST add initialization for them to globals_of_w32
0249dbc614f0 (globals_of_w32): Add initializations for g_b_init_get_sid_sub_authority and
Eli Zaretskii <eliz@gnu.org>
parents: 91878
diff changeset
165 below. This is because these variables might get set
0249dbc614f0 (globals_of_w32): Add initializations for g_b_init_get_sid_sub_authority and
Eli Zaretskii <eliz@gnu.org>
parents: 91878
diff changeset
166 to non-NULL values during dumping, but the dumped Emacs
0249dbc614f0 (globals_of_w32): Add initializations for g_b_init_get_sid_sub_authority and
Eli Zaretskii <eliz@gnu.org>
parents: 91878
diff changeset
167 cannot reuse those values, because it could be run on a
0249dbc614f0 (globals_of_w32): Add initializations for g_b_init_get_sid_sub_authority and
Eli Zaretskii <eliz@gnu.org>
parents: 91878
diff changeset
168 different version of the OS, where API addresses are
0249dbc614f0 (globals_of_w32): Add initializations for g_b_init_get_sid_sub_authority and
Eli Zaretskii <eliz@gnu.org>
parents: 91878
diff changeset
169 different. */
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
170 static BOOL g_b_init_is_windows_9x;
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
171 static BOOL g_b_init_open_process_token;
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
172 static BOOL g_b_init_get_token_information;
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
173 static BOOL g_b_init_lookup_account_sid;
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
174 static BOOL g_b_init_get_sid_identifier_authority;
87990
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
175 static BOOL g_b_init_get_sid_sub_authority;
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
176 static BOOL g_b_init_get_sid_sub_authority_count;
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
177 static BOOL g_b_init_get_file_security;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
178 static BOOL g_b_init_get_security_descriptor_owner;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
179 static BOOL g_b_init_get_security_descriptor_group;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
180 static BOOL g_b_init_is_valid_sid;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
181 static BOOL g_b_init_create_toolhelp32_snapshot;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
182 static BOOL g_b_init_process32_first;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
183 static BOOL g_b_init_process32_next;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
184 static BOOL g_b_init_open_thread_token;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
185 static BOOL g_b_init_impersonate_self;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
186 static BOOL g_b_init_revert_to_self;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
187 static BOOL g_b_init_get_process_memory_info;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
188 static BOOL g_b_init_get_process_working_set_size;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
189 static BOOL g_b_init_global_memory_status;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
190 static BOOL g_b_init_global_memory_status_ex;
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
191 static BOOL g_b_init_get_length_sid;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
192 static BOOL g_b_init_equal_sid;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
193 static BOOL g_b_init_copy_sid;
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
194
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
195 /*
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
196 BEGIN: Wrapper functions around OpenProcessToken
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
197 and other functions in advapi32.dll that are only
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
198 supported in Windows NT / 2k / XP
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
199 */
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
200 /* ** Function pointer typedefs ** */
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
201 typedef BOOL (WINAPI * OpenProcessToken_Proc) (
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
202 HANDLE ProcessHandle,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
203 DWORD DesiredAccess,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
204 PHANDLE TokenHandle);
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
205 typedef BOOL (WINAPI * GetTokenInformation_Proc) (
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
206 HANDLE TokenHandle,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
207 TOKEN_INFORMATION_CLASS TokenInformationClass,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
208 LPVOID TokenInformation,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
209 DWORD TokenInformationLength,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
210 PDWORD ReturnLength);
81421
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
211 typedef BOOL (WINAPI * GetProcessTimes_Proc) (
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
212 HANDLE process_handle,
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
213 LPFILETIME creation_time,
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
214 LPFILETIME exit_time,
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
215 LPFILETIME kernel_time,
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
216 LPFILETIME user_time);
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
217
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
218 GetProcessTimes_Proc get_process_times_fn = NULL;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
219
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
220 #ifdef _UNICODE
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
221 const char * const LookupAccountSid_Name = "LookupAccountSidW";
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
222 const char * const GetFileSecurity_Name = "GetFileSecurityW";
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
223 #else
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
224 const char * const LookupAccountSid_Name = "LookupAccountSidA";
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
225 const char * const GetFileSecurity_Name = "GetFileSecurityA";
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
226 #endif
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
227 typedef BOOL (WINAPI * LookupAccountSid_Proc) (
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
228 LPCTSTR lpSystemName,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
229 PSID Sid,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
230 LPTSTR Name,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
231 LPDWORD cbName,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
232 LPTSTR DomainName,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
233 LPDWORD cbDomainName,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
234 PSID_NAME_USE peUse);
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
235 typedef PSID_IDENTIFIER_AUTHORITY (WINAPI * GetSidIdentifierAuthority_Proc) (
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
236 PSID pSid);
87990
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
237 typedef PDWORD (WINAPI * GetSidSubAuthority_Proc) (
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
238 PSID pSid,
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
239 DWORD n);
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
240 typedef PUCHAR (WINAPI * GetSidSubAuthorityCount_Proc) (
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
241 PSID pSid);
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
242 typedef BOOL (WINAPI * GetFileSecurity_Proc) (
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
243 LPCTSTR lpFileName,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
244 SECURITY_INFORMATION RequestedInformation,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
245 PSECURITY_DESCRIPTOR pSecurityDescriptor,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
246 DWORD nLength,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
247 LPDWORD lpnLengthNeeded);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
248 typedef BOOL (WINAPI * GetSecurityDescriptorOwner_Proc) (
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
249 PSECURITY_DESCRIPTOR pSecurityDescriptor,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
250 PSID *pOwner,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
251 LPBOOL lpbOwnerDefaulted);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
252 typedef BOOL (WINAPI * GetSecurityDescriptorGroup_Proc) (
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
253 PSECURITY_DESCRIPTOR pSecurityDescriptor,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
254 PSID *pGroup,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
255 LPBOOL lpbGroupDefaulted);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
256 typedef BOOL (WINAPI * IsValidSid_Proc) (
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
257 PSID sid);
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
258 typedef HANDLE (WINAPI * CreateToolhelp32Snapshot_Proc) (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
259 DWORD dwFlags,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
260 DWORD th32ProcessID);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
261 typedef BOOL (WINAPI * Process32First_Proc) (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
262 HANDLE hSnapshot,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
263 LPPROCESSENTRY32 lppe);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
264 typedef BOOL (WINAPI * Process32Next_Proc) (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
265 HANDLE hSnapshot,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
266 LPPROCESSENTRY32 lppe);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
267 typedef BOOL (WINAPI * OpenThreadToken_Proc) (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
268 HANDLE ThreadHandle,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
269 DWORD DesiredAccess,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
270 BOOL OpenAsSelf,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
271 PHANDLE TokenHandle);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
272 typedef BOOL (WINAPI * ImpersonateSelf_Proc) (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
273 SECURITY_IMPERSONATION_LEVEL ImpersonationLevel);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
274 typedef BOOL (WINAPI * RevertToSelf_Proc) (void);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
275 typedef BOOL (WINAPI * GetProcessMemoryInfo_Proc) (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
276 HANDLE Process,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
277 PPROCESS_MEMORY_COUNTERS ppsmemCounters,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
278 DWORD cb);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
279 typedef BOOL (WINAPI * GetProcessWorkingSetSize_Proc) (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
280 HANDLE hProcess,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
281 DWORD * lpMinimumWorkingSetSize,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
282 DWORD * lpMaximumWorkingSetSize);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
283 typedef BOOL (WINAPI * GlobalMemoryStatus_Proc) (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
284 LPMEMORYSTATUS lpBuffer);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
285 typedef BOOL (WINAPI * GlobalMemoryStatusEx_Proc) (
97486
2c195017488c (_MEMORY_STATUS_EX, MEMORY_STATUS_EX, LPMEMORY_STATUS_EX): Rename from
Eli Zaretskii <eliz@gnu.org>
parents: 97372
diff changeset
286 LPMEMORY_STATUS_EX lpBuffer);
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
287 typedef BOOL (WINAPI * CopySid_Proc) (
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
288 DWORD nDestinationSidLength,
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
289 PSID pDestinationSid,
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
290 PSID pSourceSid);
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
291 typedef BOOL (WINAPI * EqualSid_Proc) (
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
292 PSID pSid1,
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
293 PSID pSid2);
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
294 typedef DWORD (WINAPI * GetLengthSid_Proc) (
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
295 PSID pSid);
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
296
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
297
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
298
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
299 /* ** A utility function ** */
74947
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
300 static BOOL
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
301 is_windows_9x ()
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
302 {
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
303 static BOOL s_b_ret=0;
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
304 OSVERSIONINFO os_ver;
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
305 if (g_b_init_is_windows_9x == 0)
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
306 {
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
307 g_b_init_is_windows_9x = 1;
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
308 ZeroMemory(&os_ver, sizeof(OSVERSIONINFO));
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
309 os_ver.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
310 if (GetVersionEx (&os_ver))
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
311 {
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
312 s_b_ret = (os_ver.dwPlatformId == VER_PLATFORM_WIN32_WINDOWS);
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
313 }
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
314 }
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
315 return s_b_ret;
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
316 }
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
317
81421
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
318 /* Get total user and system times for get-internal-run-time.
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
319 Returns a list of three integers if the times are provided by the OS
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
320 (NT derivatives), otherwise it returns the result of current-time. */
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
321 Lisp_Object
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
322 w32_get_internal_run_time ()
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
323 {
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
324 if (get_process_times_fn)
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
325 {
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
326 FILETIME create, exit, kernel, user;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
327 HANDLE proc = GetCurrentProcess();
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
328 if ((*get_process_times_fn) (proc, &create, &exit, &kernel, &user))
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
329 {
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
330 LARGE_INTEGER user_int, kernel_int, total;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
331 int microseconds;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
332 user_int.LowPart = user.dwLowDateTime;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
333 user_int.HighPart = user.dwHighDateTime;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
334 kernel_int.LowPart = kernel.dwLowDateTime;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
335 kernel_int.HighPart = kernel.dwHighDateTime;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
336 total.QuadPart = user_int.QuadPart + kernel_int.QuadPart;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
337 /* FILETIME is 100 nanosecond increments, Emacs only wants
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
338 microsecond resolution. */
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
339 total.QuadPart /= 10;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
340 microseconds = total.QuadPart % 1000000;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
341 total.QuadPart /= 1000000;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
342
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
343 /* Sanity check to make sure we can represent the result. */
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
344 if (total.HighPart == 0)
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
345 {
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
346 int secs = total.LowPart;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
347
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
348 return list3 (make_number ((secs >> 16) & 0xffff),
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
349 make_number (secs & 0xffff),
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
350 make_number (microseconds));
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
351 }
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
352 }
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
353 }
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
354
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
355 return Fcurrent_time ();
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
356 }
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
357
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
358 /* ** The wrapper functions ** */
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
359
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
360 BOOL WINAPI open_process_token (
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
361 HANDLE ProcessHandle,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
362 DWORD DesiredAccess,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
363 PHANDLE TokenHandle)
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
364 {
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
365 static OpenProcessToken_Proc s_pfn_Open_Process_Token = NULL;
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
366 HMODULE hm_advapi32 = NULL;
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
367 if (is_windows_9x () == TRUE)
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
368 {
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
369 return FALSE;
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
370 }
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
371 if (g_b_init_open_process_token == 0)
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
372 {
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
373 g_b_init_open_process_token = 1;
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
374 hm_advapi32 = LoadLibrary ("Advapi32.dll");
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
375 s_pfn_Open_Process_Token =
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
376 (OpenProcessToken_Proc) GetProcAddress (hm_advapi32, "OpenProcessToken");
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
377 }
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
378 if (s_pfn_Open_Process_Token == NULL)
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
379 {
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
380 return FALSE;
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
381 }
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
382 return (
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
383 s_pfn_Open_Process_Token (
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
384 ProcessHandle,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
385 DesiredAccess,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
386 TokenHandle)
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
387 );
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
388 }
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
389
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
390 BOOL WINAPI get_token_information (
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
391 HANDLE TokenHandle,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
392 TOKEN_INFORMATION_CLASS TokenInformationClass,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
393 LPVOID TokenInformation,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
394 DWORD TokenInformationLength,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
395 PDWORD ReturnLength)
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
396 {
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
397 static GetTokenInformation_Proc s_pfn_Get_Token_Information = NULL;
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
398 HMODULE hm_advapi32 = NULL;
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
399 if (is_windows_9x () == TRUE)
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
400 {
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
401 return FALSE;
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
402 }
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
403 if (g_b_init_get_token_information == 0)
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
404 {
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
405 g_b_init_get_token_information = 1;
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
406 hm_advapi32 = LoadLibrary ("Advapi32.dll");
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
407 s_pfn_Get_Token_Information =
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
408 (GetTokenInformation_Proc) GetProcAddress (hm_advapi32, "GetTokenInformation");
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
409 }
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
410 if (s_pfn_Get_Token_Information == NULL)
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
411 {
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
412 return FALSE;
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
413 }
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
414 return (
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
415 s_pfn_Get_Token_Information (
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
416 TokenHandle,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
417 TokenInformationClass,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
418 TokenInformation,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
419 TokenInformationLength,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
420 ReturnLength)
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
421 );
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
422 }
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
423
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
424 BOOL WINAPI lookup_account_sid (
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
425 LPCTSTR lpSystemName,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
426 PSID Sid,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
427 LPTSTR Name,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
428 LPDWORD cbName,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
429 LPTSTR DomainName,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
430 LPDWORD cbDomainName,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
431 PSID_NAME_USE peUse)
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
432 {
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
433 static LookupAccountSid_Proc s_pfn_Lookup_Account_Sid = NULL;
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
434 HMODULE hm_advapi32 = NULL;
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
435 if (is_windows_9x () == TRUE)
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
436 {
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
437 return FALSE;
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
438 }
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
439 if (g_b_init_lookup_account_sid == 0)
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
440 {
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
441 g_b_init_lookup_account_sid = 1;
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
442 hm_advapi32 = LoadLibrary ("Advapi32.dll");
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
443 s_pfn_Lookup_Account_Sid =
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
444 (LookupAccountSid_Proc) GetProcAddress (hm_advapi32, LookupAccountSid_Name);
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
445 }
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
446 if (s_pfn_Lookup_Account_Sid == NULL)
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
447 {
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
448 return FALSE;
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
449 }
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
450 return (
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
451 s_pfn_Lookup_Account_Sid (
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
452 lpSystemName,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
453 Sid,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
454 Name,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
455 cbName,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
456 DomainName,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
457 cbDomainName,
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
458 peUse)
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
459 );
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
460 }
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
461
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
462 PSID_IDENTIFIER_AUTHORITY WINAPI get_sid_identifier_authority (
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
463 PSID pSid)
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
464 {
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
465 static GetSidIdentifierAuthority_Proc s_pfn_Get_Sid_Identifier_Authority = NULL;
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
466 HMODULE hm_advapi32 = NULL;
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
467 if (is_windows_9x () == TRUE)
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
468 {
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
469 return NULL;
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
470 }
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
471 if (g_b_init_get_sid_identifier_authority == 0)
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
472 {
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
473 g_b_init_get_sid_identifier_authority = 1;
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
474 hm_advapi32 = LoadLibrary ("Advapi32.dll");
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
475 s_pfn_Get_Sid_Identifier_Authority =
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
476 (GetSidIdentifierAuthority_Proc) GetProcAddress (
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
477 hm_advapi32, "GetSidIdentifierAuthority");
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
478 }
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
479 if (s_pfn_Get_Sid_Identifier_Authority == NULL)
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
480 {
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
481 return NULL;
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
482 }
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
483 return (s_pfn_Get_Sid_Identifier_Authority (pSid));
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
484 }
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
485
87990
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
486 PDWORD WINAPI get_sid_sub_authority (
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
487 PSID pSid,
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
488 DWORD n)
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
489 {
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
490 static GetSidSubAuthority_Proc s_pfn_Get_Sid_Sub_Authority = NULL;
87998
3ef9b6e3d2fa (get_sid_sub_authority, get_sid_sub_authority_count): Fix return values
Eli Zaretskii <eliz@gnu.org>
parents: 87995
diff changeset
491 static DWORD zero = 0U;
87990
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
492 HMODULE hm_advapi32 = NULL;
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
493 if (is_windows_9x () == TRUE)
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
494 {
87998
3ef9b6e3d2fa (get_sid_sub_authority, get_sid_sub_authority_count): Fix return values
Eli Zaretskii <eliz@gnu.org>
parents: 87995
diff changeset
495 return &zero;
87990
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
496 }
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
497 if (g_b_init_get_sid_sub_authority == 0)
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
498 {
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
499 g_b_init_get_sid_sub_authority = 1;
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
500 hm_advapi32 = LoadLibrary ("Advapi32.dll");
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
501 s_pfn_Get_Sid_Sub_Authority =
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
502 (GetSidSubAuthority_Proc) GetProcAddress (
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
503 hm_advapi32, "GetSidSubAuthority");
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
504 }
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
505 if (s_pfn_Get_Sid_Sub_Authority == NULL)
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
506 {
87998
3ef9b6e3d2fa (get_sid_sub_authority, get_sid_sub_authority_count): Fix return values
Eli Zaretskii <eliz@gnu.org>
parents: 87995
diff changeset
507 return &zero;
87990
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
508 }
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
509 return (s_pfn_Get_Sid_Sub_Authority (pSid, n));
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
510 }
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
511
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
512 PUCHAR WINAPI get_sid_sub_authority_count (
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
513 PSID pSid)
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
514 {
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
515 static GetSidSubAuthorityCount_Proc s_pfn_Get_Sid_Sub_Authority_Count = NULL;
87998
3ef9b6e3d2fa (get_sid_sub_authority, get_sid_sub_authority_count): Fix return values
Eli Zaretskii <eliz@gnu.org>
parents: 87995
diff changeset
516 static UCHAR zero = 0U;
87990
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
517 HMODULE hm_advapi32 = NULL;
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
518 if (is_windows_9x () == TRUE)
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
519 {
87998
3ef9b6e3d2fa (get_sid_sub_authority, get_sid_sub_authority_count): Fix return values
Eli Zaretskii <eliz@gnu.org>
parents: 87995
diff changeset
520 return &zero;
87990
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
521 }
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
522 if (g_b_init_get_sid_sub_authority_count == 0)
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
523 {
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
524 g_b_init_get_sid_sub_authority_count = 1;
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
525 hm_advapi32 = LoadLibrary ("Advapi32.dll");
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
526 s_pfn_Get_Sid_Sub_Authority_Count =
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
527 (GetSidSubAuthorityCount_Proc) GetProcAddress (
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
528 hm_advapi32, "GetSidSubAuthorityCount");
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
529 }
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
530 if (s_pfn_Get_Sid_Sub_Authority_Count == NULL)
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
531 {
87998
3ef9b6e3d2fa (get_sid_sub_authority, get_sid_sub_authority_count): Fix return values
Eli Zaretskii <eliz@gnu.org>
parents: 87995
diff changeset
532 return &zero;
87990
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
533 }
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
534 return (s_pfn_Get_Sid_Sub_Authority_Count (pSid));
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
535 }
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
536
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
537 BOOL WINAPI get_file_security (
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
538 LPCTSTR lpFileName,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
539 SECURITY_INFORMATION RequestedInformation,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
540 PSECURITY_DESCRIPTOR pSecurityDescriptor,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
541 DWORD nLength,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
542 LPDWORD lpnLengthNeeded)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
543 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
544 static GetFileSecurity_Proc s_pfn_Get_File_Security = NULL;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
545 HMODULE hm_advapi32 = NULL;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
546 if (is_windows_9x () == TRUE)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
547 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
548 return FALSE;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
549 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
550 if (g_b_init_get_file_security == 0)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
551 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
552 g_b_init_get_file_security = 1;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
553 hm_advapi32 = LoadLibrary ("Advapi32.dll");
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
554 s_pfn_Get_File_Security =
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
555 (GetFileSecurity_Proc) GetProcAddress (
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
556 hm_advapi32, GetFileSecurity_Name);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
557 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
558 if (s_pfn_Get_File_Security == NULL)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
559 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
560 return FALSE;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
561 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
562 return (s_pfn_Get_File_Security (lpFileName, RequestedInformation,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
563 pSecurityDescriptor, nLength,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
564 lpnLengthNeeded));
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
565 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
566
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
567 BOOL WINAPI get_security_descriptor_owner (
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
568 PSECURITY_DESCRIPTOR pSecurityDescriptor,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
569 PSID *pOwner,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
570 LPBOOL lpbOwnerDefaulted)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
571 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
572 static GetSecurityDescriptorOwner_Proc s_pfn_Get_Security_Descriptor_Owner = NULL;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
573 HMODULE hm_advapi32 = NULL;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
574 if (is_windows_9x () == TRUE)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
575 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
576 return FALSE;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
577 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
578 if (g_b_init_get_security_descriptor_owner == 0)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
579 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
580 g_b_init_get_security_descriptor_owner = 1;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
581 hm_advapi32 = LoadLibrary ("Advapi32.dll");
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
582 s_pfn_Get_Security_Descriptor_Owner =
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
583 (GetSecurityDescriptorOwner_Proc) GetProcAddress (
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
584 hm_advapi32, "GetSecurityDescriptorOwner");
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
585 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
586 if (s_pfn_Get_Security_Descriptor_Owner == NULL)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
587 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
588 return FALSE;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
589 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
590 return (s_pfn_Get_Security_Descriptor_Owner (pSecurityDescriptor, pOwner,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
591 lpbOwnerDefaulted));
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
592 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
593
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
594 BOOL WINAPI get_security_descriptor_group (
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
595 PSECURITY_DESCRIPTOR pSecurityDescriptor,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
596 PSID *pGroup,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
597 LPBOOL lpbGroupDefaulted)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
598 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
599 static GetSecurityDescriptorGroup_Proc s_pfn_Get_Security_Descriptor_Group = NULL;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
600 HMODULE hm_advapi32 = NULL;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
601 if (is_windows_9x () == TRUE)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
602 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
603 return FALSE;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
604 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
605 if (g_b_init_get_security_descriptor_group == 0)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
606 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
607 g_b_init_get_security_descriptor_group = 1;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
608 hm_advapi32 = LoadLibrary ("Advapi32.dll");
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
609 s_pfn_Get_Security_Descriptor_Group =
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
610 (GetSecurityDescriptorGroup_Proc) GetProcAddress (
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
611 hm_advapi32, "GetSecurityDescriptorGroup");
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
612 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
613 if (s_pfn_Get_Security_Descriptor_Group == NULL)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
614 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
615 return FALSE;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
616 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
617 return (s_pfn_Get_Security_Descriptor_Group (pSecurityDescriptor, pGroup,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
618 lpbGroupDefaulted));
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
619 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
620
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
621 BOOL WINAPI is_valid_sid (
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
622 PSID sid)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
623 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
624 static IsValidSid_Proc s_pfn_Is_Valid_Sid = NULL;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
625 HMODULE hm_advapi32 = NULL;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
626 if (is_windows_9x () == TRUE)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
627 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
628 return FALSE;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
629 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
630 if (g_b_init_is_valid_sid == 0)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
631 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
632 g_b_init_is_valid_sid = 1;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
633 hm_advapi32 = LoadLibrary ("Advapi32.dll");
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
634 s_pfn_Is_Valid_Sid =
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
635 (IsValidSid_Proc) GetProcAddress (
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
636 hm_advapi32, "IsValidSid");
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
637 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
638 if (s_pfn_Is_Valid_Sid == NULL)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
639 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
640 return FALSE;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
641 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
642 return (s_pfn_Is_Valid_Sid (sid));
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
643 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
644
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
645 BOOL WINAPI equal_sid (
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
646 PSID sid1,
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
647 PSID sid2)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
648 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
649 static EqualSid_Proc s_pfn_Equal_Sid = NULL;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
650 HMODULE hm_advapi32 = NULL;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
651 if (is_windows_9x () == TRUE)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
652 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
653 return FALSE;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
654 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
655 if (g_b_init_equal_sid == 0)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
656 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
657 g_b_init_equal_sid = 1;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
658 hm_advapi32 = LoadLibrary ("Advapi32.dll");
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
659 s_pfn_Equal_Sid =
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
660 (EqualSid_Proc) GetProcAddress (
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
661 hm_advapi32, "EqualSid");
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
662 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
663 if (s_pfn_Equal_Sid == NULL)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
664 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
665 return FALSE;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
666 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
667 return (s_pfn_Equal_Sid (sid1, sid2));
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
668 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
669
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
670 DWORD WINAPI get_length_sid (
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
671 PSID sid)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
672 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
673 static GetLengthSid_Proc s_pfn_Get_Length_Sid = NULL;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
674 HMODULE hm_advapi32 = NULL;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
675 if (is_windows_9x () == TRUE)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
676 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
677 return 0;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
678 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
679 if (g_b_init_get_length_sid == 0)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
680 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
681 g_b_init_get_length_sid = 1;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
682 hm_advapi32 = LoadLibrary ("Advapi32.dll");
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
683 s_pfn_Get_Length_Sid =
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
684 (GetLengthSid_Proc) GetProcAddress (
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
685 hm_advapi32, "GetLengthSid");
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
686 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
687 if (s_pfn_Get_Length_Sid == NULL)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
688 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
689 return 0;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
690 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
691 return (s_pfn_Get_Length_Sid (sid));
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
692 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
693
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
694 BOOL WINAPI copy_sid (
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
695 DWORD destlen,
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
696 PSID dest,
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
697 PSID src)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
698 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
699 static CopySid_Proc s_pfn_Copy_Sid = NULL;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
700 HMODULE hm_advapi32 = NULL;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
701 if (is_windows_9x () == TRUE)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
702 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
703 return FALSE;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
704 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
705 if (g_b_init_copy_sid == 0)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
706 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
707 g_b_init_copy_sid = 1;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
708 hm_advapi32 = LoadLibrary ("Advapi32.dll");
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
709 s_pfn_Copy_Sid =
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
710 (CopySid_Proc) GetProcAddress (
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
711 hm_advapi32, "CopySid");
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
712 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
713 if (s_pfn_Copy_Sid == NULL)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
714 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
715 return FALSE;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
716 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
717 return (s_pfn_Copy_Sid (destlen, dest, src));
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
718 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
719
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
720 /*
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
721 END: Wrapper functions around OpenProcessToken
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
722 and other functions in advapi32.dll that are only
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
723 supported in Windows NT / 2k / XP
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
724 */
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
725
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
726
34696
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
727 /* Equivalent of strerror for W32 error codes. */
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
728 char *
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
729 w32_strerror (int error_no)
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
730 {
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
731 static char buf[500];
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
732
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
733 if (error_no == 0)
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
734 error_no = GetLastError ();
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
735
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
736 buf[0] = '\0';
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
737 if (!FormatMessage (FORMAT_MESSAGE_FROM_SYSTEM, NULL,
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
738 error_no,
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
739 0, /* choose most suitable language */
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
740 buf, sizeof (buf), NULL))
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
741 sprintf (buf, "w32 error %u", error_no);
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
742 return buf;
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
743 }
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
744
72286
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
745 /* Return 1 if P is a valid pointer to an object of size SIZE. Return
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
746 0 if P is NOT a valid pointer. Return -1 if we cannot validate P.
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
747
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
748 This is called from alloc.c:valid_pointer_p. */
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
749 int
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
750 w32_valid_pointer_p (void *p, int size)
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
751 {
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
752 SIZE_T done;
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
753 HANDLE h = OpenProcess (PROCESS_VM_READ, FALSE, GetCurrentProcessId ());
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
754
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
755 if (h)
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
756 {
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
757 unsigned char *buf = alloca (size);
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
758 int retval = ReadProcessMemory (h, p, buf, size, &done);
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
759
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
760 CloseHandle (h);
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
761 return retval;
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
762 }
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
763 else
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
764 return -1;
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
765 }
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
766
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
767 static char startup_dir[MAXPATHLEN];
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
768
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
769 /* Get the current working directory. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
770 char *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
771 getwd (char *dir)
14246
ebdd1b50daba (nt_stat): Use alloca instead of xmalloc.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
772 {
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
773 #if 0
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
774 if (GetCurrentDirectory (MAXPATHLEN, dir) > 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
775 return dir;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
776 return NULL;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
777 #else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
778 /* Emacs doesn't actually change directory itself, and we want to
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
779 force our real wd to be where emacs.exe is to avoid unnecessary
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
780 conflicts when trying to rename or delete directories. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
781 strcpy (dir, startup_dir);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
782 return dir;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
783 #endif
14246
ebdd1b50daba (nt_stat): Use alloca instead of xmalloc.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
784 }
ebdd1b50daba (nt_stat): Use alloca instead of xmalloc.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
785
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
786 #ifndef HAVE_SOCKETS
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
787 /* Emulate gethostname. */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
788 int
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
789 gethostname (char *buffer, int size)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
790 {
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
791 /* NT only allows small host names, so the buffer is
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
792 certainly large enough. */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
793 return !GetComputerName (buffer, &size);
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
794 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
795 #endif /* HAVE_SOCKETS */
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
796
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
797 /* Emulate getloadavg. */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
798 int
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
799 getloadavg (double loadavg[], int nelem)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
800 {
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
801 int i;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
802
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
803 /* A faithful emulation is going to have to be saved for a rainy day. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
804 for (i = 0; i < nelem; i++)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
805 {
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
806 loadavg[i] = 0.0;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
807 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
808 return i;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
809 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
810
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
811 /* Emulate getpwuid, getpwnam and others. */
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
812
12451
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
813 #define PASSWD_FIELD_SIZE 256
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
814
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
815 static char dflt_passwd_name[PASSWD_FIELD_SIZE];
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
816 static char dflt_passwd_passwd[PASSWD_FIELD_SIZE];
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
817 static char dflt_passwd_gecos[PASSWD_FIELD_SIZE];
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
818 static char dflt_passwd_dir[PASSWD_FIELD_SIZE];
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
819 static char dflt_passwd_shell[PASSWD_FIELD_SIZE];
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
820
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
821 static struct passwd dflt_passwd =
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
822 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
823 dflt_passwd_name,
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
824 dflt_passwd_passwd,
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
825 0,
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
826 0,
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
827 0,
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
828 dflt_passwd_gecos,
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
829 dflt_passwd_dir,
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
830 dflt_passwd_shell,
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
831 };
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
832
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
833 static char dflt_group_name[GNLEN+1];
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
834
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
835 static struct group dflt_group =
53123
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
836 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
837 /* When group information is not available, we return this as the
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
838 group for all files. */
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
839 dflt_group_name,
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
840 0,
53123
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
841 };
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
842
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
843 unsigned
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
844 getuid ()
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
845 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
846 return dflt_passwd.pw_uid;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
847 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
848
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
849 unsigned
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
850 geteuid ()
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
851 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
852 /* I could imagine arguing for checking to see whether the user is
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
853 in the Administrators group and returning a UID of 0 for that
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
854 case, but I don't know how wise that would be in the long run. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
855 return getuid ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
856 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
857
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
858 unsigned
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
859 getgid ()
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
860 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
861 return dflt_passwd.pw_gid;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
862 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
863
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
864 unsigned
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
865 getegid ()
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
866 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
867 return getgid ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
868 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
869
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
870 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
871 getpwuid (unsigned uid)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
872 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
873 if (uid == dflt_passwd.pw_uid)
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
874 return &dflt_passwd;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
875 return NULL;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
876 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
877
53123
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
878 struct group *
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
879 getgrgid (gid_t gid)
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
880 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
881 return &dflt_group;
53123
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
882 }
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
883
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
884 struct passwd *
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
885 getpwnam (char *name)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
886 {
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
887 struct passwd *pw;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
888
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
889 pw = getpwuid (getuid ());
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
890 if (!pw)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
891 return pw;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
892
95217
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
893 if (xstrcasecmp (name, pw->pw_name))
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
894 return NULL;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
895
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
896 return pw;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
897 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
898
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
899 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
900 init_user_info ()
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
901 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
902 /* Find the user's real name by opening the process token and
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
903 looking up the name associated with the user-sid in that token.
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
904
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
905 Use the relative portion of the identifier authority value from
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
906 the user-sid as the user id value (same for group id using the
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
907 primary group sid from the process token). */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
908
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
909 char uname[UNLEN+1], gname[GNLEN+1], domain[1025];
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
910 DWORD ulength = sizeof (uname), dlength = sizeof (domain), needed;
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
911 DWORD glength = sizeof (gname);
78028
3a8b85706c0c (_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents: 76098
diff changeset
912 HANDLE token = NULL;
3a8b85706c0c (_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents: 76098
diff changeset
913 SID_NAME_USE user_type;
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
914 unsigned char *buf = NULL;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
915 DWORD blen = 0;
91878
a5f49adf9035 (init_user_info): Use TOKEN_USER and TOKEN_PRIMARY_GROUP instead of
Eli Zaretskii <eliz@gnu.org>
parents: 88048
diff changeset
916 TOKEN_USER user_token;
a5f49adf9035 (init_user_info): Use TOKEN_USER and TOKEN_PRIMARY_GROUP instead of
Eli Zaretskii <eliz@gnu.org>
parents: 88048
diff changeset
917 TOKEN_PRIMARY_GROUP group_token;
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
918 BOOL result;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
919
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
920 result = open_process_token (GetCurrentProcess (), TOKEN_QUERY, &token);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
921 if (result)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
922 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
923 result = get_token_information (token, TokenUser, NULL, 0, &blen);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
924 if (!result && GetLastError () == ERROR_INSUFFICIENT_BUFFER)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
925 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
926 buf = xmalloc (blen);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
927 result = get_token_information (token, TokenUser,
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
928 (LPVOID)buf, blen, &needed);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
929 if (result)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
930 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
931 memcpy (&user_token, buf, sizeof (user_token));
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
932 result = lookup_account_sid (NULL, user_token.User.Sid,
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
933 uname, &ulength,
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
934 domain, &dlength, &user_type);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
935 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
936 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
937 else
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
938 result = FALSE;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
939 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
940 if (result)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
941 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
942 strcpy (dflt_passwd.pw_name, uname);
87990
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
943 /* Determine a reasonable uid value. */
95217
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
944 if (xstrcasecmp ("administrator", uname) == 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
945 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
946 dflt_passwd.pw_uid = 500; /* well-known Administrator uid */
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
947 dflt_passwd.pw_gid = 513; /* well-known None gid */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
948 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
949 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
950 {
87995
e576feac5b90 (init_user_info): Fix commentary for RID usage.
Eli Zaretskii <eliz@gnu.org>
parents: 87990
diff changeset
951 /* Use the last sub-authority value of the RID, the relative
e576feac5b90 (init_user_info): Fix commentary for RID usage.
Eli Zaretskii <eliz@gnu.org>
parents: 87990
diff changeset
952 portion of the SID, as user/group ID. */
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
953 dflt_passwd.pw_uid = get_rid (user_token.User.Sid);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
954
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
955 /* Get group id and name. */
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
956 result = get_token_information (token, TokenPrimaryGroup,
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
957 (LPVOID)buf, blen, &needed);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
958 if (!result && GetLastError () == ERROR_INSUFFICIENT_BUFFER)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
959 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
960 buf = xrealloc (buf, blen = needed);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
961 result = get_token_information (token, TokenPrimaryGroup,
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
962 (LPVOID)buf, blen, &needed);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
963 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
964 if (result)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
965 {
91878
a5f49adf9035 (init_user_info): Use TOKEN_USER and TOKEN_PRIMARY_GROUP instead of
Eli Zaretskii <eliz@gnu.org>
parents: 88048
diff changeset
966 memcpy (&group_token, buf, sizeof (group_token));
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
967 dflt_passwd.pw_gid = get_rid (group_token.PrimaryGroup);
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
968 dlength = sizeof (domain);
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
969 /* If we can get at the real Primary Group name, use that.
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
970 Otherwise, the default group name was already set to
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
971 "None" in globals_of_w32. */
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
972 if (lookup_account_sid (NULL, group_token.PrimaryGroup,
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
973 gname, &glength, NULL, &dlength,
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
974 &user_type))
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
975 strcpy (dflt_group_name, gname);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
976 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
977 else
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
978 dflt_passwd.pw_gid = dflt_passwd.pw_uid;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
979 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
980 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
981 /* If security calls are not supported (presumably because we
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
982 are running under Windows 9X), fallback to this: */
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
983 else if (GetUserName (uname, &ulength))
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
984 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
985 strcpy (dflt_passwd.pw_name, uname);
95217
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
986 if (xstrcasecmp ("administrator", uname) == 0)
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
987 dflt_passwd.pw_uid = 0;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
988 else
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
989 dflt_passwd.pw_uid = 123;
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
990 dflt_passwd.pw_gid = dflt_passwd.pw_uid;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
991 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
992 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
993 {
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
994 strcpy (dflt_passwd.pw_name, "unknown");
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
995 dflt_passwd.pw_uid = 123;
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
996 dflt_passwd.pw_gid = 123;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
997 }
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
998 dflt_group.gr_gid = dflt_passwd.pw_gid;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
999
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1000 /* Ensure HOME and SHELL are defined. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1001 if (getenv ("HOME") == NULL)
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1002 abort ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1003 if (getenv ("SHELL") == NULL)
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1004 abort ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1005
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1006 /* Set dir and shell from environment variables. */
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1007 strcpy (dflt_passwd.pw_dir, getenv ("HOME"));
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
1008 strcpy (dflt_passwd.pw_shell, getenv ("SHELL"));
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1009
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
1010 xfree (buf);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1011 if (token)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1012 CloseHandle (token);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1013 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1014
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1015 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1016 random ()
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1017 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1018 /* rand () on NT gives us 15 random bits...hack together 30 bits. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1019 return ((rand () << 15) | rand ());
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1020 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1021
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1022 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1023 srandom (int seed)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1024 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1025 srand (seed);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1026 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1027
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1028
15326
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1029 /* Normalize filename by converting all path separators to
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1030 the specified separator. Also conditionally convert upper
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1031 case path name components to lower case. */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1032
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1033 static void
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1034 normalize_filename (fp, path_sep)
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1035 register char *fp;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1036 char path_sep;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1037 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1038 char sep;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1039 char *elem;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1040
15615
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
1041 /* Always lower-case drive letters a-z, even if the filesystem
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
1042 preserves case in filenames.
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
1043 This is so filenames can be compared by string comparison
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
1044 functions that are case-sensitive. Even case-preserving filesystems
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
1045 do not distinguish case in drive letters. */
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
1046 if (fp[1] == ':' && *fp >= 'A' && *fp <= 'Z')
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
1047 {
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
1048 *fp += 'a' - 'A';
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
1049 fp += 2;
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
1050 }
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
1051
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
1052 if (NILP (Vw32_downcase_file_names))
15326
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1053 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1054 while (*fp)
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1055 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1056 if (*fp == '/' || *fp == '\\')
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1057 *fp = path_sep;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1058 fp++;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1059 }
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1060 return;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1061 }
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1062
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1063 sep = path_sep; /* convert to this path separator */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1064 elem = fp; /* start of current path element */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1065
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1066 do {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1067 if (*fp >= 'a' && *fp <= 'z')
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1068 elem = 0; /* don't convert this element */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1069
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1070 if (*fp == 0 || *fp == ':')
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1071 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1072 sep = *fp; /* restore current separator (or 0) */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1073 *fp = '/'; /* after conversion of this element */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1074 }
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1075
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1076 if (*fp == '/' || *fp == '\\')
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1077 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1078 if (elem && elem != fp)
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1079 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1080 *fp = 0; /* temporary end of string */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1081 _strlwr (elem); /* while we convert to lower case */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1082 }
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1083 *fp = sep; /* convert (or restore) path separator */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1084 elem = fp + 1; /* next element starts after separator */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1085 sep = path_sep;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1086 }
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1087 } while (*fp++);
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1088 }
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1089
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1090 /* Destructively turn backslashes into slashes. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1091 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1092 dostounix_filename (p)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1093 register char *p;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1094 {
15326
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1095 normalize_filename (p, '/');
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1096 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1097
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1098 /* Destructively turn slashes into backslashes. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1099 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1100 unixtodos_filename (p)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1101 register char *p;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1102 {
15326
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
1103 normalize_filename (p, '\\');
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1104 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1105
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1106 /* Remove all CR's that are followed by a LF.
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1107 (From msdos.c...probably should figure out a way to share it,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1108 although this code isn't going to ever change.) */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1109 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1110 crlf_to_lf (n, buf)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1111 register int n;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1112 register unsigned char *buf;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1113 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1114 unsigned char *np = buf;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1115 unsigned char *startp = buf;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1116 unsigned char *endp = buf + n;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1117
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1118 if (n == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1119 return n;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1120 while (buf < endp - 1)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1121 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1122 if (*buf == 0x0d)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1123 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1124 if (*(++buf) != 0x0a)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1125 *np++ = 0x0d;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1126 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1127 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1128 *np++ = *buf++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1129 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1130 if (buf < endp)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1131 *np++ = *buf++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1132 return np - startp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1133 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1134
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1135 /* Parse the root part of file name, if present. Return length and
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1136 optionally store pointer to char after root. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1137 static int
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1138 parse_root (char * name, char ** pPath)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1139 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1140 char * start = name;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1141
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1142 if (name == NULL)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1143 return 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1144
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1145 /* find the root name of the volume if given */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1146 if (isalpha (name[0]) && name[1] == ':')
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1147 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1148 /* skip past drive specifier */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1149 name += 2;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1150 if (IS_DIRECTORY_SEP (name[0]))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1151 name++;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1152 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1153 else if (IS_DIRECTORY_SEP (name[0]) && IS_DIRECTORY_SEP (name[1]))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1154 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1155 int slashes = 2;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1156 name += 2;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1157 do
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1158 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1159 if (IS_DIRECTORY_SEP (*name) && --slashes == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1160 break;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1161 name++;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1162 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1163 while ( *name );
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1164 if (IS_DIRECTORY_SEP (name[0]))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1165 name++;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1166 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1167
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1168 if (pPath)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1169 *pPath = name;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1170
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1171 return name - start;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1172 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1173
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1174 /* Get long base name for name; name is assumed to be absolute. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1175 static int
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1176 get_long_basename (char * name, char * buf, int size)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1177 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1178 WIN32_FIND_DATA find_data;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1179 HANDLE dir_handle;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1180 int len = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1181
28932
f8b0ac62f238 Use the term `invalid' instead of `illegal'.
Gerd Moellmann <gerd@gnu.org>
parents: 27890
diff changeset
1182 /* must be valid filename, no wild cards or other invalid characters */
76098
9ad6c99cdc71 (stat, get_long_basename, is_unc_volume): Use _mbspbrk instead of strpbrk.
Eli Zaretskii <eliz@gnu.org>
parents: 75348
diff changeset
1183 if (_mbspbrk (name, "*?|<>\""))
22039
c33bec4d9e67 (stat, get_long_basename): Fail if filename contains any
Richard M. Stallman <rms@gnu.org>
parents: 21747
diff changeset
1184 return 0;
c33bec4d9e67 (stat, get_long_basename): Fail if filename contains any
Richard M. Stallman <rms@gnu.org>
parents: 21747
diff changeset
1185
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1186 dir_handle = FindFirstFile (name, &find_data);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1187 if (dir_handle != INVALID_HANDLE_VALUE)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1188 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1189 if ((len = strlen (find_data.cFileName)) < size)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1190 memcpy (buf, find_data.cFileName, len + 1);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1191 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1192 len = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1193 FindClose (dir_handle);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1194 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1195 return len;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1196 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1197
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1198 /* Get long name for file, if possible (assumed to be absolute). */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1199 BOOL
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1200 w32_get_long_filename (char * name, char * buf, int size)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1201 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1202 char * o = buf;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1203 char * p;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1204 char * q;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1205 char full[ MAX_PATH ];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1206 int len;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1207
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1208 len = strlen (name);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1209 if (len >= MAX_PATH)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1210 return FALSE;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1211
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1212 /* Use local copy for destructive modification. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1213 memcpy (full, name, len+1);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1214 unixtodos_filename (full);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1215
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1216 /* Copy root part verbatim. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1217 len = parse_root (full, &p);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1218 memcpy (o, full, len);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1219 o += len;
23858
6bb3dc7f1b48 (w32_get_long_filename): Handle root dirs correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23809
diff changeset
1220 *o = '\0';
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1221 size -= len;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1222
23858
6bb3dc7f1b48 (w32_get_long_filename): Handle root dirs correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23809
diff changeset
1223 while (p != NULL && *p)
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1224 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1225 q = p;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1226 p = strchr (q, '\\');
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1227 if (p) *p = '\0';
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1228 len = get_long_basename (full, o, size);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1229 if (len > 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1230 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1231 o += len;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1232 size -= len;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1233 if (p != NULL)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1234 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1235 *p++ = '\\';
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1236 if (size < 2)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1237 return FALSE;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1238 *o++ = '\\';
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1239 size--;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1240 *o = '\0';
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1241 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1242 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1243 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1244 return FALSE;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1245 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1246
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1247 return TRUE;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1248 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1249
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1250 int
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1251 is_unc_volume (const char *filename)
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1252 {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1253 const char *ptr = filename;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1254
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1255 if (!IS_DIRECTORY_SEP (ptr[0]) || !IS_DIRECTORY_SEP (ptr[1]) || !ptr[2])
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1256 return 0;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1257
76098
9ad6c99cdc71 (stat, get_long_basename, is_unc_volume): Use _mbspbrk instead of strpbrk.
Eli Zaretskii <eliz@gnu.org>
parents: 75348
diff changeset
1258 if (_mbspbrk (ptr + 2, "*?|<>\"\\/"))
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1259 return 0;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1260
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1261 return 1;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1262 }
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1263
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1264 /* Routines that are no-ops on NT but are defined to get Emacs to compile. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1265
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1266 int
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1267 sigsetmask (int signal_mask)
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1268 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1269 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1270 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1271
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1272 int
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1273 sigmask (int sig)
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1274 {
27630
95dde6f88b39 (sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents: 25193
diff changeset
1275 return 0;
95dde6f88b39 (sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents: 25193
diff changeset
1276 }
95dde6f88b39 (sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents: 25193
diff changeset
1277
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1278 int
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1279 sigblock (int sig)
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1280 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1281 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1282 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1283
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1284 int
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1285 sigunblock (int sig)
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1286 {
27630
95dde6f88b39 (sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents: 25193
diff changeset
1287 return 0;
95dde6f88b39 (sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents: 25193
diff changeset
1288 }
95dde6f88b39 (sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents: 25193
diff changeset
1289
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1290 int
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1291 setpgrp (int pid, int gid)
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1292 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1293 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1294 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1295
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1296 int
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1297 alarm (int seconds)
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1298 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1299 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1300 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1301
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1302 #define REG_ROOT "SOFTWARE\\GNU\\Emacs"
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1303
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1304 LPBYTE
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
1305 w32_get_resource (key, lpdwtype)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1306 char *key;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1307 LPDWORD lpdwtype;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1308 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1309 LPBYTE lpvalue;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1310 HKEY hrootkey = NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1311 DWORD cbData;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1312
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1313 /* Check both the current user and the local machine to see if
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1314 we have any resources. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1315
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1316 if (RegOpenKeyEx (HKEY_CURRENT_USER, REG_ROOT, 0, KEY_READ, &hrootkey) == ERROR_SUCCESS)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1317 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1318 lpvalue = NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1319
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1320 if (RegQueryValueEx (hrootkey, key, NULL, NULL, NULL, &cbData) == ERROR_SUCCESS
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1321 && (lpvalue = (LPBYTE) xmalloc (cbData)) != NULL
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1322 && RegQueryValueEx (hrootkey, key, NULL, lpdwtype, lpvalue, &cbData) == ERROR_SUCCESS)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1323 {
78919
87875c00eb06 (w32_get_resource): Always close registry keys.
Jason Rumney <jasonr@gnu.org>
parents: 78260
diff changeset
1324 RegCloseKey (hrootkey);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1325 return (lpvalue);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1326 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1327
95481
4390d64d3328 Make "xfree (NULL)" a no-op; remove useless if-before-xfree.
Jim Meyering <jim@meyering.net>
parents: 95277
diff changeset
1328 xfree (lpvalue);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1329
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1330 RegCloseKey (hrootkey);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1331 }
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1332
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1333 if (RegOpenKeyEx (HKEY_LOCAL_MACHINE, REG_ROOT, 0, KEY_READ, &hrootkey) == ERROR_SUCCESS)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1334 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1335 lpvalue = NULL;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1336
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1337 if (RegQueryValueEx (hrootkey, key, NULL, NULL, NULL, &cbData) == ERROR_SUCCESS
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1338 && (lpvalue = (LPBYTE) xmalloc (cbData)) != NULL
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1339 && RegQueryValueEx (hrootkey, key, NULL, lpdwtype, lpvalue, &cbData) == ERROR_SUCCESS)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1340 {
78919
87875c00eb06 (w32_get_resource): Always close registry keys.
Jason Rumney <jasonr@gnu.org>
parents: 78260
diff changeset
1341 RegCloseKey (hrootkey);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1342 return (lpvalue);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1343 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1344
95481
4390d64d3328 Make "xfree (NULL)" a no-op; remove useless if-before-xfree.
Jim Meyering <jim@meyering.net>
parents: 95277
diff changeset
1345 xfree (lpvalue);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1346
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1347 RegCloseKey (hrootkey);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1348 }
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1349
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1350 return (NULL);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1351 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1352
16892
a8a539285d69 Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1353 char *get_emacs_configuration (void);
a8a539285d69 Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1354 extern Lisp_Object Vsystem_configuration;
a8a539285d69 Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1355
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1356 void
24229
fc89585ce76f (init_environment): Change argv[0] to contain the full path to Emacs.
Andrew Innes <andrewi@gnu.org>
parents: 23858
diff changeset
1357 init_environment (char ** argv)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1358 {
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1359 static const char * const tempdirs[] = {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1360 "$TMPDIR", "$TEMP", "$TMP", "c:/"
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1361 };
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1362
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1363 int i;
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1364
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1365 const int imax = sizeof (tempdirs) / sizeof (tempdirs[0]);
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1366
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1367 /* Make sure they have a usable $TMPDIR. Many Emacs functions use
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1368 temporary files and assume "/tmp" if $TMPDIR is unset, which
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1369 will break on DOS/Windows. Refuse to work if we cannot find
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1370 a directory, not even "c:/", usable for that purpose. */
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1371 for (i = 0; i < imax ; i++)
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1372 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1373 const char *tmp = tempdirs[i];
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1374
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1375 if (*tmp == '$')
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1376 tmp = getenv (tmp + 1);
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1377 /* Note that `access' can lie to us if the directory resides on a
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1378 read-only filesystem, like CD-ROM or a write-protected floppy.
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1379 The only way to be really sure is to actually create a file and
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1380 see if it succeeds. But I think that's too much to ask. */
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1381 if (tmp && _access (tmp, D_OK) == 0)
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1382 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1383 char * var = alloca (strlen (tmp) + 8);
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1384 sprintf (var, "TMPDIR=%s", tmp);
36001
1d402a57bb21 (init-environment): Duplicate local string before putenv.
Jason Rumney <jasonr@gnu.org>
parents: 35425
diff changeset
1385 _putenv (strdup (var));
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1386 break;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1387 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1388 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1389 if (i >= imax)
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1390 cmd_error_internal
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1391 (Fcons (Qerror,
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1392 Fcons (build_string ("no usable temporary directories found!!"),
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1393 Qnil)),
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1394 "While setting TMPDIR: ");
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1395
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1396 /* Check for environment variables and use registry settings if they
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1397 don't exist. Fallback on default values where applicable. */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1398 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1399 int i;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1400 LPBYTE lpval;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1401 DWORD dwType;
33869
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1402 char locale_name[32];
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1403 struct stat ignored;
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1404 char default_home[MAX_PATH];
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1405
70738
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1406 static const struct env_entry
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1407 {
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1408 char * name;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1409 char * def_value;
70738
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1410 } dflt_envvars[] =
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1411 {
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1412 {"HOME", "C:/"},
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1413 {"PRELOAD_WINSOCK", NULL},
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1414 {"emacs_dir", "C:/emacs"},
35425
c26271ca6ad0 (init_environment): Add a version-independent site-lisp
Andrew Innes <andrewi@gnu.org>
parents: 35286
diff changeset
1415 {"EMACSLOADPATH", "%emacs_dir%/site-lisp;%emacs_dir%/../site-lisp;%emacs_dir%/lisp;%emacs_dir%/leim"},
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1416 {"SHELL", "%emacs_dir%/bin/cmdproxy.exe"},
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1417 {"EMACSDATA", "%emacs_dir%/etc"},
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1418 {"EMACSPATH", "%emacs_dir%/bin"},
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1419 /* We no longer set INFOPATH because Info-default-directory-list
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1420 is then ignored. */
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1421 /* {"INFOPATH", "%emacs_dir%/info"}, */
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1422 {"EMACSDOC", "%emacs_dir%/etc"},
33869
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1423 {"TERM", "cmd"},
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1424 {"LANG", NULL},
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1425 };
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1426
70738
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1427 #define N_ENV_VARS sizeof(dflt_envvars)/sizeof(dflt_envvars[0])
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1428
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1429 /* We need to copy dflt_envvars[] and work on the copy because we
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1430 don't want the dumped Emacs to inherit the values of
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1431 environment variables we saw during dumping (which could be on
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1432 a different system). The defaults above must be left intact. */
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1433 struct env_entry env_vars[N_ENV_VARS];
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1434
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1435 for (i = 0; i < N_ENV_VARS; i++)
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1436 env_vars[i] = dflt_envvars[i];
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1437
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1438 /* For backwards compatibility, check if a .emacs file exists in C:/
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1439 If not, then we can try to default to the appdata directory under the
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1440 user's profile, which is more likely to be writable. */
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1441 if (stat ("C:/.emacs", &ignored) < 0)
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1442 {
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1443 HRESULT profile_result;
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1444 /* Dynamically load ShGetFolderPath, as it won't exist on versions
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1445 of Windows 95 and NT4 that have not been updated to include
100192
038d7d21b786 * w32.c (init_environment): Don't free handle to library shell32.dll.
Juanma Barranquero <lekktu@gmail.com>
parents: 97875
diff changeset
1446 MSIE 5. */
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1447 ShGetFolderPath_fn get_folder_path;
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1448 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
1449 GetProcAddress (GetModuleHandle ("shell32.dll"), "SHGetFolderPathA");
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1450
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1451 if (get_folder_path != NULL)
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1452 {
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1453 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
1454 0, default_home);
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1455
96376
c3309dba6542 American English spelling fix.
Glenn Morris <rgm@gnu.org>
parents: 95917
diff changeset
1456 /* 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
1457 if (profile_result == S_OK)
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1458 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
1459 }
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1460 }
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1461
33869
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1462 /* 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
1463 if (GetLocaleInfo (LOCALE_USER_DEFAULT,
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1464 LOCALE_SABBREVLANGNAME | LOCALE_USE_CP_ACP,
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1465 locale_name, sizeof (locale_name)))
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1466 {
70738
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1467 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
1468 {
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1469 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
1470 {
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1471 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
1472 break;
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1473 }
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1474 }
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1475 }
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1476
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1477 #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
1478
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1479 /* 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
1480 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
1481 of a standard installation. */
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1482 {
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1483 char *p;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1484 char modname[MAX_PATH];
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1485
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1486 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
1487 abort ();
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1488 if ((p = strrchr (modname, '\\')) == NULL)
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1489 abort ();
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1490 *p = 0;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1491
95217
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
1492 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
1493 {
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1494 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
1495
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1496 *p = 0;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1497 for (p = modname; *p; p++)
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1498 if (*p == '\\') *p = '/';
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1499
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1500 _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
1501 _putenv (strdup (buf));
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1502 }
57609
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1503 /* 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
1504
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1505 /* 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
1506 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
1507 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
1508 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
1509 {
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1510 *p = 0;
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1511 p = strrchr (modname, '\\');
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1512 if (p != NULL)
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1513 {
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1514 *p = 0;
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1515 p = strrchr (modname, '\\');
95217
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
1516 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
1517 {
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1518 char buf[SET_ENV_BUF_SIZE];
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1519
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1520 *p = 0;
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1521 for (p = modname; *p; p++)
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1522 if (*p == '\\') *p = '/';
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1523
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1524 _snprintf (buf, sizeof(buf)-1, "emacs_dir=%s", modname);
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1525 _putenv (strdup (buf));
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1526 }
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1527 }
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1528 }
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1529 }
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1530
70738
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1531 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
1532 {
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1533 if (!getenv (env_vars[i].name))
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1534 {
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1535 int dont_free = 0;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1536
78028
3a8b85706c0c (_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents: 76098
diff changeset
1537 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
1538 /* Also ignore empty environment variables. */
3a8b85706c0c (_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents: 76098
diff changeset
1539 || *lpval == 0)
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1540 {
95481
4390d64d3328 Make "xfree (NULL)" a no-op; remove useless if-before-xfree.
Jim Meyering <jim@meyering.net>
parents: 95277
diff changeset
1541 xfree (lpval);
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1542 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
1543 dwType = REG_EXPAND_SZ;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1544 dont_free = 1;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1545 }
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1546
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1547 if (lpval)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1548 {
70740
f263eba56074 (init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents: 70738
diff changeset
1549 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
1550
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1551 if (dwType == REG_EXPAND_SZ)
70740
f263eba56074 (init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents: 70738
diff changeset
1552 ExpandEnvironmentStrings ((LPSTR) lpval, buf1, sizeof(buf1));
f263eba56074 (init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents: 70738
diff changeset
1553 else if (dwType == REG_SZ)
f263eba56074 (init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents: 70738
diff changeset
1554 strcpy (buf1, lpval);
f263eba56074 (init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents: 70738
diff changeset
1555 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
1556 {
70740
f263eba56074 (init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents: 70738
diff changeset
1557 _snprintf (buf2, sizeof(buf2)-1, "%s=%s", env_vars[i].name,
f263eba56074 (init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents: 70738
diff changeset
1558 buf1);
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1559 _putenv (strdup (buf2));
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1560 }
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1561
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1562 if (!dont_free)
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1563 xfree (lpval);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1564 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1565 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1566 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1567 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1568
16892
a8a539285d69 Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1569 /* Rebuild system configuration to reflect invoking system. */
a8a539285d69 Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1570 Vsystem_configuration = build_string (EMACS_CONFIGURATION);
a8a539285d69 Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1571
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1572 /* 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
1573 "Path" although cmd.exe (perhaps NT itself) arranges for
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1574 environment variable lookup and setting to be case insensitive.
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1575 However, Emacs assumes a fully case sensitive environment, so we
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1576 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
1577 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
1578 modifying the string in the C runtime environ entry.
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1579
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1580 The same applies to COMSPEC. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1581 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1582 char ** envp;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1583
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1584 for (envp = environ; *envp; envp++)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1585 if (_strnicmp (*envp, "PATH=", 5) == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1586 memcpy (*envp, "PATH=", 5);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1587 else if (_strnicmp (*envp, "COMSPEC=", 8) == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1588 memcpy (*envp, "COMSPEC=", 8);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1589 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1590
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1591 /* Remember the initial working directory for getwd, then make the
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1592 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
1593 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
1594 running subprocesses for the same reason.) */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1595 if (!GetCurrentDirectory (MAXPATHLEN, startup_dir))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1596 abort ();
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1597
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1598 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1599 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
1600 static char modname[MAX_PATH];
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1601
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1602 if (!GetModuleFileName (NULL, modname, MAX_PATH))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1603 abort ();
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1604 if ((p = strrchr (modname, '\\')) == NULL)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1605 abort ();
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1606 *p = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1607
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1608 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
1609
fc89585ce76f (init_environment): Change argv[0] to contain the full path to Emacs.
Andrew Innes <andrewi@gnu.org>
parents: 23858
diff changeset
1610 /* 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
1611 *p = '\\';
fc89585ce76f (init_environment): Change argv[0] to contain the full path to Emacs.
Andrew Innes <andrewi@gnu.org>
parents: 23858
diff changeset
1612 argv[0] = modname;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1613 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1614
27890
91be3fa84ccb (init_environment): Set Vw32_num_mouse_buttons here.
Jason Rumney <jasonr@gnu.org>
parents: 27630
diff changeset
1615 /* 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
1616 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
1617 mouse-3. */
55645
5b3f2477d17b Rename w32_num_mouse_buttons from Vw32_num_mouse_buttons.
Jason Rumney <jasonr@gnu.org>
parents: 55643
diff changeset
1618 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
1619
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1620 init_user_info ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1621 }
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1622
42192
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1623 char *
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1624 emacs_root_dir (void)
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1625 {
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1626 static char root_dir[FILENAME_MAX];
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1627 const char *p;
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1628
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1629 p = getenv ("emacs_dir");
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1630 if (p == NULL)
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1631 abort ();
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1632 strcpy (root_dir, p);
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1633 root_dir[parse_root (root_dir, NULL)] = '\0';
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1634 dostounix_filename (root_dir);
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1635 return root_dir;
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1636 }
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1637
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1638 /* We don't have scripts to automatically determine the system configuration
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1639 for Emacs before it's compiled, and we don't want to have to make the
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1640 user enter it, so we define EMACS_CONFIGURATION to invoke this runtime
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1641 routine. */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1642
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1643 char *
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1644 get_emacs_configuration (void)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1645 {
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1646 char *arch, *oem, *os;
24885
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1647 int build_num;
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1648 static char configuration_buffer[32];
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1649
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1650 /* Determine the processor type. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1651 switch (get_processor_type ())
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1652 {
12451
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1653
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1654 #ifdef PROCESSOR_INTEL_386
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1655 case PROCESSOR_INTEL_386:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1656 case PROCESSOR_INTEL_486:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1657 case PROCESSOR_INTEL_PENTIUM:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1658 arch = "i386";
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1659 break;
12451
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1660 #endif
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1661
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1662 #ifdef PROCESSOR_MIPS_R2000
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1663 case PROCESSOR_MIPS_R2000:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1664 case PROCESSOR_MIPS_R3000:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1665 case PROCESSOR_MIPS_R4000:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1666 arch = "mips";
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1667 break;
12451
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1668 #endif
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1669
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1670 #ifdef PROCESSOR_ALPHA_21064
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1671 case PROCESSOR_ALPHA_21064:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1672 arch = "alpha";
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1673 break;
12451
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1674 #endif
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1675
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1676 default:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1677 arch = "unknown";
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1678 break;
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1679 }
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1680
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1681 /* 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
1682 #ifdef _MSC_VER
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1683 #define COMPILER_NAME "msvc"
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1684 #else
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1685 #ifdef __GNUC__
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1686 #define COMPILER_NAME "mingw"
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1687 #else
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1688 #define COMPILER_NAME "unknown"
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1689 #endif
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1690 #endif
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1691 oem = COMPILER_NAME;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1692
24885
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1693 switch (osinfo_cache.dwPlatformId) {
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1694 case VER_PLATFORM_WIN32_NT:
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1695 os = "nt";
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1696 build_num = osinfo_cache.dwBuildNumber;
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1697 break;
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1698 case VER_PLATFORM_WIN32_WINDOWS:
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1699 if (osinfo_cache.dwMinorVersion == 0) {
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1700 os = "windows95";
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1701 } else {
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1702 os = "windows98";
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1703 }
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1704 build_num = LOWORD (osinfo_cache.dwBuildNumber);
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1705 break;
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1706 case VER_PLATFORM_WIN32s:
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1707 /* Not supported, should not happen. */
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1708 os = "windows32s";
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1709 build_num = LOWORD (osinfo_cache.dwBuildNumber);
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1710 break;
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1711 default:
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1712 os = "unknown";
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1713 build_num = 0;
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1714 break;
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1715 }
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1716
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1717 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
1718 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
1719 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
1720 } else {
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1721 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
1722 }
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1723
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1724 return configuration_buffer;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1725 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1726
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1727 char *
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1728 get_emacs_configuration_options (void)
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1729 {
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1730 static char options_buffer[256];
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1731
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1732 /* 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
1733 #ifdef _MSC_VER
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1734 #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
1735 #else
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1736 #ifdef __GNUC__
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1737 #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
1738 #else
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1739 #define COMPILER_VERSION ""
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1740 #endif
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1741 #endif
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1742
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1743 sprintf (options_buffer, COMPILER_VERSION);
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1744 #ifdef EMACSDEBUG
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1745 strcat (options_buffer, " --no-opt");
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1746 #endif
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1747 #ifdef USER_CFLAGS
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1748 strcat (options_buffer, " --cflags");
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1749 strcat (options_buffer, USER_CFLAGS);
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1750 #endif
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1751 #ifdef USER_LDFLAGS
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1752 strcat (options_buffer, " --ldflags");
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1753 strcat (options_buffer, USER_LDFLAGS);
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1754 #endif
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1755 return options_buffer;
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1756 }
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1757
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1758
11384
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1759 #include <sys/timeb.h>
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1760
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1761 /* Emulate gettimeofday (Ulrich Leodolter, 1/11/95). */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1762 void
11384
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1763 gettimeofday (struct timeval *tv, struct timezone *tz)
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1764 {
63020
92ecd695d7c1 (gettimeofday): Use struct _timeb, not struct timeb.
Eli Zaretskii <eliz@gnu.org>
parents: 60092
diff changeset
1765 struct _timeb tb;
11384
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1766 _ftime (&tb);
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1767
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1768 tv->tv_sec = tb.time;
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1769 tv->tv_usec = tb.millitm * 1000L;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1770 if (tz)
11384
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1771 {
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1772 tz->tz_minuteswest = tb.timezone; /* minutes west of Greenwich */
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1773 tz->tz_dsttime = tb.dstflag; /* type of dst correction */
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1774 }
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1775 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1776
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1777 /* ------------------------------------------------------------------------- */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
1778 /* 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
1779 /* ------------------------------------------------------------------------- */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1780
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1781 /* 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
1782 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
1783 (Ulrich Leodolter, 1/11/95). */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1784 char *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1785 sys_ctime (const time_t *t)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1786 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1787 char *str = (char *) ctime (t);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1788 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
1789 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1790
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1791 /* 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
1792 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
1793 This is much easier. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1794 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1795 sys_sleep (int seconds)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1796 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1797 Sleep (seconds * 1000);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1798 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1799
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1800 /* 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
1801 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
1802 extern int __cdecl _free_osfhnd (int fd);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1803
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1804 /* 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
1805 filedesc fd_info [ MAXDESC ];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1806
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1807 typedef struct volume_info_data {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1808 struct volume_info_data * next;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1809
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1810 /* time when info was obtained */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1811 DWORD timestamp;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1812
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1813 /* actual volume info */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1814 char * root_dir;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1815 DWORD serialnum;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1816 DWORD maxcomp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1817 DWORD flags;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1818 char * name;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1819 char * type;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1820 } volume_info_data;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1821
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1822 /* Global referenced by various functions. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1823 static volume_info_data volume_info;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1824
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1825 /* 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
1826 data never expires). */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1827 static BOOL fixed_drives[26];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1828
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1829 /* 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
1830 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
1831 #define DRIVE_INDEX( c ) ( (c) <= 'Z' ? (c) - 'A' : (c) - 'a' )
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1832 #define VOLINFO_STILL_VALID( root_dir, info ) \
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1833 ( ( isalpha (root_dir[0]) && \
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1834 fixed_drives[ DRIVE_INDEX (root_dir[0]) ] ) \
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1835 || GetTickCount () - info->timestamp < 10000 )
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1836
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1837 /* Cache support functions. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1838
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1839 /* Simple linked list with linear search is sufficient. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1840 static volume_info_data *volume_cache = NULL;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1841
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1842 static volume_info_data *
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1843 lookup_volume_info (char * root_dir)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1844 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1845 volume_info_data * info;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1846
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1847 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
1848 if (xstrcasecmp (info->root_dir, root_dir) == 0)
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1849 break;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1850 return info;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1851 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1852
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1853 static void
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1854 add_volume_info (char * root_dir, volume_info_data * info)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1855 {
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1856 info->root_dir = xstrdup (root_dir);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1857 info->next = volume_cache;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1858 volume_cache = info;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1859 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1860
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1861
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1862 /* Wrapper for GetVolumeInformation, which uses caching to avoid
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1863 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
1864 cdrom drive, ~5-10ms or more for remote drives on LAN). */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1865 volume_info_data *
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1866 GetCachedVolumeInformation (char * root_dir)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1867 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1868 volume_info_data * info;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1869 char default_root[ MAX_PATH ];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1870
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1871 /* NULL for root_dir means use root from current directory. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1872 if (root_dir == NULL)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1873 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1874 if (GetCurrentDirectory (MAX_PATH, default_root) == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1875 return NULL;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1876 parse_root (default_root, &root_dir);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1877 *root_dir = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1878 root_dir = default_root;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1879 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1880
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1881 /* Local fixed drives can be cached permanently. Removable drives
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1882 cannot be cached permanently, since the volume name and serial
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1883 number (if nothing else) can change. Remote drives should be
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1884 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
1885 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
1886 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
1887 by other processes) without notice.
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1888
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1889 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
1890 volumes, we use a simple expiry mechanism to invalidate cache
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1891 entries that are more than ten seconds old. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1892
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1893 #if 0
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1894 /* No point doing this, because WNetGetConnection is even slower than
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1895 GetVolumeInformation, consistently taking ~50ms on a 486 (FWIW,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1896 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
1897 involve network access, and so is extremely quick). */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1898
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1899 /* Map drive letter to UNC if remote. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1900 if ( isalpha( root_dir[0] ) && !fixed[ DRIVE_INDEX( root_dir[0] ) ] )
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1901 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1902 char remote_name[ 256 ];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1903 char drive[3] = { root_dir[0], ':' };
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1904
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1905 if (WNetGetConnection (drive, remote_name, sizeof (remote_name))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1906 == NO_ERROR)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1907 /* do something */ ;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1908 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1909 #endif
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1910
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1911 info = lookup_volume_info (root_dir);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1912
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1913 if (info == NULL || ! VOLINFO_STILL_VALID (root_dir, info))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1914 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1915 char name[ 256 ];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1916 DWORD serialnum;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1917 DWORD maxcomp;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1918 DWORD flags;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1919 char type[ 256 ];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1920
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1921 /* Info is not cached, or is stale. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1922 if (!GetVolumeInformation (root_dir,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1923 name, sizeof (name),
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1924 &serialnum,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1925 &maxcomp,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1926 &flags,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1927 type, sizeof (type)))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1928 return NULL;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1929
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1930 /* Cache the volume information for future use, overwriting existing
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1931 entry if present. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1932 if (info == NULL)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1933 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1934 info = (volume_info_data *) xmalloc (sizeof (volume_info_data));
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1935 add_volume_info (root_dir, info);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1936 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1937 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1938 {
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1939 xfree (info->name);
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1940 xfree (info->type);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1941 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1942
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1943 info->name = xstrdup (name);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1944 info->serialnum = serialnum;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1945 info->maxcomp = maxcomp;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1946 info->flags = flags;
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1947 info->type = xstrdup (type);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1948 info->timestamp = GetTickCount ();
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1949 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1950
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1951 return info;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1952 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1953
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1954 /* 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
1955 start of pathname in name (past UNC header\volume header if present). */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1956 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1957 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
1958 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1959 char temp[MAX_PATH];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1960 char *rootname = NULL; /* default to current volume */
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1961 volume_info_data * info;
15141
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 if (name == NULL)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1964 return FALSE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1965
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1966 /* 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
1967 if (isalpha (name[0]) && name[1] == ':')
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 rootname = temp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1970 temp[0] = *name++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1971 temp[1] = *name++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1972 temp[2] = '\\';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1973 temp[3] = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1974 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1975 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
1976 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1977 char *str = temp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1978 int slashes = 4;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1979 rootname = temp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1980 do
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1981 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1982 if (IS_DIRECTORY_SEP (*name) && --slashes == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1983 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1984 *str++ = *name++;
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 while ( *name );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1987
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1988 *str++ = '\\';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1989 *str = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1990 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1991
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1992 if (pPath)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1993 *pPath = name;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1994
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1995 info = GetCachedVolumeInformation (rootname);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1996 if (info != NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1997 {
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1998 /* Set global referenced by other functions. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1999 volume_info = *info;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2000 return TRUE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2001 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2002 return FALSE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2003 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2004
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2005 /* 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
2006 names); also set path pointer to start of pathname in name. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2007 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2008 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
2009 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2010 if (get_volume_info (name, pPath))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2011 return (volume_info.maxcomp == 12);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2012 return FALSE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2013 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2014
80030
6b3001cc9ca9 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79759
diff changeset
2015 /* 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
2016 const char *
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2017 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
2018 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2019 static char shortname[MAX_PATH];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2020 char * str = shortname;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2021 char c;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2022 char * path;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2023 const char * save_name = name;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2024
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
2025 if (strlen (name) >= MAX_PATH)
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
2026 {
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
2027 /* 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
2028 strcpy (shortname, "?");
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
2029 return shortname;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
2030 }
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
2031
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
2032 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
2033 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2034 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
2035 register int extn = 0; /* extension added? */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2036 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
2037
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2038 while (name < path)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2039 *str++ = *name++; /* skip past UNC header */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2040
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2041 while ((c = *name++))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2042 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2043 switch ( c )
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2044 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2045 case '\\':
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2046 case '/':
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2047 *str++ = '\\';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2048 extn = 0; /* reset extension flags */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2049 dots = 2; /* max 2 dots */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2050 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
2051 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2052 case ':':
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2053 *str++ = ':';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2054 extn = 0; /* reset extension flags */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2055 dots = 2; /* max 2 dots */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2056 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
2057 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2058 case '.':
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2059 if ( dots )
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2060 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2061 /* 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
2062 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
2063 to be read as _emacs, for example. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2064
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2065 if (! *name ||
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2066 *name == '.' ||
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2067 IS_DIRECTORY_SEP (*name))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2068 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2069 *str++ = '.';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2070 dots--;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2071 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2072 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2073 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2074 *str++ = '_';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2075 left--;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2076 dots = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2077 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2078 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2079 else if ( !extn )
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2080 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2081 *str++ = '.';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2082 extn = 1; /* we've got an extension */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2083 left = 3; /* 3 chars in extension */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2084 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2085 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2086 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2087 /* 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
2088 *str++ = '_';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2089 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2090 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2091 case '~':
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2092 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
2093 if ( ! left )
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2094 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
2095 /* FALLTHRU */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2096 default:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2097 if ( left )
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2098 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2099 *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
2100 left--;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2101 dots = 0; /* started a path component */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2102 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2103 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2104 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2105 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2106 *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
2107 }
867e4ead88d9 (map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents: 15141
diff changeset
2108 else
867e4ead88d9 (map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents: 15141
diff changeset
2109 {
867e4ead88d9 (map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents: 15141
diff changeset
2110 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
2111 unixtodos_filename (shortname);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2112 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2113
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2114 if (pPath)
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2115 *pPath = shortname + (path - save_name);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2116
15213
867e4ead88d9 (map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents: 15141
diff changeset
2117 return shortname;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2118 }
11384
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
2119
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2120 static int
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2121 is_exec (const char * name)
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2122 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2123 char * p = strrchr (name, '.');
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2124 return
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2125 (p != NULL
95217
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
2126 && (xstrcasecmp (p, ".exe") == 0 ||
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
2127 xstrcasecmp (p, ".com") == 0 ||
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
2128 xstrcasecmp (p, ".bat") == 0 ||
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
2129 xstrcasecmp (p, ".cmd") == 0));
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2130 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2131
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2132 /* Emulate the Unix directory procedures opendir, closedir,
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2133 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
2134 so we provide them here. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2135
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2136 struct direct dir_static; /* simulated directory contents */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2137 static HANDLE dir_find_handle = INVALID_HANDLE_VALUE;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2138 static int dir_is_fat;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2139 static char dir_pathname[MAXPATHLEN+1];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2140 static WIN32_FIND_DATA dir_find_data;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2141
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2142 /* 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
2143 root directory. */
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2144 static HANDLE wnet_enum_handle = INVALID_HANDLE_VALUE;
55645
5b3f2477d17b Rename w32_num_mouse_buttons from Vw32_num_mouse_buttons.
Jason Rumney <jasonr@gnu.org>
parents: 55643
diff changeset
2145 HANDLE open_unc_volume (const char *);
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2146 char *read_unc_volume (HANDLE, char *, int);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2147 void close_unc_volume (HANDLE);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2148
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2149 DIR *
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2150 opendir (char *filename)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2151 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2152 DIR *dirp;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2153
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2154 /* 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
2155 this operation, so we defer the open until read time. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2156
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2157 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
2158 return NULL;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2159 if (wnet_enum_handle != INVALID_HANDLE_VALUE)
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2160 return NULL;
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2161
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2162 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
2163 {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2164 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
2165 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
2166 return NULL;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2167 }
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2168
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2169 if (!(dirp = (DIR *) malloc (sizeof (DIR))))
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2170 return NULL;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2171
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2172 dirp->dd_fd = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2173 dirp->dd_loc = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2174 dirp->dd_size = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2175
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2176 strncpy (dir_pathname, map_w32_filename (filename, NULL), MAXPATHLEN);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2177 dir_pathname[MAXPATHLEN] = '\0';
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2178 dir_is_fat = is_fat_volume (filename, NULL);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2179
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2180 return dirp;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2181 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2182
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2183 void
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2184 closedir (DIR *dirp)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2185 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2186 /* If we have a find-handle open, close it. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2187 if (dir_find_handle != INVALID_HANDLE_VALUE)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2188 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2189 FindClose (dir_find_handle);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2190 dir_find_handle = INVALID_HANDLE_VALUE;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2191 }
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2192 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
2193 {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2194 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
2195 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
2196 }
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2197 xfree ((char *) dirp);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2198 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2199
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2200 struct direct *
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2201 readdir (DIR *dirp)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2202 {
80376
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2203 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
2204
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2205 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
2206 {
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2207 if (!read_unc_volume (wnet_enum_handle,
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2208 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
2209 MAX_PATH))
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2210 return NULL;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2211 }
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2212 /* 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
2213 else if (dir_find_handle == INVALID_HANDLE_VALUE)
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2214 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2215 char filename[MAXNAMLEN + 3];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2216 int ln;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2217
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2218 strcpy (filename, dir_pathname);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2219 ln = strlen (filename) - 1;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2220 if (!IS_DIRECTORY_SEP (filename[ln]))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2221 strcat (filename, "\\");
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2222 strcat (filename, "*");
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2223
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2224 dir_find_handle = FindFirstFile (filename, &dir_find_data);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2225
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2226 if (dir_find_handle == INVALID_HANDLE_VALUE)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2227 return NULL;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2228 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2229 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2230 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2231 if (!FindNextFile (dir_find_handle, &dir_find_data))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2232 return NULL;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2233 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2234
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2235 /* 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
2236 value returned by stat(). */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2237 dir_static.d_ino = 1;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2238
93142
e1c95382ef7e (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 92148
diff changeset
2239 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
2240
e1c95382ef7e (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 92148
diff changeset
2241 /* 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
2242 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
2243 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
2244 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
2245 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
2246 {
e1c95382ef7e (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 92148
diff changeset
2247 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
2248 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
2249 }
e1c95382ef7e (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 92148
diff changeset
2250 dir_static.d_namlen = strlen (dir_static.d_name);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2251 dir_static.d_reclen = sizeof (struct direct) - MAXNAMLEN + 3 +
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2252 dir_static.d_namlen - dir_static.d_namlen % 4;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2253
80376
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2254 /* 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
2255 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
2256 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
2257 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
2258 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
2259 {
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2260 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
2261 /* 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
2262 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
2263 downcase = 1;
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2264 }
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2265 else
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
2266 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
2267 dir_static.d_namlen = strlen (dir_static.d_name);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2268 if (dir_is_fat)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2269 _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
2270 else if (downcase)
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2271 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2272 register char *p;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2273 for (p = dir_static.d_name; *p; p++)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2274 if (*p >= 'a' && *p <= 'z')
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2275 break;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2276 if (!*p)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2277 _strlwr (dir_static.d_name);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2278 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2279
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2280 return &dir_static;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2281 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2282
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2283 HANDLE
55645
5b3f2477d17b Rename w32_num_mouse_buttons from Vw32_num_mouse_buttons.
Jason Rumney <jasonr@gnu.org>
parents: 55643
diff changeset
2284 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
2285 {
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2286 NETRESOURCE nr;
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2287 HANDLE henum;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2288 int result;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2289
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2290 nr.dwScope = RESOURCE_GLOBALNET;
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2291 nr.dwType = RESOURCETYPE_DISK;
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2292 nr.dwDisplayType = RESOURCEDISPLAYTYPE_SERVER;
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2293 nr.dwUsage = RESOURCEUSAGE_CONTAINER;
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2294 nr.lpLocalName = NULL;
63020
92ecd695d7c1 (gettimeofday): Use struct _timeb, not struct timeb.
Eli Zaretskii <eliz@gnu.org>
parents: 60092
diff changeset
2295 nr.lpRemoteName = (LPSTR)map_w32_filename (path, NULL);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2296 nr.lpComment = NULL;
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2297 nr.lpProvider = NULL;
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2298
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2299 result = WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2300 RESOURCEUSAGE_CONNECTABLE, &nr, &henum);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2301
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2302 if (result == NO_ERROR)
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2303 return henum;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2304 else
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2305 return INVALID_HANDLE_VALUE;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2306 }
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2307
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2308 char *
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2309 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
2310 {
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
2311 DWORD count;
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2312 int result;
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
2313 DWORD bufsize = 512;
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2314 char *buffer;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2315 char *ptr;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2316
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2317 count = 1;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2318 buffer = alloca (bufsize);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2319 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
2320 if (result != NO_ERROR)
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2321 return NULL;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2322
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2323 /* 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
2324 ptr = ((LPNETRESOURCE) buffer)->lpRemoteName;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2325 ptr += 2;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2326 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
2327 ptr++;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2328
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2329 strncpy (readbuf, ptr, size);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2330 return readbuf;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2331 }
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2332
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2333 void
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2334 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
2335 {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2336 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
2337 WNetCloseEnum (henum);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2338 }
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2339
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2340 DWORD
55645
5b3f2477d17b Rename w32_num_mouse_buttons from Vw32_num_mouse_buttons.
Jason Rumney <jasonr@gnu.org>
parents: 55643
diff changeset
2341 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
2342 {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2343 HANDLE henum;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2344 DWORD attrs;
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 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
2347 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
2348 return -1;
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 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
2351
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2352 close_unc_volume (henum);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2353
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2354 return attrs;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2355 }
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2356
87985
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2357 /* Ensure a network connection is authenticated. */
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2358 static void
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2359 logon_network_drive (const char *path)
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2360 {
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2361 NETRESOURCE resource;
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2362 char share[MAX_PATH];
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2363 int i, n_slashes;
93973
40f40216ff24 (logon_network_drive): Also logon to remote drives that
Jason Rumney <jasonr@gnu.org>
parents: 93759
diff changeset
2364 char drive[4];
40f40216ff24 (logon_network_drive): Also logon to remote drives that
Jason Rumney <jasonr@gnu.org>
parents: 93759
diff changeset
2365
40f40216ff24 (logon_network_drive): Also logon to remote drives that
Jason Rumney <jasonr@gnu.org>
parents: 93759
diff changeset
2366 sprintf (drive, "%c:\\", path[0]);
87985
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2367
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2368 /* Only logon to networked drives. */
93973
40f40216ff24 (logon_network_drive): Also logon to remote drives that
Jason Rumney <jasonr@gnu.org>
parents: 93759
diff changeset
2369 if ((!IS_DIRECTORY_SEP (path[0]) || !IS_DIRECTORY_SEP (path[1]))
40f40216ff24 (logon_network_drive): Also logon to remote drives that
Jason Rumney <jasonr@gnu.org>
parents: 93759
diff changeset
2370 && GetDriveType (drive) != DRIVE_REMOTE)
87985
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2371 return;
93973
40f40216ff24 (logon_network_drive): Also logon to remote drives that
Jason Rumney <jasonr@gnu.org>
parents: 93759
diff changeset
2372
87985
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2373 n_slashes = 2;
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2374 strncpy (share, path, MAX_PATH);
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2375 /* Truncate to just server and share name. */
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2376 for (i = 2; i < MAX_PATH; i++)
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2377 {
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2378 if (IS_DIRECTORY_SEP (share[i]) && ++n_slashes > 3)
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2379 {
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2380 share[i] = '\0';
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2381 break;
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2382 }
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2383 }
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2384
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2385 resource.dwType = RESOURCETYPE_DISK;
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2386 resource.lpLocalName = NULL;
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2387 resource.lpRemoteName = share;
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2388 resource.lpProvider = NULL;
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2389
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2390 WNetAddConnection2 (&resource, NULL, NULL, CONNECT_INTERACTIVE);
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2391 }
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2392
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2393 /* 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
2394 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
2395 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
2396 long file names. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2397
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2398 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2399 sys_access (const char * path, int mode)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2400 {
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2401 DWORD attributes;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2402
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2403 /* MSVC implementation doesn't recognize D_OK. */
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2404 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
2405 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
2406 {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2407 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
2408 if (attributes == -1) {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2409 errno = EACCES;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2410 return -1;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2411 }
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2412 }
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2413 else if ((attributes = GetFileAttributes (path)) == -1)
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2414 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2415 /* Should try mapping GetLastError to errno; for now just indicate
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2416 that path doesn't exist. */
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2417 errno = EACCES;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2418 return -1;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2419 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2420 if ((mode & X_OK) != 0 && !is_exec (path))
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2421 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2422 errno = EACCES;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2423 return -1;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2424 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2425 if ((mode & W_OK) != 0 && (attributes & FILE_ATTRIBUTE_READONLY) != 0)
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2426 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2427 errno = EACCES;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2428 return -1;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2429 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2430 if ((mode & D_OK) != 0 && (attributes & FILE_ATTRIBUTE_DIRECTORY) == 0)
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2431 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2432 errno = EACCES;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2433 return -1;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2434 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2435 return 0;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2436 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2437
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2438 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2439 sys_chdir (const char * path)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2440 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2441 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
2442 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2443
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2444 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2445 sys_chmod (const char * path, int mode)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2446 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2447 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
2448 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2449
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2450 int
63744
19486c46b17e (sys_chown): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 63038
diff changeset
2451 sys_chown (const char *path, uid_t owner, gid_t group)
19486c46b17e (sys_chown): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 63038
diff changeset
2452 {
93690
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
2453 if (sys_chmod (path, S_IREAD) == -1) /* check if file exists */
63744
19486c46b17e (sys_chown): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 63038
diff changeset
2454 return -1;
19486c46b17e (sys_chown): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 63038
diff changeset
2455 return 0;
19486c46b17e (sys_chown): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 63038
diff changeset
2456 }
19486c46b17e (sys_chown): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 63038
diff changeset
2457
19486c46b17e (sys_chown): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 63038
diff changeset
2458 int
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2459 sys_creat (const char * path, int mode)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2460 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2461 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
2462 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2463
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2464 FILE *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2465 sys_fopen(const char * path, const char * mode)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2466 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2467 int fd;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2468 int oflag;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2469 const char * mode_save = mode;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2470
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2471 /* 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
2472 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
2473 prevent future file access. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2474
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2475 if (mode[0] == 'r')
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2476 oflag = O_RDONLY;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2477 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
2478 oflag = O_WRONLY | O_CREAT | O_TRUNC;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2479 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2480 return NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2481
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2482 /* Only do simplistic option parsing. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2483 while (*++mode)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2484 if (mode[0] == '+')
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2485 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2486 oflag &= ~(O_RDONLY | O_WRONLY);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2487 oflag |= O_RDWR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2488 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2489 else if (mode[0] == 'b')
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2490 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2491 oflag &= ~O_TEXT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2492 oflag |= O_BINARY;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2493 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2494 else if (mode[0] == 't')
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2495 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2496 oflag &= ~O_BINARY;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2497 oflag |= O_TEXT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2498 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2499 else break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2500
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2501 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
2502 if (fd < 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2503 return NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2504
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2505 return _fdopen (fd, mode_save);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2506 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2507
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2508 /* 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
2509 int
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2510 sys_link (const char * old, const char * new)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2511 {
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2512 HANDLE fileh;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2513 int result = -1;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2514 char oldname[MAX_PATH], newname[MAX_PATH];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2515
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2516 if (old == NULL || new == NULL)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2517 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2518 errno = ENOENT;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2519 return -1;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2520 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2521
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2522 strcpy (oldname, map_w32_filename (old, NULL));
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2523 strcpy (newname, map_w32_filename (new, NULL));
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2524
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2525 fileh = CreateFile (oldname, 0, 0, NULL, OPEN_EXISTING,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2526 FILE_FLAG_BACKUP_SEMANTICS, NULL);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2527 if (fileh != INVALID_HANDLE_VALUE)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2528 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2529 int wlen;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2530
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2531 /* Confusingly, the "alternate" stream name field does not apply
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2532 when restoring a hard link, and instead contains the actual
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2533 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
2534 The WIN32_STREAM_ID structure before the cStreamName field is
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2535 the stream header, which is then immediately followed by the
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2536 stream data. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2537
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2538 struct {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2539 WIN32_STREAM_ID wid;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2540 WCHAR wbuffer[MAX_PATH]; /* extra space for link name */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2541 } data;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2542
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2543 wlen = MultiByteToWideChar (CP_ACP, MB_PRECOMPOSED, newname, -1,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2544 data.wid.cStreamName, MAX_PATH);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2545 if (wlen > 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2546 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2547 LPVOID context = NULL;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2548 DWORD wbytes = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2549
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2550 data.wid.dwStreamId = BACKUP_LINK;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2551 data.wid.dwStreamAttributes = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2552 data.wid.Size.LowPart = wlen * sizeof(WCHAR);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2553 data.wid.Size.HighPart = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2554 data.wid.dwStreamNameSize = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2555
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2556 if (BackupWrite (fileh, (LPBYTE)&data,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2557 offsetof (WIN32_STREAM_ID, cStreamName)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2558 + data.wid.Size.LowPart,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2559 &wbytes, FALSE, FALSE, &context)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2560 && BackupWrite (fileh, NULL, 0, &wbytes, TRUE, FALSE, &context))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2561 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2562 /* succeeded */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2563 result = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2564 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2565 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2566 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2567 /* Should try mapping GetLastError to errno; for now just
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2568 indicate a general error (eg. links not supported). */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2569 errno = EINVAL; // perhaps EMLINK?
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2570 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2571 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2572
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2573 CloseHandle (fileh);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2574 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2575 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2576 errno = ENOENT;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2577
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2578 return result;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2579 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2580
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2581 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2582 sys_mkdir (const char * path)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2583 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2584 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
2585 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2586
15354
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2587 /* 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
2588 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
2589 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
2590 string.
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2591
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2592 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
2593 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
2594 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
2595 first of the 6 X's. */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2596 char *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2597 sys_mktemp (char * template)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2598 {
15354
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2599 char * p;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2600 int i;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2601 unsigned uid = GetCurrentThreadId ();
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2602 static char first_char[] = "abcdefghijklmnopqrstuvwyz0123456789!%-_@#";
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2603
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2604 if (template == NULL)
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2605 return NULL;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2606 p = template + strlen (template);
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2607 i = 5;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2608 /* 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
2609 while (--p >= template && p[0] == 'X' && --i >= 0)
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2610 {
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2611 p[0] = '0' + uid % 10;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2612 uid /= 10;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2613 }
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2614
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2615 if (i < 0 && p[0] == 'X')
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2616 {
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2617 i = 0;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2618 do
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2619 {
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2620 int save_errno = errno;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2621 p[0] = first_char[i];
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2622 if (sys_access (template, 0) < 0)
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2623 {
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2624 errno = save_errno;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2625 return template;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2626 }
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2627 }
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2628 while (++i < sizeof (first_char));
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2629 }
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2630
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2631 /* 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
2632 so return empty string */
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2633 template[0] = 0;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2634 return template;
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_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
2639 {
37291
83dd2eb5365f (sys_open): Try to open file without _O_CREAT first, to be
Gerd Moellmann <gerd@gnu.org>
parents: 36001
diff changeset
2640 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
2641 /* 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
2642 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
2643 non-inheritable. */
83dd2eb5365f (sys_open): Try to open file without _O_CREAT first, to be
Gerd Moellmann <gerd@gnu.org>
parents: 36001
diff changeset
2644 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
2645 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
2646 return res;
83dd2eb5365f (sys_open): Try to open file without _O_CREAT first, to be
Gerd Moellmann <gerd@gnu.org>
parents: 36001
diff changeset
2647 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
2648 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2649
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2650 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2651 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
2652 {
34644
69143373d98d (sys_rename): Only check errno against EEXIST, and not
Andrew Innes <andrewi@gnu.org>
parents: 33869
diff changeset
2653 BOOL result;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2654 char temp[MAX_PATH];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2655
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16867
diff changeset
2656 /* 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
2657 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
2658 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
2659 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
2660
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16867
diff changeset
2661 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
2662 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
2663 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
2664 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
2665
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16867
diff changeset
2666 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
2667 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
2668
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2669 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
2670
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2671 if (os_subtype == OS_WIN95)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2672 {
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2673 char * o;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2674 char * p;
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2675 int i = 0;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2676
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2677 oldname = map_w32_filename (oldname, NULL);
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2678 if (o = strrchr (oldname, '\\'))
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2679 o++;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2680 else
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2681 o = (char *) oldname;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2682
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2683 if (p = strrchr (temp, '\\'))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2684 p++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2685 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2686 p = temp;
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2687
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2688 do
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2689 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2690 /* Force temp name to require a manufactured 8.3 alias - this
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2691 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
2692 sprintf (p, "_.%s.%u", o, i);
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2693 i++;
22430
921311b43bf4 (sys_rename): Don't examine errno if rename didn't fail.
Richard M. Stallman <rms@gnu.org>
parents: 22363
diff changeset
2694 result = rename (oldname, temp);
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2695 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2696 /* 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
2697 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
2698 if (result < 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2699 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2700 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2701
96376
c3309dba6542 American English spelling fix.
Glenn Morris <rgm@gnu.org>
parents: 95917
diff changeset
2702 /* 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
2703 (at least if it is a file; don't do this for directories).
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2704
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2705 Since we mustn't do this if we are just changing the case of the
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2706 file name (we would end up deleting the file we are trying to
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2707 rename!), we let rename detect if the destination file already
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2708 exists - that way we avoid the possible pitfalls of trying to
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2709 determine ourselves whether two names really refer to the same
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2710 file, which is not always possible in the general case. (Consider
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2711 all the permutations of shared or subst'd drives, etc.) */
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2712
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2713 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
2714 result = rename (temp, newname);
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2715
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2716 if (result < 0
34644
69143373d98d (sys_rename): Only check errno against EEXIST, and not
Andrew Innes <andrewi@gnu.org>
parents: 33869
diff changeset
2717 && errno == EEXIST
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2718 && _chmod (newname, 0666) == 0
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2719 && _unlink (newname) == 0)
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2720 result = rename (temp, newname);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2721
22299
83928cc3329e (sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22039
diff changeset
2722 return result;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2723 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2724
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2725 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2726 sys_rmdir (const char * path)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2727 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2728 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
2729 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2730
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2731 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2732 sys_unlink (const char * path)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2733 {
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2734 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
2735
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2736 /* 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
2737 _chmod (path, 0666);
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2738 return _unlink (path);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2739 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2740
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2741 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
2742 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
2743 static int init = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2744
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2745 #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
2746 do { \
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2747 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
2748 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
2749 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
2750 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
2751 } while (0)
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2752
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2753 static void
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2754 initialize_utc_base ()
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
2755 {
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2756 /* 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
2757 SYSTEMTIME st;
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2758
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2759 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
2760 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
2761 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
2762 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
2763 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
2764 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
2765 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
2766
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2767 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
2768 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
2769 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
2770
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2771 static time_t
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2772 convert_time (FILETIME ft)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2773 {
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2774 ULONGLONG tmp;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2775
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2776 if (!init)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2777 {
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2778 initialize_utc_base();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2779 init = 1;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2780 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2781
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2782 if (CompareFileTime (&ft, &utc_base_ft) < 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2783 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2784
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2785 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
2786 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
2787 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2788
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
2789
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2790 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2791 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
2792 {
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2793 ULARGE_INTEGER tmp;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2794
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2795 if (!init)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2796 {
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
2797 initialize_utc_base ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2798 init = 1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2799 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2800
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2801 /* 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
2802 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
2803 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
2804 pft->dwLowDateTime = tmp.LowPart;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2805 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2806
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2807 #if 0
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2808 /* 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
2809 using the file index from GetInformationByHandle, is not perfect and
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2810 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
2811 Instead, we now determine file-truename correctly (except for
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2812 possible drive aliasing etc). */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2813
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2814 /* 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
2815 static unsigned
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2816 hashval (const unsigned char * str)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2817 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2818 unsigned h = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2819 while (*str)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2820 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2821 h = (h << 4) + *str++;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2822 h ^= (h >> 28);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2823 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2824 return h;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2825 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2826
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2827 /* 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
2828 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
2829 static DWORD
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2830 generate_inode_val (const char * name)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2831 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2832 char fullname[ MAX_PATH ];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2833 char * p;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2834 unsigned hash;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2835
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2836 /* Get the truly canonical filename, if it exists. (Note: this
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2837 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
2838 links. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2839 if (!w32_get_long_filename ((char *)name, fullname, MAX_PATH))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2840 abort ();
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2841
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2842 parse_root (fullname, &p);
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2843 /* 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
2844 _strlwr (p);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2845 return hashval (p);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2846 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2847
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2848 #endif
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2849
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2850 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
2851 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
2852 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2853 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
2854 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
2855 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
2856 | 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
2857
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2858 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
2859 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2860 err = GetLastError ();
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2861 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
2862 return NULL;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2863 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2864
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2865 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
2866 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
2867 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2868 xfree (psd);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2869 return NULL;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2870 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2871
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2872 return psd;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2873 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2874
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2875 static DWORD
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2876 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
2877 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2878 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
2879
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2880 /* 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
2881 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
2882 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
2883 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
2884 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
2885 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
2886 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2887
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2888 /* 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
2889
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2890 #ifdef __GNUC__
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2891 # define FLEXIBLE_ARRAY_MEMBER
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2892 #else
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2893 # define FLEXIBLE_ARRAY_MEMBER 1
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2894 #endif
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2895
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2896 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
2897 unsigned rid;
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2898 struct w32_id *next;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2899 char name[GNLEN+1];
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2900 unsigned char sid[FLEXIBLE_ARRAY_MEMBER];
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2901 };
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2902
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2903 static struct w32_id *w32_idlist;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2904
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2905 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
2906 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
2907 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2908 struct w32_id *tail, *found;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2909
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2910 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
2911 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2912 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
2913 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2914 found = tail;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2915 break;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2916 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2917 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2918 if (found)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2919 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2920 *id = found->rid;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2921 strcpy (name, found->name);
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2922 return 1;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2923 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2924 else
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2925 return 0;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2926 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2927
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2928 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
2929 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
2930 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2931 DWORD sid_len;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2932 struct w32_id *new_entry;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2933
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2934 /* 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
2935 dumped. */
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2936 if (initialized)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2937 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2938 sid_len = get_length_sid (sid);
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2939 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
2940 if (new_entry)
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2941 {
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2942 new_entry->rid = id;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2943 strcpy (new_entry->name, name);
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2944 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
2945 new_entry->next = w32_idlist;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2946 w32_idlist = new_entry;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2947 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2948 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2949 }
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2950
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2951 #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
2952 #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
2953
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2954 static int
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2955 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
2956 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
2957 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2958 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
2959 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
2960 BOOL dflt;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2961 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
2962 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
2963 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
2964 char domain[1024];
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2965 DWORD domain_len = sizeof(domain);
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2966 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
2967 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
2968 int result;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2969
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2970 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
2971 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
2972 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
2973 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
2974 else
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2975 result = 0;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2976
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2977 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
2978 use_dflt = 1;
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
2979 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
2980 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2981 /* 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
2982 specified machine. */
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2983 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
2984 && 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
2985 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2986 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
2987 char *p;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2988
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2989 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
2990 *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
2991 *p = *s;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2992 *p = '\0';
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2993 mp = machine;
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2994 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2995
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
2996 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
2997 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
2998 || 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
2999 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
3000 else
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3001 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3002 *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
3003 strcpy (nm, name);
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3004 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
3005 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3006 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3007 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
3008 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3009
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3010 static void
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3011 get_file_owner_and_group (
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3012 PSECURITY_DESCRIPTOR psd,
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3013 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
3014 struct stat *st)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3015 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3016 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
3017
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3018 if (!psd)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3019 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3020 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
3021 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
3022 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3023 else
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3024 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3025 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
3026 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
3027 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
3028 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
3029 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3030 /* 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
3031 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
3032 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
3033 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3034 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
3035 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
3036 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3037 if (dflt_grp)
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3038 {
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3039 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
3040 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
3041 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3042 }
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3043
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3044 /* 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
3045 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
3046 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
3047 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3048 stat (const char * path, struct stat * buf)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3049 {
22299
83928cc3329e (sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22039
diff changeset
3050 char *name, *r;
97488
caf9103a3856 (stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents: 97486
diff changeset
3051 char drive_root[4];
caf9103a3856 (stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents: 97486
diff changeset
3052 UINT devtype;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3053 WIN32_FIND_DATA wfd;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3054 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
3055 unsigned __int64 fake_inode;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3056 int permission;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3057 int len;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3058 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
3059 PSECURITY_DESCRIPTOR psd = NULL;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3060
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3061 if (path == NULL || buf == NULL)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3062 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3063 errno = EFAULT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3064 return -1;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3065 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3066
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
3067 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
3068 /* 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
3069 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
3070 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
3071 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
3072 filesystems. */
9ad6c99cdc71 (stat, get_long_basename, is_unc_volume): Use _mbspbrk instead of strpbrk.
Eli Zaretskii <eliz@gnu.org>
parents: 75348
diff changeset
3073 if (_mbspbrk (name, "*?|<>\""))
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3074 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3075 errno = ENOENT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3076 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3077 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3078
22299
83928cc3329e (sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22039
diff changeset
3079 /* 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
3080 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
3081 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
3082 {
83928cc3329e (sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22039
diff changeset
3083 r[1] = r[2] = '\0';
83928cc3329e (sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22039
diff changeset
3084 }
83928cc3329e (sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22039
diff changeset
3085
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3086 /* 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
3087 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
3088 is a trailing separator. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3089 len = strlen (name);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3090 rootdir = (path >= name + len - 1
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3091 && (IS_DIRECTORY_SEP (*path) || *path == 0));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3092 name = strcpy (alloca (len + 2), name);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3093
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3094 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
3095 {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3096 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
3097
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3098 if (attrs == -1)
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3099 return -1;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3100
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3101 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
3102 wfd.dwFileAttributes = attrs;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3103 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
3104 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
3105 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
3106 strcpy (wfd.cFileName, name);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3107 }
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
3108 else if (rootdir)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3109 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3110 if (!IS_DIRECTORY_SEP (name[len-1]))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3111 strcat (name, "\\");
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3112 if (GetDriveType (name) < 2)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3113 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3114 errno = ENOENT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3115 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3116 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3117 memset (&wfd, 0, sizeof (wfd));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3118 wfd.dwFileAttributes = FILE_ATTRIBUTE_DIRECTORY;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3119 wfd.ftCreationTime = utc_base_ft;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3120 wfd.ftLastAccessTime = utc_base_ft;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3121 wfd.ftLastWriteTime = utc_base_ft;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3122 strcpy (wfd.cFileName, name);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3123 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3124 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3125 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3126 if (IS_DIRECTORY_SEP (name[len-1]))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3127 name[len - 1] = 0;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3128
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3129 /* (This is hacky, but helps when doing file completions on
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3130 network drives.) Optimize by using information available from
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3131 active readdir if possible. */
25193
953155ee541a (stat): Check for directory ending in separator when
Geoff Voelker <voelker@cs.washington.edu>
parents: 24885
diff changeset
3132 len = strlen (dir_pathname);
953155ee541a (stat): Check for directory ending in separator when
Geoff Voelker <voelker@cs.washington.edu>
parents: 24885
diff changeset
3133 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
3134 len--;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3135 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
3136 && strnicmp (name, dir_pathname, len) == 0
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3137 && IS_DIRECTORY_SEP (name[len])
95217
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
3138 && 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
3139 {
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3140 /* This was the last entry returned by readdir. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3141 wfd = dir_find_data;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3142 }
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3143 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3144 {
88048
7c4da276fe17 (stat): Don't do a double check for networked drive.
Jason Rumney <jasonr@gnu.org>
parents: 87999
diff changeset
3145 logon_network_drive (name);
87985
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
3146
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3147 fh = FindFirstFile (name, &wfd);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3148 if (fh == INVALID_HANDLE_VALUE)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3149 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3150 errno = ENOENT;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3151 return -1;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3152 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3153 FindClose (fh);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3154 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3155 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3156
97488
caf9103a3856 (stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents: 97486
diff changeset
3157 /* GetDriveType needs the root directory of NAME's drive. */
caf9103a3856 (stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents: 97486
diff changeset
3158 if (!(strlen (name) >= 2 && IS_DEVICE_SEP (name[1])))
caf9103a3856 (stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents: 97486
diff changeset
3159 devtype = GetDriveType (NULL); /* use root of current diectory */
caf9103a3856 (stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents: 97486
diff changeset
3160 else
caf9103a3856 (stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents: 97486
diff changeset
3161 {
caf9103a3856 (stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents: 97486
diff changeset
3162 strncpy (drive_root, name, 3);
caf9103a3856 (stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents: 97486
diff changeset
3163 drive_root[3] = '\0';
caf9103a3856 (stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents: 97486
diff changeset
3164 devtype = GetDriveType (drive_root);
caf9103a3856 (stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents: 97486
diff changeset
3165 }
caf9103a3856 (stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents: 97486
diff changeset
3166
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3167 if (!(NILP (Vw32_get_true_file_attributes)
97488
caf9103a3856 (stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents: 97486
diff changeset
3168 || (EQ (Vw32_get_true_file_attributes, Qlocal)
caf9103a3856 (stat): Only root directory passed to GetDriveType.
Eli Zaretskii <eliz@gnu.org>
parents: 97486
diff changeset
3169 && devtype != DRIVE_FIXED && devtype != DRIVE_RAMDISK))
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3170 /* 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
3171 && (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
3172 FILE_FLAG_BACKUP_SEMANTICS, NULL))
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3173 != INVALID_HANDLE_VALUE)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3174 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3175 /* 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
3176 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
3177 making a list of file name completions). */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3178 BY_HANDLE_FILE_INFORMATION info;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3179
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3180 if (GetFileInformationByHandle (fh, &info))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3181 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3182 buf->st_nlink = info.nNumberOfLinks;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3183 /* 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
3184 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
3185 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
3186 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
3187 (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
3188 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
3189 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
3190 fake_inode += info.nFileIndexLow;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3191 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3192 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3193 {
23622
0dc79ede9c53 (stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents: 23559
diff changeset
3194 buf->st_nlink = 1;
0dc79ede9c53 (stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents: 23559
diff changeset
3195 fake_inode = 0;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3196 }
23622
0dc79ede9c53 (stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents: 23559
diff changeset
3197
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3198 if (wfd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3199 {
93690
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
3200 buf->st_mode = S_IFDIR;
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3201 }
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3202 else
23622
0dc79ede9c53 (stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents: 23559
diff changeset
3203 {
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3204 switch (GetFileType (fh))
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3205 {
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3206 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
3207 buf->st_mode = S_IFREG;
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3208 break;
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3209 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
3210 buf->st_mode = S_IFIFO;
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3211 break;
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3212 case FILE_TYPE_CHAR:
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3213 case FILE_TYPE_UNKNOWN:
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3214 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
3215 buf->st_mode = S_IFCHR;
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3216 }
23622
0dc79ede9c53 (stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents: 23559
diff changeset
3217 }
0dc79ede9c53 (stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents: 23559
diff changeset
3218 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
3219 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
3220 get_file_owner_and_group (psd, name, buf);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3221 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3222 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3223 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3224 /* 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
3225 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
3226 S_IFDIR : S_IFREG;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3227 buf->st_nlink = 1;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3228 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
3229
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3230 get_file_owner_and_group (NULL, name, buf);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3231 }
95481
4390d64d3328 Make "xfree (NULL)" a no-op; remove useless if-before-xfree.
Jim Meyering <jim@meyering.net>
parents: 95277
diff changeset
3232 xfree (psd);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3233
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3234 #if 0
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3235 /* Not sure if there is any point in this. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3236 if (!NILP (Vw32_generate_fake_inodes))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3237 fake_inode = generate_inode_val (name);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3238 else if (fake_inode == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3239 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3240 /* For want of something better, try to make everything unique. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3241 static DWORD gen_num = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3242 fake_inode = ++gen_num;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3243 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3244 #endif
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3245
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3246 /* 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
3247 if (sizeof (buf->st_ino) == 2)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3248 buf->st_ino = fake_inode ^ (fake_inode >> 16);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3249 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3250 buf->st_ino = fake_inode;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3251
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
3252 /* 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
3253 buf->st_dev = volume_info.serialnum;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3254 buf->st_rdev = volume_info.serialnum;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3255
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3256
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3257 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
3258 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
3259 buf->st_size += wfd.nFileSizeLow;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3260
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3261 /* Convert timestamps to Unix format. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3262 buf->st_mtime = convert_time (wfd.ftLastWriteTime);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3263 buf->st_atime = convert_time (wfd.ftLastAccessTime);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3264 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
3265 buf->st_ctime = convert_time (wfd.ftCreationTime);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3266 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
3267
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3268 /* determine rwx permissions */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3269 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
3270 permission = S_IREAD;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3271 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
3272 permission = S_IREAD | S_IWRITE;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
3273
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3274 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
3275 permission |= S_IEXEC;
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
3276 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
3277 permission |= S_IEXEC;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3278
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3279 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
3280
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3281 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3282 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3283
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3284 /* 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
3285 file timestamps. */
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3286 int
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3287 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
3288 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3289 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
3290 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
3291 unsigned __int64 fake_inode;
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3292 int permission;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3293
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3294 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
3295 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3296 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
3297 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
3298 if (!GetFileInformationByHandle (fh, &info))
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3299 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3300 errno = EACCES;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3301 return -1;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3302 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3303 break;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3304 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
3305 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
3306 goto non_disk;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3307 case FILE_TYPE_CHAR:
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3308 case FILE_TYPE_UNKNOWN:
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3309 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
3310 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
3311 non_disk:
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3312 memset (&info, 0, sizeof (info));
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3313 info.dwFileAttributes = 0;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3314 info.ftCreationTime = utc_base_ft;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3315 info.ftLastAccessTime = utc_base_ft;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3316 info.ftLastWriteTime = utc_base_ft;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3317 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3318
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3319 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
3320 buf->st_mode = S_IFDIR;
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3321
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3322 buf->st_nlink = info.nNumberOfLinks;
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
3323 /* 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
3324 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
3325 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
3326 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
3327 (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
3328 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
3329 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
3330 fake_inode += info.nFileIndexLow;
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3331
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3332 /* 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
3333 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
3334 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
3335 else
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3336 buf->st_ino = fake_inode;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3337
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3338 /* 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
3339 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
3340 available for _WIN32_WINNT >= 0x501. */
94797
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
3341 buf->st_uid = dflt_passwd.pw_uid;
89a5cb9cf680 Rename the_passwd_* to dflt_passwd_*.
Eli Zaretskii <eliz@gnu.org>
parents: 94293
diff changeset
3342 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
3343 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
3344 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
3345
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3346 buf->st_dev = info.dwVolumeSerialNumber;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3347 buf->st_rdev = info.dwVolumeSerialNumber;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3348
94814
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
3349 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
3350 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
3351 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
3352
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3353 /* Convert timestamps to Unix format. */
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3354 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
3355 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
3356 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
3357 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
3358 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
3359
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3360 /* determine rwx permissions */
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3361 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
3362 permission = S_IREAD;
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3363 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
3364 permission = S_IREAD | S_IWRITE;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
3365
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3366 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
3367 permission |= S_IEXEC;
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3368 else
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3369 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3370 #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
3371 char * p = strrchr (name, '.');
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3372 if (p != NULL &&
95217
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
3373 (xstrcasecmp (p, ".exe") == 0 ||
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
3374 xstrcasecmp (p, ".com") == 0 ||
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
3375 xstrcasecmp (p, ".bat") == 0 ||
cb71cb48eb66 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 94963
diff changeset
3376 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
3377 permission |= S_IEXEC;
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3378 #endif
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3379 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3380
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3381 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
3382
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3383 return 0;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3384 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3385
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3386 int
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3387 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
3388 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3389 struct utimbuf deftime;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3390 HANDLE fh;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3391 FILETIME mtime;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3392 FILETIME atime;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3393
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3394 if (times == NULL)
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3395 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3396 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
3397 times = &deftime;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3398 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3399
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3400 /* 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
3401 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
3402 0, OPEN_EXISTING, 0, NULL);
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3403 if (fh)
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3404 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3405 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
3406 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
3407 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
3408 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3409 CloseHandle (fh);
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3410 errno = EACCES;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3411 return -1;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3412 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3413 CloseHandle (fh);
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3414 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3415 else
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3416 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3417 errno = EINVAL;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3418 return -1;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3419 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3420 return 0;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3421 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
3422
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3423
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3424 /* 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
3425 process.c for the Lisp bindings. */
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3426
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3427 /* Helper wrapper functions. */
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3428
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3429 HANDLE WINAPI create_toolhelp32_snapshot(
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3430 DWORD Flags,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3431 DWORD Ignored)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3432 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3433 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
3434
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3435 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
3436 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3437 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
3438 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
3439 GetProcAddress (GetModuleHandle ("kernel32.dll"),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3440 "CreateToolhelp32Snapshot");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3441 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3442 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
3443 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3444 return INVALID_HANDLE_VALUE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3445 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3446 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
3447 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3448
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3449 BOOL WINAPI process32_first(
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3450 HANDLE hSnapshot,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3451 LPPROCESSENTRY32 lppe)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3452 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3453 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
3454
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3455 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
3456 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3457 g_b_init_process32_first = 1;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3458 s_pfn_Process32_First = (Process32First_Proc)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3459 GetProcAddress (GetModuleHandle ("kernel32.dll"),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3460 "Process32First");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3461 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3462 if (s_pfn_Process32_First == NULL)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3463 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3464 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3465 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3466 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
3467 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3468
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3469 BOOL WINAPI process32_next(
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3470 HANDLE hSnapshot,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3471 LPPROCESSENTRY32 lppe)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3472 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3473 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
3474
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3475 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
3476 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3477 g_b_init_process32_next = 1;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3478 s_pfn_Process32_Next = (Process32Next_Proc)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3479 GetProcAddress (GetModuleHandle ("kernel32.dll"),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3480 "Process32Next");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3481 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3482 if (s_pfn_Process32_Next == NULL)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3483 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3484 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3485 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3486 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
3487 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3488
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3489 BOOL WINAPI open_thread_token (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3490 HANDLE ThreadHandle,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3491 DWORD DesiredAccess,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3492 BOOL OpenAsSelf,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3493 PHANDLE TokenHandle)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3494 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3495 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
3496 HMODULE hm_advapi32 = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3497 if (is_windows_9x () == TRUE)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3498 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3499 SetLastError (ERROR_NOT_SUPPORTED);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3500 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3501 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3502 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
3503 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3504 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
3505 hm_advapi32 = LoadLibrary ("Advapi32.dll");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3506 s_pfn_Open_Thread_Token =
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3507 (OpenThreadToken_Proc) GetProcAddress (hm_advapi32, "OpenThreadToken");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3508 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3509 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
3510 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3511 SetLastError (ERROR_NOT_SUPPORTED);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3512 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3513 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3514 return (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3515 s_pfn_Open_Thread_Token (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3516 ThreadHandle,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3517 DesiredAccess,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3518 OpenAsSelf,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3519 TokenHandle)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3520 );
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3521 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3522
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3523 BOOL WINAPI impersonate_self (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3524 SECURITY_IMPERSONATION_LEVEL ImpersonationLevel)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3525 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3526 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
3527 HMODULE hm_advapi32 = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3528 if (is_windows_9x () == TRUE)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3529 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3530 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3531 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3532 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
3533 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3534 g_b_init_impersonate_self = 1;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3535 hm_advapi32 = LoadLibrary ("Advapi32.dll");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3536 s_pfn_Impersonate_Self =
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3537 (ImpersonateSelf_Proc) GetProcAddress (hm_advapi32, "ImpersonateSelf");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3538 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3539 if (s_pfn_Impersonate_Self == NULL)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3540 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3541 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3542 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3543 return s_pfn_Impersonate_Self (ImpersonationLevel);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3544 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3545
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3546 BOOL WINAPI revert_to_self (void)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3547 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3548 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
3549 HMODULE hm_advapi32 = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3550 if (is_windows_9x () == TRUE)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3551 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3552 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3553 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3554 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
3555 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3556 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
3557 hm_advapi32 = LoadLibrary ("Advapi32.dll");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3558 s_pfn_Revert_To_Self =
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3559 (RevertToSelf_Proc) GetProcAddress (hm_advapi32, "RevertToSelf");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3560 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3561 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
3562 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3563 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3564 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3565 return s_pfn_Revert_To_Self ();
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3566 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3567
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3568 BOOL WINAPI get_process_memory_info (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3569 HANDLE h_proc,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3570 PPROCESS_MEMORY_COUNTERS mem_counters,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3571 DWORD bufsize)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3572 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3573 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
3574 HMODULE hm_psapi = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3575 if (is_windows_9x () == TRUE)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3576 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3577 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3578 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3579 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
3580 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3581 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
3582 hm_psapi = LoadLibrary ("Psapi.dll");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3583 if (hm_psapi)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3584 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
3585 GetProcAddress (hm_psapi, "GetProcessMemoryInfo");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3586 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3587 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
3588 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3589 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3590 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3591 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
3592 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3593
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3594 BOOL WINAPI get_process_working_set_size (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3595 HANDLE h_proc,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3596 DWORD *minrss,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3597 DWORD *maxrss)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3598 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3599 static GetProcessWorkingSetSize_Proc
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3600 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
3601
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3602 if (is_windows_9x () == TRUE)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3603 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3604 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3605 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3606 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
3607 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3608 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
3609 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
3610 GetProcAddress (GetModuleHandle ("kernel32.dll"),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3611 "GetProcessWorkingSetSize");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3612 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3613 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
3614 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3615 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3616 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3617 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
3618 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3619
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3620 BOOL WINAPI global_memory_status (
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3621 MEMORYSTATUS *buf)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3622 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3623 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
3624
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3625 if (is_windows_9x () == TRUE)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3626 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3627 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3628 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3629 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
3630 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3631 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
3632 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
3633 GetProcAddress (GetModuleHandle ("kernel32.dll"),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3634 "GlobalMemoryStatus");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3635 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3636 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
3637 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3638 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3639 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3640 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
3641 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3642
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3643 BOOL WINAPI global_memory_status_ex (
97486
2c195017488c (_MEMORY_STATUS_EX, MEMORY_STATUS_EX, LPMEMORY_STATUS_EX): Rename from
Eli Zaretskii <eliz@gnu.org>
parents: 97372
diff changeset
3644 MEMORY_STATUS_EX *buf)
97365
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 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
3647
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3648 if (is_windows_9x () == TRUE)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3649 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3650 return FALSE;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3651 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3652 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
3653 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3654 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
3655 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
3656 GetProcAddress (GetModuleHandle ("kernel32.dll"),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3657 "GlobalMemoryStatusEx");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3658 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3659 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
3660 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3661 return FALSE;
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 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
3664 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3665
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3666 Lisp_Object
100565
dcc7f5970d5c Reorganize implementation of Flist_system_processes and
Dan Nicolaescu <dann@ics.uci.edu>
parents: 100192
diff changeset
3667 list_system_processes ()
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3668 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3669 struct gcpro gcpro1;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3670 Lisp_Object proclist = Qnil;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3671 HANDLE h_snapshot;
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 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
3674
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3675 if (h_snapshot != INVALID_HANDLE_VALUE)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3676 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3677 PROCESSENTRY32 proc_entry;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3678 DWORD proc_id;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3679 BOOL res;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3680
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3681 GCPRO1 (proclist);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3682
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3683 proc_entry.dwSize = sizeof (PROCESSENTRY32);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3684 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
3685 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
3686 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3687 proc_id = proc_entry.th32ProcessID;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3688 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
3689 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3690
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3691 CloseHandle (h_snapshot);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3692 UNGCPRO;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3693 proclist = Fnreverse (proclist);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3694 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3695
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3696 return proclist;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3697 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3698
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3699 static int
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3700 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
3701 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3702 TOKEN_PRIVILEGES priv;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3703 DWORD priv_size = sizeof (priv);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3704 DWORD opriv_size = sizeof (*old_priv);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3705 HANDLE h_token = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3706 HANDLE h_thread = GetCurrentThread ();
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3707 int ret_val = 0;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3708 BOOL res;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3709
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3710 res = open_thread_token (h_thread,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3711 TOKEN_QUERY | TOKEN_ADJUST_PRIVILEGES,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3712 FALSE, &h_token);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3713 if (!res && GetLastError () == ERROR_NO_TOKEN)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3714 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3715 if (impersonate_self (SecurityImpersonation))
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3716 res = open_thread_token (h_thread,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3717 TOKEN_QUERY | TOKEN_ADJUST_PRIVILEGES,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3718 FALSE, &h_token);
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 if (res)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3721 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3722 priv.PrivilegeCount = 1;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3723 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
3724 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
3725 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
3726 old_priv, &opriv_size)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3727 && GetLastError () != ERROR_NOT_ALL_ASSIGNED)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3728 ret_val = 1;
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 (h_token)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3731 CloseHandle (h_token);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3732
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3733 return ret_val;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3734 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3735
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3736 static int
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3737 restore_privilege (TOKEN_PRIVILEGES *priv)
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 DWORD priv_size = sizeof (*priv);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3740 HANDLE h_token = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3741 int ret_val = 0;
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 if (open_thread_token (GetCurrentThread (),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3744 TOKEN_QUERY | TOKEN_ADJUST_PRIVILEGES,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3745 FALSE, &h_token))
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3746 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3747 if (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
3748 && GetLastError () != ERROR_NOT_ALL_ASSIGNED)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3749 ret_val = 1;
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 if (h_token)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3752 CloseHandle (h_token);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3753
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3754 return ret_val;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3755 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3756
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3757 static Lisp_Object
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3758 ltime (time_sec, time_usec)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3759 long time_sec, time_usec;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3760 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3761 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
3762 make_number (time_sec & 0xffff),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3763 make_number (time_usec));
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3764 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3765
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
3766 #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
3767
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3768 static int
100831
e43e429a11bb (process_times): Compute sum of utime and stime.
Eli Zaretskii <eliz@gnu.org>
parents: 100565
diff changeset
3769 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
3770 HANDLE h_proc;
100831
e43e429a11bb (process_times): Compute sum of utime and stime.
Eli Zaretskii <eliz@gnu.org>
parents: 100565
diff changeset
3771 Lisp_Object *ctime, *etime, *stime, *utime, *ttime;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3772 double *pcpu;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3773 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3774 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
3775 ULONGLONG tem1, tem2, tem3, tem;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3776
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3777 if (!h_proc
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3778 || !get_process_times_fn
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3779 || !(*get_process_times_fn)(h_proc, &ft_creation, &ft_exit,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3780 &ft_kernel, &ft_user))
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3781 return 0;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3782
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3783 GetSystemTimeAsFileTime (&ft_current);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3784
100885
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
3785 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
3786 tem1 /= 10L;
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
3787 *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
3788
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
3789 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
3790 tem2 /= 10L;
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
3791 *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
3792
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
3793 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
3794 *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
3795
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
3796 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
3797 /* 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
3798 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
3799 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
3800 *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
3801
97371
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
3802 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
3803 {
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
3804 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
3805 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
3806 }
56164f0c606d * w32.c: Use 64-bit arithmetic to do FILETIME conversions. (Bug#1766)
Juanma Barranquero <lekktu@gmail.com>
parents: 100831
diff changeset
3807 *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
3808
97371
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
3809 if (tem)
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
3810 {
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
3811 *pcpu = 100.0 * (tem1 + tem2) / tem;
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
3812 if (*pcpu > 100)
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
3813 *pcpu = 100.0;
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
3814 }
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
3815 else
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
3816 *pcpu = 0;
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
3817
23de3091fdd0 (process_times): Fix the case of System process.
Eli Zaretskii <eliz@gnu.org>
parents: 97365
diff changeset
3818 return 1;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3819 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3820
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3821 Lisp_Object
100565
dcc7f5970d5c Reorganize implementation of Flist_system_processes and
Dan Nicolaescu <dann@ics.uci.edu>
parents: 100192
diff changeset
3822 system_process_attributes (pid)
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3823 Lisp_Object pid;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3824 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3825 struct gcpro gcpro1, gcpro2, gcpro3;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3826 Lisp_Object attrs = Qnil;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3827 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
3828 HANDLE h_snapshot, h_proc;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3829 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
3830 int found_proc = 0;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3831 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
3832 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
3833 DWORD glength = sizeof (gname);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3834 HANDLE token = NULL;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3835 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
3836 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
3837 DWORD blen = 0;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3838 TOKEN_USER user_token;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3839 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
3840 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
3841 unsigned egid;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3842 DWORD sess;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3843 PROCESS_MEMORY_COUNTERS mem;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3844 PROCESS_MEMORY_COUNTERS_EX mem_ex;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3845 DWORD minrss, maxrss;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3846 MEMORYSTATUS memst;
97486
2c195017488c (_MEMORY_STATUS_EX, MEMORY_STATUS_EX, LPMEMORY_STATUS_EX): Rename from
Eli Zaretskii <eliz@gnu.org>
parents: 97372
diff changeset
3847 MEMORY_STATUS_EX memstex;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3848 double totphys = 0.0;
100831
e43e429a11bb (process_times): Compute sum of utime and stime.
Eli Zaretskii <eliz@gnu.org>
parents: 100565
diff changeset
3849 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
3850 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
3851 BOOL result = FALSE;
97365
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 CHECK_NUMBER_OR_FLOAT (pid);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3854 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
3855
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3856 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
3857
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3858 GCPRO3 (attrs, decoded_cmd, tem);
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 if (h_snapshot != INVALID_HANDLE_VALUE)
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 PROCESSENTRY32 pe;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3863 BOOL res;
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 pe.dwSize = sizeof (PROCESSENTRY32);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3866 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
3867 res = process32_next (h_snapshot, &pe))
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3868 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3869 if (proc_id == pe.th32ProcessID)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3870 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3871 if (proc_id == 0)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3872 decoded_cmd = build_string ("Idle");
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3873 else
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3874 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3875 /* 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
3876 encoding. */
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3877 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
3878 strlen (pe.szExeFile));
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3879 decoded_cmd =
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3880 code_convert_string_norecord (cmd_str,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3881 Vlocale_coding_system, 0);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3882 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3883 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
3884 attrs = Fcons (Fcons (Qppid,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3885 make_fixnum_or_float (pe.th32ParentProcessID)),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3886 attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3887 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
3888 attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3889 attrs = Fcons (Fcons (Qthcount,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3890 make_fixnum_or_float (pe.cntThreads)),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3891 attrs);
97372
aeb822613377 (w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents: 97371
diff changeset
3892 found_proc = 1;
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3893 break;
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 }
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 CloseHandle (h_snapshot);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3898 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3899
97372
aeb822613377 (w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents: 97371
diff changeset
3900 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
3901 {
aeb822613377 (w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents: 97371
diff changeset
3902 UNGCPRO;
aeb822613377 (w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents: 97371
diff changeset
3903 return Qnil;
aeb822613377 (w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents: 97371
diff changeset
3904 }
aeb822613377 (w32_system_process_attributes): If the process does not exist, return nil.
Eli Zaretskii <eliz@gnu.org>
parents: 97371
diff changeset
3905
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3906 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
3907 FALSE, proc_id);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3908 /* 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
3909 enabling the SeDebugPrivilege in our process. */
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3910 if (!h_proc)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3911 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3912 TOKEN_PRIVILEGES priv_current;
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 (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
3915 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3916 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
3917 FALSE, proc_id);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3918 restore_privilege (&priv_current);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
3919 revert_to_self ();
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 }
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3922 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
3923 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3924 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
3925 if (result)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3926 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3927 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
3928 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
3929 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3930 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
3931 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
3932 (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
3933 if (result)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3934 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3935 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
3936 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
3937 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3938 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
3939 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
3940 uname, &ulength,
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3941 domain, &dlength,
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3942 &user_type);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3943 if (result)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3944 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
3945 else
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3946 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3947 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
3948 result = TRUE;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3949 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3950 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3951 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
3952 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3953 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3954 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3955 if (result)
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3956 {
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3957 /* 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
3958 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
3959 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3960 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
3961 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
3962 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3963 else
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3964 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3965 /* 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
3966 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
3967 (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
3968 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
3969 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3970 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
3971 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
3972 (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
3973 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3974 if (result)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3975 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3976 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
3977 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
3978 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3979 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
3980 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
3981 result =
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3982 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
3983 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
3984 &user_type);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3985 if (result)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3986 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
3987 egid, gname);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3988 else
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3989 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3990 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
3991 result = TRUE;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3992 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3993 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3994 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
3995 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3996 }
97491
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
3997 }
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3998 if (buf)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
3999 xfree (buf);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4000 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4001 if (!result)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4002 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4003 if (!is_windows_9x ())
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4004 {
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4005 /* 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
4006 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
4007 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
4008 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
4009 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
4010 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
4011 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
4012 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
4013 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
4014 }
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4015 /* 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
4016 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
4017 user. */
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4018 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
4019 {
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4020 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
4021 euid = 0;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4022 else
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4023 euid = 123;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4024 egid = euid;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4025 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
4026 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
4027 ulength = strlen (uname);
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4028 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4029 else
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4030 {
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4031 euid = 123;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4032 egid = 123;
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4033 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
4034 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
4035 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
4036 glength = strlen (gname);
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4037 }
97875
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4038 if (token)
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4039 CloseHandle (token);
a77c2abc7237 (init_user_info): Allocate buf[] with xmalloc using the size needed by
Eli Zaretskii <eliz@gnu.org>
parents: 97495
diff changeset
4040 }
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4041
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4042 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
4043 tem = make_unibyte_string (uname, ulength);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4044 attrs = Fcons (Fcons (Quser,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4045 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
4046 attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4047 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
4048 tem = make_unibyte_string (gname, glength);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4049 attrs = Fcons (Fcons (Qgroup,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4050 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
4051 attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4052
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4053 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
4054 #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
4055 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
4056 #else
1f8e4a26957e (w32_system_process_attributes) [_MSC_VER < 1300]: Alternative calculation
Eli Zaretskii <eliz@gnu.org>
parents: 97491
diff changeset
4057 /* 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
4058 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
4059 {
1f8e4a26957e (w32_system_process_attributes) [_MSC_VER < 1300]: Alternative calculation
Eli Zaretskii <eliz@gnu.org>
parents: 97491
diff changeset
4060 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
4061 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
4062 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
4063
1f8e4a26957e (w32_system_process_attributes) [_MSC_VER < 1300]: Alternative calculation
Eli Zaretskii <eliz@gnu.org>
parents: 97491
diff changeset
4064 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
4065 }
1f8e4a26957e (w32_system_process_attributes) [_MSC_VER < 1300]: Alternative calculation
Eli Zaretskii <eliz@gnu.org>
parents: 97491
diff changeset
4066 #endif /* __GNUC__ || _MSC_VER >= 1300 */
97365
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4067 else if (global_memory_status (&memst))
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4068 totphys = memst.dwTotalPhys / 1024.0;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4069
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4070 if (h_proc
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4071 && 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
4072 sizeof (mem_ex)))
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4073 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4074 DWORD rss = mem_ex.WorkingSetSize / 1024;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4075
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4076 attrs = Fcons (Fcons (Qmajflt,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4077 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
4078 attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4079 attrs = Fcons (Fcons (Qvsize,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4080 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
4081 attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4082 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
4083 if (totphys)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4084 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
4085 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4086 else if (h_proc
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4087 && 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
4088 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4089 DWORD rss = mem_ex.WorkingSetSize / 1024;
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 attrs = Fcons (Fcons (Qmajflt,
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4092 make_fixnum_or_float (mem.PageFaultCount)),
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4093 attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4094 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
4095 if (totphys)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4096 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
4097 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4098 else if (h_proc
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4099 && 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
4100 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4101 DWORD rss = maxrss / 1024;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4102
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4103 attrs = Fcons (Fcons (Qrss, make_fixnum_or_float (maxrss / 1024)), attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4104 if (totphys)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4105 attrs = Fcons (Fcons (Qpmem, make_float (100. * rss / totphys)), attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4106 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4107
100831
e43e429a11bb (process_times): Compute sum of utime and stime.
Eli Zaretskii <eliz@gnu.org>
parents: 100565
diff changeset
4108 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
4109 {
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4110 attrs = Fcons (Fcons (Qutime, utime), attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4111 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
4112 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
4113 attrs = Fcons (Fcons (Qstart, ctime), attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4114 attrs = Fcons (Fcons (Qetime, etime), attrs);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4115 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
4116 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4117
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4118 /* 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
4119
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4120 if (h_proc)
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4121 CloseHandle (h_proc);
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4122 UNGCPRO;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4123 return attrs;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4124 }
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4125
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
4126
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4127 #ifdef HAVE_SOCKETS
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4128
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4129 /* 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
4130 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
4131
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4132 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
4133 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
4134 otherwise provide the minimum necessary functionality
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4135 (eg. gethostname). */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4136
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4137 /* function pointers for relevant socket functions */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4138 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
4139 void (PASCAL *pfn_WSASetLastError) (int iError);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4140 int (PASCAL *pfn_WSAGetLastError) (void);
71889
2385a5c8186c Fix high cpu load for server sockets.
Kim F. Storm <storm@cua.dk>
parents: 70740
diff changeset
4141 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
4142 HANDLE (PASCAL *pfn_WSACreateEvent) (void);
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
4143 int (PASCAL *pfn_WSACloseEvent) (HANDLE hEvent);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4144 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
4145 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
4146 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
4147 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
4148 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
4149 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
4150 int (PASCAL *pfn_closesocket) (SOCKET s);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4151 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
4152 int (PASCAL *pfn_WSACleanup) (void);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4153
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4154 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
4155 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
4156 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
4157 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
4158 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
4159 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
4160 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
4161 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
4162 const char * optval, int optlen);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4163 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
4164 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
4165 int * namelen);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4166 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
4167 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
4168 struct sockaddr * from, int * fromlen);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4169 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
4170 const struct sockaddr * to, int tolen);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4171
15342
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4172 /* 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
4173 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
4174 #ifndef HANDLE_FLAG_INHERIT
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4175 #define HANDLE_FLAG_INHERIT 1
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4176 #endif
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4177
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4178 HANDLE winsock_lib;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4179 static int winsock_inuse;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4180
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4181 BOOL
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4182 term_winsock (void)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4183 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4184 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
4185 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4186 /* 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
4187 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
4188 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
4189 if (pfn_WSACleanup () == 0 ||
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4190 pfn_WSAGetLastError () == WSAENETDOWN)
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4191 {
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4192 if (FreeLibrary (winsock_lib))
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4193 winsock_lib = NULL;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4194 return TRUE;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4195 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4196 }
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4197 return FALSE;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4198 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4199
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4200 BOOL
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4201 init_winsock (int load_now)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4202 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4203 WSADATA winsockData;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4204
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4205 if (winsock_lib != NULL)
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4206 return TRUE;
15342
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4207
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4208 pfn_SetHandleInformation = NULL;
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4209 pfn_SetHandleInformation
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4210 = (void *) GetProcAddress (GetModuleHandle ("kernel32.dll"),
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4211 "SetHandleInformation");
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
4212
71899
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
4213 winsock_lib = LoadLibrary ("Ws2_32.dll");
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4214
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4215 if (winsock_lib != NULL)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4216 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4217 /* dynamically link to socket functions */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4218
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4219 #define LOAD_PROC(fn) \
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4220 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
4221 goto fail;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4222
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4223 LOAD_PROC( WSAStartup );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4224 LOAD_PROC( WSASetLastError );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4225 LOAD_PROC( WSAGetLastError );
71889
2385a5c8186c Fix high cpu load for server sockets.
Kim F. Storm <storm@cua.dk>
parents: 70740
diff changeset
4226 LOAD_PROC( WSAEventSelect );
71899
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
4227 LOAD_PROC( WSACreateEvent );
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
4228 LOAD_PROC( WSACloseEvent );
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4229 LOAD_PROC( socket );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4230 LOAD_PROC( bind );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4231 LOAD_PROC( connect );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4232 LOAD_PROC( ioctlsocket );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4233 LOAD_PROC( recv );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4234 LOAD_PROC( send );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4235 LOAD_PROC( closesocket );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4236 LOAD_PROC( shutdown );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4237 LOAD_PROC( htons );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4238 LOAD_PROC( ntohs );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4239 LOAD_PROC( inet_addr );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4240 LOAD_PROC( gethostname );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4241 LOAD_PROC( gethostbyname );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4242 LOAD_PROC( getservbyname );
45090
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4243 LOAD_PROC( getpeername );
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4244 LOAD_PROC( WSACleanup );
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4245 LOAD_PROC( setsockopt );
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4246 LOAD_PROC( listen );
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4247 LOAD_PROC( getsockname );
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4248 LOAD_PROC( accept );
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4249 LOAD_PROC( recvfrom );
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4250 LOAD_PROC( sendto );
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4251 #undef LOAD_PROC
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4252
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4253 /* specify version 1.1 of winsock */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4254 if (pfn_WSAStartup (0x101, &winsockData) == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4255 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4256 if (winsockData.wVersion != 0x101)
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4257 goto fail;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4258
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4259 if (!load_now)
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4260 {
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4261 /* 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
4262 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
4263 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
4264 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
4265 connection to be established. */
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4266
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4267 pfn_WSACleanup ();
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4268 FreeLibrary (winsock_lib);
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4269 winsock_lib = NULL;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4270 }
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4271 winsock_inuse = 0;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4272 return TRUE;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4273 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4274
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4275 fail:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4276 FreeLibrary (winsock_lib);
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4277 winsock_lib = NULL;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4278 }
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4279
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4280 return FALSE;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4281 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4282
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4283
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4284 int h_errno = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4285
96462
c74d39c72729 Spelling fix.
Glenn Morris <rgm@gnu.org>
parents: 96376
diff changeset
4286 /* 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
4287 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
4288 are already in <sys/socket.h> */
74947
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
4289 static void
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
4290 set_errno ()
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4291 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4292 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4293 h_errno = EINVAL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4294 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4295 h_errno = pfn_WSAGetLastError ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4296
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4297 switch (h_errno)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4298 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4299 case WSAEACCES: h_errno = EACCES; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4300 case WSAEBADF: h_errno = EBADF; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4301 case WSAEFAULT: h_errno = EFAULT; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4302 case WSAEINTR: h_errno = EINTR; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4303 case WSAEINVAL: h_errno = EINVAL; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4304 case WSAEMFILE: h_errno = EMFILE; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4305 case WSAENAMETOOLONG: h_errno = ENAMETOOLONG; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4306 case WSAENOTEMPTY: h_errno = ENOTEMPTY; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4307 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4308 errno = h_errno;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4309 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4310
74947
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
4311 static void
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
4312 check_errno ()
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4313 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4314 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
4315 pfn_WSASetLastError (0);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4316 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4317
24857
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4318 /* Extend strerror to handle the winsock-specific error codes. */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4319 struct {
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4320 int errnum;
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4321 char * msg;
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4322 } _wsa_errlist[] = {
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4323 WSAEINTR , "Interrupted function call",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4324 WSAEBADF , "Bad file descriptor",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4325 WSAEACCES , "Permission denied",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4326 WSAEFAULT , "Bad address",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4327 WSAEINVAL , "Invalid argument",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4328 WSAEMFILE , "Too many open files",
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4329
24857
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4330 WSAEWOULDBLOCK , "Resource temporarily unavailable",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4331 WSAEINPROGRESS , "Operation now in progress",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4332 WSAEALREADY , "Operation already in progress",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4333 WSAENOTSOCK , "Socket operation on non-socket",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4334 WSAEDESTADDRREQ , "Destination address required",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4335 WSAEMSGSIZE , "Message too long",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4336 WSAEPROTOTYPE , "Protocol wrong type for socket",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4337 WSAENOPROTOOPT , "Bad protocol option",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4338 WSAEPROTONOSUPPORT , "Protocol not supported",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4339 WSAESOCKTNOSUPPORT , "Socket type not supported",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4340 WSAEOPNOTSUPP , "Operation not supported",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4341 WSAEPFNOSUPPORT , "Protocol family not supported",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4342 WSAEAFNOSUPPORT , "Address family not supported by protocol family",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4343 WSAEADDRINUSE , "Address already in use",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4344 WSAEADDRNOTAVAIL , "Cannot assign requested address",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4345 WSAENETDOWN , "Network is down",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4346 WSAENETUNREACH , "Network is unreachable",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4347 WSAENETRESET , "Network dropped connection on reset",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4348 WSAECONNABORTED , "Software caused connection abort",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4349 WSAECONNRESET , "Connection reset by peer",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4350 WSAENOBUFS , "No buffer space available",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4351 WSAEISCONN , "Socket is already connected",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4352 WSAENOTCONN , "Socket is not connected",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4353 WSAESHUTDOWN , "Cannot send after socket shutdown",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4354 WSAETOOMANYREFS , "Too many references", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4355 WSAETIMEDOUT , "Connection timed out",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4356 WSAECONNREFUSED , "Connection refused",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4357 WSAELOOP , "Network loop", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4358 WSAENAMETOOLONG , "Name is too long",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4359 WSAEHOSTDOWN , "Host is down",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4360 WSAEHOSTUNREACH , "No route to host",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4361 WSAENOTEMPTY , "Buffer not empty", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4362 WSAEPROCLIM , "Too many processes",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4363 WSAEUSERS , "Too many users", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4364 WSAEDQUOT , "Double quote in host name", /* really not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4365 WSAESTALE , "Data is stale", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4366 WSAEREMOTE , "Remote error", /* not sure */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4367
24857
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4368 WSASYSNOTREADY , "Network subsystem is unavailable",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4369 WSAVERNOTSUPPORTED , "WINSOCK.DLL version out of range",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4370 WSANOTINITIALISED , "Winsock not initialized successfully",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4371 WSAEDISCON , "Graceful shutdown in progress",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4372 #ifdef WSAENOMORE
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4373 WSAENOMORE , "No more operations allowed", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4374 WSAECANCELLED , "Operation cancelled", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4375 WSAEINVALIDPROCTABLE , "Invalid procedure table from service provider",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4376 WSAEINVALIDPROVIDER , "Invalid service provider version number",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4377 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
4378 WSASYSCALLFAILURE , "System call failure",
24857
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4379 WSASERVICE_NOT_FOUND , "Service not found", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4380 WSATYPE_NOT_FOUND , "Class type not found",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4381 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
4382 WSA_E_CANCELLED , "Operation already cancelled", /* really not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4383 WSAEREFUSED , "Operation refused", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4384 #endif
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4385
24857
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4386 WSAHOST_NOT_FOUND , "Host not found",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4387 WSATRY_AGAIN , "Authoritative host not found during name lookup",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4388 WSANO_RECOVERY , "Non-recoverable error during name lookup",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4389 WSANO_DATA , "Valid name, no data record of requested type",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4390
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4391 -1, NULL
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4392 };
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4393
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4394 char *
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4395 sys_strerror(int error_no)
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4396 {
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4397 int i;
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4398 static char unknown_msg[40];
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4399
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
4400 if (error_no >= 0 && error_no < sys_nerr)
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
4401 return sys_errlist[error_no];
24857
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4402
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4403 for (i = 0; _wsa_errlist[i].errnum >= 0; i++)
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4404 if (_wsa_errlist[i].errnum == error_no)
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4405 return _wsa_errlist[i].msg;
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4406
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4407 sprintf(unknown_msg, "Unidentified error: %d", error_no);
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4408 return unknown_msg;
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4409 }
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
4410
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4411 /* [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
4412 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
4413 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
4414
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4415 //#define SOCK_REPLACE_HANDLE
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4416
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4417 #ifdef SOCK_REPLACE_HANDLE
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4418 #define SOCK_HANDLE(fd) ((SOCKET) _get_osfhandle (fd))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4419 #else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4420 #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
4421 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4422
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4423 int socket_to_fd (SOCKET s);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4424
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4425 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4426 sys_socket(int af, int type, int protocol)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4427 {
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4428 SOCKET s;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4429
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4430 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4431 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4432 h_errno = ENETDOWN;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4433 return INVALID_SOCKET;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4434 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4435
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4436 check_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4437
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4438 /* call the real socket function */
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4439 s = pfn_socket (af, type, protocol);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4440
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4441 if (s != INVALID_SOCKET)
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4442 return socket_to_fd (s);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4443
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4444 set_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4445 return -1;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4446 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4447
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4448 /* Convert a SOCKET to a file descriptor. */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4449 int
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4450 socket_to_fd (SOCKET s)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4451 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4452 int fd;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4453 child_process * cp;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4454
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4455 /* 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
4456 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
4457 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
4458 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
4459 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
4460
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4461 /* 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
4462 fd = _open ("NUL:", _O_RDWR);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4463 if (fd >= 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4464 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4465 #ifdef SOCK_REPLACE_HANDLE
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4466 /* now replace handle to NUL with our socket handle */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4467 CloseHandle ((HANDLE) _get_osfhandle (fd));
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4468 _free_osfhnd (fd);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4469 _set_osfhnd (fd, s);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4470 /* setmode (fd, _O_BINARY); */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4471 #else
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4472 /* 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
4473 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
4474 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
4475 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
4476 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4477 /* 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
4478 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
4479 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
4480 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
4481 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
4482 if (pfn_SetHandleInformation)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4483 {
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4484 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
4485 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4486 else
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4487 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4488 HANDLE parent = GetCurrentProcess ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4489 HANDLE new_s = INVALID_HANDLE_VALUE;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4490
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4491 if (DuplicateHandle (parent,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4492 (HANDLE) s,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4493 parent,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4494 &new_s,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4495 0,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4496 FALSE,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4497 DUPLICATE_SAME_ACCESS))
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
4498 {
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4499 /* 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
4500 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
4501 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
4502 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
4503 long nonblocking = 0;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4504 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
4505 {
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4506 pfn_closesocket (s);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4507 s = (SOCKET) new_s;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4508 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4509 else
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4510 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4511 CloseHandle (new_s);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4512 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4513 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4514 }
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4515 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4516 fd_info[fd].hnd = (HANDLE) s;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4517 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4518
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4519 /* set our own internal flags */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4520 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
4521
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4522 cp = new_child ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4523 if (cp)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4524 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4525 cp->fd = fd;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4526 cp->status = STATUS_READ_ACKNOWLEDGED;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4527
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4528 /* attach child_process to fd_info */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4529 if (fd_info[ fd ].cp != NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4530 {
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4531 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
4532 abort ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4533 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4534
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4535 fd_info[ fd ].cp = cp;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4536
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4537 /* success! */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4538 winsock_inuse++; /* count open sockets */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4539 return fd;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4540 }
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4541
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4542 /* clean up */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4543 _close (fd);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4544 }
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4545 pfn_closesocket (s);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4546 h_errno = EMFILE;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4547 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4548 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4549
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4550
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4551 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4552 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
4553 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4554 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4555 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4556 h_errno = ENOTSOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4557 return SOCKET_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4558 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4559
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4560 check_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4561 if (fd_info[s].flags & FILE_SOCKET)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4562 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4563 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
4564 if (rc == SOCKET_ERROR)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4565 set_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4566 return rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4567 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4568 h_errno = ENOTSOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4569 return SOCKET_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4570 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4571
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4572
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4573 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4574 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
4575 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4576 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4577 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4578 h_errno = ENOTSOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4579 return SOCKET_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4580 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4581
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4582 check_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4583 if (fd_info[s].flags & FILE_SOCKET)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4584 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4585 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
4586 if (rc == SOCKET_ERROR)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4587 set_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4588 return rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4589 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4590 h_errno = ENOTSOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4591 return SOCKET_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4592 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4593
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4594 u_short
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4595 sys_htons (u_short hostshort)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4596 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4597 return (winsock_lib != NULL) ?
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4598 pfn_htons (hostshort) : hostshort;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4599 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4600
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4601 u_short
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4602 sys_ntohs (u_short netshort)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4603 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4604 return (winsock_lib != NULL) ?
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4605 pfn_ntohs (netshort) : netshort;
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
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4608 unsigned long
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4609 sys_inet_addr (const char * cp)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4610 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4611 return (winsock_lib != NULL) ?
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4612 pfn_inet_addr (cp) : INADDR_NONE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4613 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4614
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4615 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4616 sys_gethostname (char * name, int namelen)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4617 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4618 if (winsock_lib != NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4619 return pfn_gethostname (name, namelen);
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 if (namelen > MAX_COMPUTERNAME_LENGTH)
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
4622 return !GetComputerName (name, (DWORD *)&namelen);
15141
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 h_errno = EFAULT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4625 return SOCKET_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4626 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4627
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4628 struct hostent *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4629 sys_gethostbyname(const char * name)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4630 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4631 struct hostent * host;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4632
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4633 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4634 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4635 h_errno = ENETDOWN;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4636 return NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4637 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4638
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4639 check_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4640 host = pfn_gethostbyname (name);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4641 if (!host)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4642 set_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4643 return host;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4644 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4645
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4646 struct servent *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4647 sys_getservbyname(const char * name, const char * proto)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4648 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4649 struct servent * serv;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4650
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4651 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4652 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4653 h_errno = ENETDOWN;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4654 return NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4655 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4656
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4657 check_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4658 serv = pfn_getservbyname (name, proto);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4659 if (!serv)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4660 set_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4661 return serv;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4662 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4663
18725
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4664 int
45090
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4665 sys_getpeername (int s, struct sockaddr *addr, int * namelen)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4666 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4667 if (winsock_lib == NULL)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4668 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4669 h_errno = ENETDOWN;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4670 return SOCKET_ERROR;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4671 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4672
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4673 check_errno ();
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4674 if (fd_info[s].flags & FILE_SOCKET)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4675 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4676 int rc = pfn_getpeername (SOCK_HANDLE (s), addr, namelen);
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4677 if (rc == SOCKET_ERROR)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4678 set_errno ();
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4679 return rc;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4680 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4681 h_errno = ENOTSOCK;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4682 return SOCKET_ERROR;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4683 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4684
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4685
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4686 int
18725
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4687 sys_shutdown (int s, int how)
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4688 {
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4689 if (winsock_lib == NULL)
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4690 {
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4691 h_errno = ENETDOWN;
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4692 return SOCKET_ERROR;
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4693 }
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4694
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4695 check_errno ();
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4696 if (fd_info[s].flags & FILE_SOCKET)
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4697 {
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4698 int rc = pfn_shutdown (SOCK_HANDLE (s), how);
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4699 if (rc == SOCKET_ERROR)
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4700 set_errno ();
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4701 return rc;
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4702 }
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4703 h_errno = ENOTSOCK;
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4704 return SOCKET_ERROR;
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4705 }
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
4706
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4707 int
63038
ac1cd1222417 (sys_setsockopt): Change arg 4 to `const void *'. In the
Eli Zaretskii <eliz@gnu.org>
parents: 63020
diff changeset
4708 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
4709 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4710 if (winsock_lib == NULL)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4711 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4712 h_errno = ENETDOWN;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4713 return SOCKET_ERROR;
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
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4716 check_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4717 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
4718 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4719 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
4720 (const char *)optval, optlen);
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4721 if (rc == SOCKET_ERROR)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4722 set_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4723 return rc;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4724 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4725 h_errno = ENOTSOCK;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4726 return SOCKET_ERROR;
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4727 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4728
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4729 int
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4730 sys_listen (int s, int backlog)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4731 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4732 if (winsock_lib == NULL)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4733 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4734 h_errno = ENETDOWN;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4735 return SOCKET_ERROR;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4736 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4737
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4738 check_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4739 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
4740 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4741 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
4742 if (rc == SOCKET_ERROR)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4743 set_errno ();
71889
2385a5c8186c Fix high cpu load for server sockets.
Kim F. Storm <storm@cua.dk>
parents: 70740
diff changeset
4744 else
71899
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
4745 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
4746 return rc;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4747 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4748 h_errno = ENOTSOCK;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4749 return SOCKET_ERROR;
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4750 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4751
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4752 int
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4753 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
4754 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4755 if (winsock_lib == NULL)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4756 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4757 h_errno = ENETDOWN;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4758 return SOCKET_ERROR;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4759 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4760
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4761 check_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4762 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
4763 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4764 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
4765 if (rc == SOCKET_ERROR)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4766 set_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4767 return rc;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4768 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4769 h_errno = ENOTSOCK;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4770 return SOCKET_ERROR;
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4771 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4772
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4773 int
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4774 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
4775 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4776 if (winsock_lib == NULL)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4777 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4778 h_errno = ENETDOWN;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4779 return -1;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4780 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4781
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4782 check_errno ();
71889
2385a5c8186c Fix high cpu load for server sockets.
Kim F. Storm <storm@cua.dk>
parents: 70740
diff changeset
4783 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
4784 {
44437
81e8a128e49f (sys_accept): Don't hide variable `s'.
Juanma Barranquero <lekktu@gmail.com>
parents: 44042
diff changeset
4785 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
4786 int fd = -1;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
4787 if (t == INVALID_SOCKET)
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
4788 set_errno ();
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
4789 else
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
4790 fd = socket_to_fd (t);
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
4791
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
4792 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
4793 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
4794 return fd;
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4795 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4796 h_errno = ENOTSOCK;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4797 return -1;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4798 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4799
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4800 int
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4801 sys_recvfrom (int s, char * buf, int len, int flags,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4802 struct sockaddr * from, int * fromlen)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4803 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4804 if (winsock_lib == NULL)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4805 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4806 h_errno = ENETDOWN;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4807 return SOCKET_ERROR;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4808 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4809
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4810 check_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4811 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
4812 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4813 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
4814 if (rc == SOCKET_ERROR)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4815 set_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4816 return rc;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4817 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4818 h_errno = ENOTSOCK;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4819 return SOCKET_ERROR;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4820 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4821
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4822 int
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4823 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
4824 const struct sockaddr * to, int tolen)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4825 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4826 if (winsock_lib == NULL)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4827 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4828 h_errno = ENETDOWN;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4829 return SOCKET_ERROR;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4830 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4831
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4832 check_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4833 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
4834 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4835 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
4836 if (rc == SOCKET_ERROR)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4837 set_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4838 return rc;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4839 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4840 h_errno = ENOTSOCK;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4841 return SOCKET_ERROR;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4842 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
4843
45090
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4844 /* 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
4845 solely for making sockets non-blocking. */
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4846 int
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4847 fcntl (int s, int cmd, int options)
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 if (winsock_lib == NULL)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4850 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4851 h_errno = ENETDOWN;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4852 return -1;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4853 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4854
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4855 check_errno ();
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4856 if (fd_info[s].flags & FILE_SOCKET)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4857 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4858 if (cmd == F_SETFL && options == O_NDELAY)
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 unsigned long nblock = 1;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4861 int rc = pfn_ioctlsocket (SOCK_HANDLE (s), FIONBIO, &nblock);
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4862 if (rc == SOCKET_ERROR)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4863 set_errno();
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4864 /* 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
4865 fd_info[s].flags |= FILE_NDELAY;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4866 return rc;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4867 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4868 else
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4869 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4870 h_errno = EINVAL;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4871 return SOCKET_ERROR;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4872 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4873 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4874 h_errno = ENOTSOCK;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4875 return SOCKET_ERROR;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4876 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
4877
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4878 #endif /* HAVE_SOCKETS */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4879
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4880
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4881 /* 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
4882 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
4883
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4884 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4885 sys_close (int fd)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4886 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4887 int rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4888
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
4889 if (fd < 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4890 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4891 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4892 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4893 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4894
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
4895 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
4896 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4897 child_process * cp = fd_info[fd].cp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4898
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4899 fd_info[fd].cp = NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4900
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4901 if (CHILD_ACTIVE (cp))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4902 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4903 /* 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
4904 int i;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4905 for (i = 0; i < MAXDESC; i++)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4906 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4907 if (i == fd)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4908 continue;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4909 if (fd_info[i].cp == cp)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4910 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4911 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4912 if (i == MAXDESC)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4913 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4914 #ifdef HAVE_SOCKETS
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4915 if (fd_info[fd].flags & FILE_SOCKET)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4916 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4917 #ifndef SOCK_REPLACE_HANDLE
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4918 if (winsock_lib == NULL) abort ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4919
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4920 pfn_shutdown (SOCK_HANDLE (fd), 2);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4921 rc = pfn_closesocket (SOCK_HANDLE (fd));
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4922 #endif
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4923 winsock_inuse--; /* count open sockets */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4924 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4925 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4926 delete_child (cp);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4927 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4928 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4929 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4930
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4931 /* 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
4932 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
4933 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
4934 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
4935 rc = _close (fd);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4936
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
4937 if (rc == 0 && fd < MAXDESC)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4938 fd_info[fd].flags = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4939
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4940 return rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4941 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4942
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4943 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4944 sys_dup (int fd)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4945 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4946 int new_fd;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4947
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4948 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
4949 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
4950 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4951 /* duplicate our internal info as well */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4952 fd_info[new_fd] = fd_info[fd];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4953 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4954 return new_fd;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4955 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4956
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4957
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4958 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4959 sys_dup2 (int src, int dst)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4960 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4961 int rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4962
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4963 if (dst < 0 || dst >= MAXDESC)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4964 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4965 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4966 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4967 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4968
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4969 /* 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
4970 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
4971 sys_close (dst);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4972
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4973 rc = _dup2 (src, dst);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4974 if (rc == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4975 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4976 /* duplicate our internal info as well */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4977 fd_info[dst] = fd_info[src];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4978 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4979 return rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4980 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4981
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4982 /* Unix pipe() has only one arg */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4983 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4984 sys_pipe (int * phandles)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4985 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4986 int rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4987 unsigned flags;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4988
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4989 /* 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
4990 replace the relevant handle with an inheritable one. Also put
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4991 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
4992 if required. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4993 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
4994
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4995 if (rc == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4996 {
52353
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
4997 /* 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
4998 our fd_info array has room for. */
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
4999 if (phandles[0] >= MAXDESC || phandles[1] >= MAXDESC)
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5000 {
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5001 _close (phandles[0]);
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5002 _close (phandles[1]);
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5003 rc = -1;
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5004 }
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5005 else
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5006 {
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5007 flags = FILE_PIPE | FILE_READ | FILE_BINARY;
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5008 fd_info[phandles[0]].flags = flags;
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5009
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5010 flags = FILE_PIPE | FILE_WRITE | FILE_BINARY;
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5011 fd_info[phandles[1]].flags = flags;
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
5012 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5013 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5014
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5015 return rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5016 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5017
15249
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5018 /* From ntproc.c */
55643
ed93b07d7123 (_sys_read_ahead): Use w32_pipe_read_delay.
Jason Rumney <jasonr@gnu.org>
parents: 53123
diff changeset
5019 extern int w32_pipe_read_delay;
15249
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5020
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5021 /* 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
5022 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
5023 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5024 _sys_read_ahead (int fd)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5025 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5026 child_process * cp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5027 int rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5028
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5029 if (fd < 0 || fd >= MAXDESC)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5030 return STATUS_READ_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5031
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5032 cp = fd_info[fd].cp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5033
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5034 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
5035 return STATUS_READ_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5036
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5037 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
5038 || (fd_info[fd].flags & FILE_READ) == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5039 {
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5040 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
5041 abort ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5042 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5043
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5044 cp->status = STATUS_READ_IN_PROGRESS;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5045
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5046 if (fd_info[fd].flags & FILE_PIPE)
15249
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5047 {
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5048 rc = _read (fd, &cp->chr, sizeof (char));
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5049
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5050 /* 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
5051 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
5052 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
5053 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
5054 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
5055 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
5056 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
5057 if (rc > 0)
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5058 {
55643
ed93b07d7123 (_sys_read_ahead): Use w32_pipe_read_delay.
Jason Rumney <jasonr@gnu.org>
parents: 53123
diff changeset
5059 int wait = w32_pipe_read_delay;
15249
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5060
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5061 if (wait > 0)
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5062 Sleep (wait);
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5063 else if (wait < 0)
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5064 while (++wait <= 0)
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5065 /* 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
5066 temporary priority boost to the child process. */
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5067 Sleep (0);
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5068 }
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
5069 }
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5070 else if (fd_info[fd].flags & FILE_SERIAL)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5071 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5072 HANDLE hnd = fd_info[fd].hnd;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5073 OVERLAPPED *ovl = &fd_info[fd].cp->ovl_read;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5074 COMMTIMEOUTS ct;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5075
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5076 /* Configure timeouts for blocking read. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5077 if (!GetCommTimeouts (hnd, &ct))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5078 return STATUS_READ_ERROR;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5079 ct.ReadIntervalTimeout = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5080 ct.ReadTotalTimeoutMultiplier = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5081 ct.ReadTotalTimeoutConstant = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5082 if (!SetCommTimeouts (hnd, &ct))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5083 return STATUS_READ_ERROR;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5084
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5085 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
5086 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5087 if (GetLastError () != ERROR_IO_PENDING)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5088 return STATUS_READ_ERROR;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5089 if (!GetOverlappedResult (hnd, ovl, (DWORD*) &rc, TRUE))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5090 return STATUS_READ_ERROR;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5091 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5092 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5093 #ifdef HAVE_SOCKETS
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5094 else if (fd_info[fd].flags & FILE_SOCKET)
45090
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5095 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5096 unsigned long nblock = 0;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5097 /* 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
5098 if (fd_info[fd].flags & FILE_NDELAY)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5099 pfn_ioctlsocket (SOCK_HANDLE (fd), FIONBIO, &nblock);
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5100
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5101 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
5102
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5103 if (fd_info[fd].flags & FILE_NDELAY)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5104 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5105 nblock = 1;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5106 pfn_ioctlsocket (SOCK_HANDLE (fd), FIONBIO, &nblock);
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5107 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
5108 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5109 #endif
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5110
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5111 if (rc == sizeof (char))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5112 cp->status = STATUS_READ_SUCCEEDED;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5113 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5114 cp->status = STATUS_READ_FAILED;
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 return cp->status;
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
74947
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
5119 int
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
5120 _sys_wait_accept (int fd)
71899
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5121 {
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5122 HANDLE hEv;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5123 child_process * cp;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5124 int rc;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5125
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5126 if (fd < 0 || fd >= MAXDESC)
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5127 return STATUS_READ_ERROR;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5128
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5129 cp = fd_info[fd].cp;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5130
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5131 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
5132 return STATUS_READ_ERROR;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5133
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5134 cp->status = STATUS_READ_FAILED;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5135
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5136 hEv = pfn_WSACreateEvent ();
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5137 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
5138 if (rc != SOCKET_ERROR)
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5139 {
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5140 rc = WaitForSingleObject (hEv, INFINITE);
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5141 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
5142 if (rc == WAIT_OBJECT_0)
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5143 cp->status = STATUS_READ_SUCCEEDED;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5144 }
74786
4f26e07fd85d (_sys_wait_accept): Fix handle leak.
Kim F. Storm <storm@cua.dk>
parents: 72631
diff changeset
5145 pfn_WSACloseEvent (hEv);
71899
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5146
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5147 return cp->status;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5148 }
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
5149
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5150 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5151 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
5152 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5153 int nchars;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5154 int to_read;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5155 DWORD waiting;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5156 char * orig_buffer = buffer;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5157
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
5158 if (fd < 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5159 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5160 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5161 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5162 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5163
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5164 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
5165 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5166 child_process *cp = fd_info[fd].cp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5167
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5168 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
5169 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5170 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5171 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5172 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5173
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5174 nchars = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5175
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5176 /* re-read CR carried over from last read */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5177 if (fd_info[fd].flags & FILE_LAST_CR)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5178 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5179 if (fd_info[fd].flags & FILE_BINARY) abort ();
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5180 *buffer++ = 0x0d;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5181 count--;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5182 nchars++;
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5183 fd_info[fd].flags &= ~FILE_LAST_CR;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5184 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5185
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5186 /* 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
5187 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
5188 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
5189 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
5190 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
5191 if (cp)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5192 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5193 int current_status = cp->status;
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 switch (current_status)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5196 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5197 case STATUS_READ_FAILED:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5198 case STATUS_READ_ERROR:
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5199 /* report normal EOF if nothing in buffer */
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5200 if (nchars <= 0)
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5201 fd_info[fd].flags |= FILE_AT_EOF;
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5202 return nchars;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5203
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5204 case STATUS_READ_READY:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5205 case STATUS_READ_IN_PROGRESS:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5206 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
5207 errno = EWOULDBLOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5208 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5209
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5210 case STATUS_READ_SUCCEEDED:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5211 /* consume read-ahead char */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5212 *buffer++ = cp->chr;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5213 count--;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5214 nchars++;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5215 cp->status = STATUS_READ_ACKNOWLEDGED;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5216 ResetEvent (cp->char_avail);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5217
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5218 case STATUS_READ_ACKNOWLEDGED:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5219 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5220
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5221 default:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5222 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
5223 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5224 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5225 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5226
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5227 if (fd_info[fd].flags & FILE_PIPE)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5228 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5229 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
5230 to_read = min (waiting, (DWORD) count);
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5231
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5232 if (to_read > 0)
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5233 nchars += _read (fd, buffer, to_read);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5234 }
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5235 else if (fd_info[fd].flags & FILE_SERIAL)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5236 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5237 HANDLE hnd = fd_info[fd].hnd;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5238 OVERLAPPED *ovl = &fd_info[fd].cp->ovl_read;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5239 DWORD err = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5240 int rc = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5241 COMMTIMEOUTS ct;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5242
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5243 if (count > 0)
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 non-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 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5248 errno = EIO;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5249 return -1;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5250 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5251 ct.ReadIntervalTimeout = MAXDWORD;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5252 ct.ReadTotalTimeoutMultiplier = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5253 ct.ReadTotalTimeoutConstant = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5254 if (!SetCommTimeouts (hnd, &ct))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5255 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5256 errno = EIO;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5257 return -1;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5258 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5259
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5260 if (!ResetEvent (ovl->hEvent))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5261 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5262 errno = EIO;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5263 return -1;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5264 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5265 if (!ReadFile (hnd, buffer, count, (DWORD*) &rc, ovl))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5266 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5267 if (GetLastError () != ERROR_IO_PENDING)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5268 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5269 errno = EIO;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5270 return -1;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5271 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5272 if (!GetOverlappedResult (hnd, ovl, (DWORD*) &rc, TRUE))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5273 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5274 errno = EIO;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5275 return -1;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5276 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5277 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5278 nchars += rc;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5279 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5280 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5281 #ifdef HAVE_SOCKETS
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5282 else /* FILE_SOCKET */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5283 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5284 if (winsock_lib == NULL) abort ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5285
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5286 /* 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
5287 pfn_ioctlsocket (SOCK_HANDLE (fd), FIONREAD, &waiting);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5288 if (waiting == 0 && nchars == 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5289 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5290 h_errno = errno = EWOULDBLOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5291 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5292 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5293
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5294 if (waiting)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5295 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5296 /* always use binary mode for sockets */
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5297 int res = pfn_recv (SOCK_HANDLE (fd), buffer, count, 0);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5298 if (res == SOCKET_ERROR)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5299 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5300 DebPrint(("sys_read.recv failed with error %d on socket %ld\n",
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5301 pfn_WSAGetLastError (), SOCK_HANDLE (fd)));
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5302 set_errno ();
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5303 return -1;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5304 }
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5305 nchars += res;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5306 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5307 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5308 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5309 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5310 else
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5311 {
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5312 int nread = _read (fd, buffer, count);
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5313 if (nread >= 0)
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5314 nchars += nread;
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5315 else if (nchars == 0)
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5316 nchars = nread;
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5317 }
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5318
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5319 if (nchars <= 0)
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5320 fd_info[fd].flags |= FILE_AT_EOF;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5321 /* Perform text mode translation if required. */
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5322 else if ((fd_info[fd].flags & FILE_BINARY) == 0)
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5323 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5324 nchars = crlf_to_lf (nchars, orig_buffer);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5325 /* If buffer contains only CR, return that. To be absolutely
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5326 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
5327 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
5328 itself in the buffer. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5329 if (nchars > 1 && orig_buffer[nchars - 1] == 0x0d)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5330 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5331 fd_info[fd].flags |= FILE_LAST_CR;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5332 nchars--;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5333 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5334 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5335 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5336 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5337 nchars = _read (fd, buffer, count);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5338
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5339 return nchars;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5340 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5341
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5342 /* From w32xfns.c */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5343 extern HANDLE interrupt_handle;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5344
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5345 /* 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
5346 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5347 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
5348 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5349 int nchars;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5350
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
5351 if (fd < 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5352 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5353 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5354 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5355 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5356
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5357 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
5358 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5359 if ((fd_info[fd].flags & FILE_WRITE) == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5360 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5361 errno = EBADF;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5362 return -1;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5363 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5364
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5365 /* Perform text mode translation if required. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5366 if ((fd_info[fd].flags & FILE_BINARY) == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5367 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5368 char * tmpbuf = alloca (count * 2);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5369 unsigned char * src = (void *)buffer;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5370 unsigned char * dst = tmpbuf;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5371 int nbytes = count;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5372
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5373 while (1)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5374 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5375 unsigned char *next;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5376 /* copy next line or remaining bytes */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5377 next = _memccpy (dst, src, '\n', nbytes);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5378 if (next)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5379 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5380 /* copied one line ending with '\n' */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5381 int copied = next - dst;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5382 nbytes -= copied;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5383 src += copied;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5384 /* insert '\r' before '\n' */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5385 next[-1] = '\r';
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5386 next[0] = '\n';
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5387 dst = next + 1;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5388 count++;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5389 }
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5390 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5391 /* copied remaining partial line -> now finished */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5392 break;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5393 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5394 buffer = tmpbuf;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5395 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5396 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5397
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5398 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
5399 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5400 HANDLE hnd = (HANDLE) _get_osfhandle (fd);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5401 OVERLAPPED *ovl = &fd_info[fd].cp->ovl_write;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5402 HANDLE wait_hnd[2] = { interrupt_handle, ovl->hEvent };
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5403 DWORD active = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5404
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5405 if (!WriteFile (hnd, buffer, count, (DWORD*) &nchars, ovl))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5406 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5407 if (GetLastError () != ERROR_IO_PENDING)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5408 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5409 errno = EIO;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5410 return -1;
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 if (detect_input_pending ())
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5413 active = MsgWaitForMultipleObjects (2, wait_hnd, FALSE, INFINITE,
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5414 QS_ALLINPUT);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5415 else
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5416 active = WaitForMultipleObjects (2, wait_hnd, FALSE, INFINITE);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5417 if (active == WAIT_OBJECT_0)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5418 { /* 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
5419 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
5420 PurgeComm (hnd, PURGE_TXABORT | PURGE_TXCLEAR);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5421 CancelIo (hnd);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5422 errno = EIO;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5423 return -1;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5424 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5425 if (active == WAIT_OBJECT_0 + 1
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5426 && !GetOverlappedResult (hnd, ovl, (DWORD*) &nchars, TRUE))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5427 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5428 errno = EIO;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5429 return -1;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5430 }
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 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5433 else
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5434 #ifdef HAVE_SOCKETS
68299
8d40a7886950 (sys_close): If FD is outside [0..MAXDESC) limits, pass it directly to _close.
Eli Zaretskii <eliz@gnu.org>
parents: 65458
diff changeset
5435 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
5436 {
48545
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
5437 unsigned long nblock = 0;
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5438 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
5439
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
5440 /* 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
5441 /* 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
5442 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
5443 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
5444
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5445 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
5446
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
5447 /* 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
5448 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
5449 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
5450 {
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
5451 nblock = 1;
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
5452 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
5453 }
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
5454
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5455 if (nchars == SOCKET_ERROR)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5456 {
48561
b4fb06f61bfd Doc fix
Jason Rumney <jasonr@gnu.org>
parents: 48545
diff changeset
5457 DebPrint(("sys_write.send failed with error %d on socket %ld\n",
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5458 pfn_WSAGetLastError (), SOCK_HANDLE (fd)));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5459 set_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5460 }
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 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5463 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5464 nchars = _write (fd, buffer, count);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5465
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5466 return nchars;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5467 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5468
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5469 static void
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5470 check_windows_init_file ()
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5471 {
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5472 extern int noninteractive, inhibit_window_system;
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5473
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5474 /* 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
5475 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
5476 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
5477
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5478 if (!noninteractive && !inhibit_window_system)
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5479 {
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5480 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
5481 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
5482 Lisp_Object full_load_path;
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5483 Lisp_Object init_file;
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5484 int fd;
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5485
23809
2a6ad78388b3 (check_windows_init_file): Use decode_env_path when
Geoff Voelker <voelker@cs.washington.edu>
parents: 23622
diff changeset
5486 objs[0] = Vload_path;
2a6ad78388b3 (check_windows_init_file): Use decode_env_path when
Geoff Voelker <voelker@cs.washington.edu>
parents: 23622
diff changeset
5487 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
5488 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
5489 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
5490 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
5491 if (fd < 0)
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5492 {
23559
989c9cb875e3 (check_windows_init_file): Also look in load path specified
Geoff Voelker <voelker@cs.washington.edu>
parents: 23395
diff changeset
5493 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
5494 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
5495 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
5496 char *buffer = alloca (1024
02e47d7a9bca (check_windows_init_file): Fix allocation of error buffer.
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
5497 + strlen (init_file_name)
02e47d7a9bca (check_windows_init_file): Fix allocation of error buffer.
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
5498 + strlen (load_path));
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5499
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5500 sprintf (buffer,
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5501 "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
5502 "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
5503 "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
5504 "\n%s\n\n"
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5505 "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
5506 "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
5507 "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
5508 "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
5509 init_file_name, load_path);
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5510 MessageBox (NULL,
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5511 buffer,
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5512 "Emacs Abort Dialog",
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5513 MB_OK | MB_ICONEXCLAMATION | MB_TASKMODAL);
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5514 /* Use the low-level Emacs abort. */
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5515 #undef abort
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5516 abort ();
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5517 }
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5518 else
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5519 {
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
5520 _close (fd);
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5521 }
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5522 }
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
5523 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5524
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5525 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5526 term_ntproc ()
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5527 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5528 #ifdef HAVE_SOCKETS
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5529 /* shutdown the socket interface if necessary */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5530 term_winsock ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5531 #endif
60092
04686828d0da 2004-11-08 Benjamin Riefenstahl <Benjamin.Riefenstahl@epost.de>
Jason Rumney <jasonr@gnu.org>
parents: 57609
diff changeset
5532
04686828d0da 2004-11-08 Benjamin Riefenstahl <Benjamin.Riefenstahl@epost.de>
Jason Rumney <jasonr@gnu.org>
parents: 57609
diff changeset
5533 term_w32select ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5534 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5535
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5536 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5537 init_ntproc ()
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5538 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5539 #ifdef HAVE_SOCKETS
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5540 /* 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
5541 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
5542 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
5543 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
5544
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5545 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
5546 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
5547
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5548 /* Always initialize this correctly. */
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5549 winsock_lib = NULL;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5550
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5551 if (getenv ("PRELOAD_WINSOCK") != NULL)
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
5552 init_winsock (TRUE);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5553 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5554
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5555 /* 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
5556 handles with non-inheritable versions. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5557 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5558 HANDLE parent;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5559 HANDLE stdin_save = INVALID_HANDLE_VALUE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5560 HANDLE stdout_save = INVALID_HANDLE_VALUE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5561 HANDLE stderr_save = INVALID_HANDLE_VALUE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5562
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5563 parent = GetCurrentProcess ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5564
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5565 /* 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
5566 handles will be invalid when running as a gui program. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5567 DuplicateHandle (parent,
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5568 GetStdHandle (STD_INPUT_HANDLE),
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5569 parent,
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5570 &stdin_save,
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5571 0,
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5572 FALSE,
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5573 DUPLICATE_SAME_ACCESS);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5574
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5575 DuplicateHandle (parent,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5576 GetStdHandle (STD_OUTPUT_HANDLE),
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5577 parent,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5578 &stdout_save,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5579 0,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5580 FALSE,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5581 DUPLICATE_SAME_ACCESS);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5582
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5583 DuplicateHandle (parent,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5584 GetStdHandle (STD_ERROR_HANDLE),
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5585 parent,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5586 &stderr_save,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5587 0,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5588 FALSE,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5589 DUPLICATE_SAME_ACCESS);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5590
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5591 fclose (stdin);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5592 fclose (stdout);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5593 fclose (stderr);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5594
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5595 if (stdin_save != INVALID_HANDLE_VALUE)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5596 _open_osfhandle ((long) stdin_save, O_TEXT);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5597 else
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5598 _open ("nul", O_TEXT | O_NOINHERIT | O_RDONLY);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5599 _fdopen (0, "r");
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5600
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5601 if (stdout_save != INVALID_HANDLE_VALUE)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5602 _open_osfhandle ((long) stdout_save, O_TEXT);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5603 else
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5604 _open ("nul", O_TEXT | O_NOINHERIT | O_WRONLY);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5605 _fdopen (1, "w");
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5606
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5607 if (stderr_save != INVALID_HANDLE_VALUE)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5608 _open_osfhandle ((long) stderr_save, O_TEXT);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5609 else
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5610 _open ("nul", O_TEXT | O_NOINHERIT | O_WRONLY);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5611 _fdopen (2, "w");
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5612 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5613
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5614 /* unfortunately, atexit depends on implementation of malloc */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5615 /* atexit (term_ntproc); */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5616 signal (SIGABRT, term_ntproc);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5617
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5618 /* determine which drives are fixed, for GetCachedVolumeInformation */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5619 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5620 /* GetDriveType must have trailing backslash. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5621 char drive[] = "A:\\";
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5622
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5623 /* Loop over all possible drive letters */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5624 while (*drive <= 'Z')
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5625 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5626 /* Record if this drive letter refers to a fixed drive. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5627 fixed_drives[DRIVE_INDEX (*drive)] =
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5628 (GetDriveType (drive) == DRIVE_FIXED);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5629
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5630 (*drive)++;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5631 }
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
5632
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
5633 /* Reset the volume info cache. */
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
5634 volume_cache = NULL;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
5635 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
5636
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
5637 /* 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
5638 check_windows_init_file ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5639 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
5640
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
5641 /*
72631
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5642 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
5643 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
5644 */
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5645 BOOL WINAPI shutdown_handler(DWORD type)
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5646 {
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5647 /* 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
5648 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
5649 || 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
5650 || 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
5651 {
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5652 /* 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
5653 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
5654 }
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5655
74786
4f26e07fd85d (_sys_wait_accept): Fix handle leak.
Kim F. Storm <storm@cua.dk>
parents: 72631
diff changeset
5656 /* 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
5657 return FALSE;
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5658 }
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5659
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5660 /*
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
5661 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
5662 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
5663 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
5664 */
74947
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
5665 void
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
5666 globals_of_w32 ()
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
5667 {
81421
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
5668 HMODULE kernel32 = GetModuleHandle ("kernel32.dll");
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
5669
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
5670 get_process_times_fn = (GetProcessTimes_Proc)
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
5671 GetProcAddress (kernel32, "GetProcessTimes");
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
5672
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
5673 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
5674 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
5675 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
5676 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
5677 g_b_init_get_sid_identifier_authority = 0;
92124
0249dbc614f0 (globals_of_w32): Add initializations for g_b_init_get_sid_sub_authority and
Eli Zaretskii <eliz@gnu.org>
parents: 91878
diff changeset
5678 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
5679 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
5680 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
5681 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
5682 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
5683 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
5684 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
5685 g_b_init_process32_first = 0;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
5686 g_b_init_process32_next = 0;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
5687 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
5688 g_b_init_impersonate_self = 0;
a8d58587d1b0 Include thelp32.h, psapi.h and coding.h.
Eli Zaretskii <eliz@gnu.org>
parents: 96462
diff changeset
5689 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
5690 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
5691 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
5692 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
5693 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
5694 g_b_init_equal_sid = 0;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
5695 g_b_init_copy_sid = 0;
bb6b5c0fc1ba (CopySid_Proc, EqualSid_Proc, GetLengthSid_Proc): New typedefs.
Eli Zaretskii <eliz@gnu.org>
parents: 97488
diff changeset
5696 g_b_init_get_length_sid = 0;
72631
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5697 /* 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
5698 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
5699 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
5700 console application to get console mode to work. */
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
5701 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
5702
5ad1f4d9b15c Support for reporting owner and group of each file on MS-Windows:
Eli Zaretskii <eliz@gnu.org>
parents: 94797
diff changeset
5703 /* "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
5704 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
5705 }
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
5706
95884
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5707 /* For make-serial-process */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5708 int serial_open (char *port)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5709 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5710 HANDLE hnd;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5711 child_process *cp;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5712 int fd = -1;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5713
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5714 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
5715 OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5716 if (hnd == INVALID_HANDLE_VALUE)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5717 error ("Could not open %s", port);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5718 fd = (int) _open_osfhandle ((int) hnd, 0);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5719 if (fd == -1)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5720 error ("Could not open %s", port);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5721
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5722 cp = new_child ();
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5723 if (!cp)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5724 error ("Could not create child process");
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5725 cp->fd = fd;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5726 cp->status = STATUS_READ_ACKNOWLEDGED;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5727 fd_info[ fd ].hnd = hnd;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5728 fd_info[ fd ].flags |=
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5729 FILE_READ | FILE_WRITE | FILE_BINARY | FILE_SERIAL;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5730 if (fd_info[ fd ].cp != NULL)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5731 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5732 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
5733 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5734 fd_info[ fd ].cp = cp;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5735 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
5736 if (cp->ovl_read.hEvent == NULL)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5737 error ("Could not create read event");
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5738 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
5739 if (cp->ovl_write.hEvent == NULL)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5740 error ("Could not create write event");
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5741
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5742 return fd;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5743 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5744
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5745 /* For serial-process-configure */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5746 void
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5747 serial_configure (struct Lisp_Process *p,
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5748 Lisp_Object contact)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5749 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5750 Lisp_Object childp2 = Qnil;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5751 Lisp_Object tem = Qnil;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5752 HANDLE hnd;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5753 DCB dcb;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5754 COMMTIMEOUTS ct;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5755 char summary[4] = "???"; /* This usually becomes "8N1". */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5756
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5757 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
5758 error ("Not a serial process");
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5759 hnd = fd_info[ p->outfd ].hnd;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5760
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5761 childp2 = Fcopy_sequence (p->childp);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5762
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5763 /* Initialize timeouts for blocking read and blocking write. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5764 if (!GetCommTimeouts (hnd, &ct))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5765 error ("GetCommTimeouts() failed");
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5766 ct.ReadIntervalTimeout = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5767 ct.ReadTotalTimeoutMultiplier = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5768 ct.ReadTotalTimeoutConstant = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5769 ct.WriteTotalTimeoutMultiplier = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5770 ct.WriteTotalTimeoutConstant = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5771 if (!SetCommTimeouts (hnd, &ct))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5772 error ("SetCommTimeouts() failed");
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5773 /* Read port attributes and prepare default configuration. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5774 memset (&dcb, 0, sizeof (dcb));
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5775 dcb.DCBlength = sizeof (DCB);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5776 if (!GetCommState (hnd, &dcb))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5777 error ("GetCommState() failed");
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5778 dcb.fBinary = TRUE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5779 dcb.fNull = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5780 dcb.fAbortOnError = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5781 /* 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
5782 dcb.ErrorChar = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5783 dcb.EofChar = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5784 dcb.EvtChar = 0;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5785
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5786 /* Configure speed. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5787 if (!NILP (Fplist_member (contact, QCspeed)))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5788 tem = Fplist_get (contact, QCspeed);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5789 else
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5790 tem = Fplist_get (p->childp, QCspeed);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5791 CHECK_NUMBER (tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5792 dcb.BaudRate = XINT (tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5793 childp2 = Fplist_put (childp2, QCspeed, tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5794
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5795 /* Configure bytesize. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5796 if (!NILP (Fplist_member (contact, QCbytesize)))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5797 tem = Fplist_get (contact, QCbytesize);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5798 else
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5799 tem = Fplist_get (p->childp, QCbytesize);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5800 if (NILP (tem))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5801 tem = make_number (8);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5802 CHECK_NUMBER (tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5803 if (XINT (tem) != 7 && XINT (tem) != 8)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5804 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
5805 dcb.ByteSize = XINT (tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5806 summary[0] = XINT (tem) + '0';
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5807 childp2 = Fplist_put (childp2, QCbytesize, tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5808
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5809 /* Configure parity. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5810 if (!NILP (Fplist_member (contact, QCparity)))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5811 tem = Fplist_get (contact, QCparity);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5812 else
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5813 tem = Fplist_get (p->childp, QCparity);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5814 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
5815 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
5816 dcb.fParity = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5817 dcb.Parity = NOPARITY;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5818 dcb.fErrorChar = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5819 if (NILP (tem))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5820 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5821 summary[1] = 'N';
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5822 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5823 else if (EQ (tem, Qeven))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5824 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5825 summary[1] = 'E';
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5826 dcb.fParity = TRUE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5827 dcb.Parity = EVENPARITY;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5828 dcb.fErrorChar = TRUE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5829 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5830 else if (EQ (tem, Qodd))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5831 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5832 summary[1] = 'O';
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5833 dcb.fParity = TRUE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5834 dcb.Parity = ODDPARITY;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5835 dcb.fErrorChar = TRUE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5836 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5837 childp2 = Fplist_put (childp2, QCparity, tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5838
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5839 /* Configure stopbits. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5840 if (!NILP (Fplist_member (contact, QCstopbits)))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5841 tem = Fplist_get (contact, QCstopbits);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5842 else
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5843 tem = Fplist_get (p->childp, QCstopbits);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5844 if (NILP (tem))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5845 tem = make_number (1);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5846 CHECK_NUMBER (tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5847 if (XINT (tem) != 1 && XINT (tem) != 2)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5848 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
5849 summary[2] = XINT (tem) + '0';
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5850 if (XINT (tem) == 1)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5851 dcb.StopBits = ONESTOPBIT;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5852 else if (XINT (tem) == 2)
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5853 dcb.StopBits = TWOSTOPBITS;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5854 childp2 = Fplist_put (childp2, QCstopbits, tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5855
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5856 /* Configure flowcontrol. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5857 if (!NILP (Fplist_member (contact, QCflowcontrol)))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5858 tem = Fplist_get (contact, QCflowcontrol);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5859 else
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5860 tem = Fplist_get (p->childp, QCflowcontrol);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5861 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
5862 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
5863 dcb.fOutxCtsFlow = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5864 dcb.fOutxDsrFlow = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5865 dcb.fDtrControl = DTR_CONTROL_DISABLE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5866 dcb.fDsrSensitivity = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5867 dcb.fTXContinueOnXoff = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5868 dcb.fOutX = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5869 dcb.fInX = FALSE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5870 dcb.fRtsControl = RTS_CONTROL_DISABLE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5871 dcb.XonChar = 17; /* Control-Q */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5872 dcb.XoffChar = 19; /* Control-S */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5873 if (NILP (tem))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5874 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5875 /* Already configured. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5876 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5877 else if (EQ (tem, Qhw))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5878 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5879 dcb.fRtsControl = RTS_CONTROL_HANDSHAKE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5880 dcb.fOutxCtsFlow = TRUE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5881 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5882 else if (EQ (tem, Qsw))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5883 {
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5884 dcb.fOutX = TRUE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5885 dcb.fInX = TRUE;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5886 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5887 childp2 = Fplist_put (childp2, QCflowcontrol, tem);
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5888
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5889 /* Activate configuration. */
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5890 if (!SetCommState (hnd, &dcb))
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5891 error ("SetCommState() failed");
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5892
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5893 childp2 = Fplist_put (childp2, QCsummary, build_string (summary));
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5894 p->childp = childp2;
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5895 }
d6a4488883dc Daniel Engeler <engeler at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 95481
diff changeset
5896
78028
3a8b85706c0c (_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents: 76098
diff changeset
5897 /* end of w32.c */
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52353
diff changeset
5898
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52353
diff changeset
5899 /* arch-tag: 90442dd3-37be-482b-b272-ac752e3049f1
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52353
diff changeset
5900 (do not change this comment) */