annotate src/w32.c @ 94531:b65258bcae70

*** empty log message ***
author Juri Linkov <juri@jurta.org>
date Fri, 02 May 2008 01:03:38 +0000
parents ca9efc5939fc
children 89a5cb9cf680
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.
64770
a0d1312ede66 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64326
diff changeset
2 Copyright (C) 1994, 1995, 2000, 2001, 2002, 2003, 2004,
79759
fc2bcd2a8aad Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 79224
diff changeset
3 2005, 2006, 2007, 2008 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
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 13932
diff changeset
7 GNU Emacs is free software; you can redistribute it and/or modify
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
78260
922696f363b0 Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents: 78028
diff changeset
9 the Free Software Foundation; either version 3, or (at your option)
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 13932
diff changeset
10 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
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 13932
diff changeset
18 along with GNU Emacs; see the file COPYING. If not, write to
64084
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63744
diff changeset
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63744
diff changeset
20 Boston, MA 02110-1301, USA.
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 Geoff Voelker (voelker@cs.washington.edu) 7-29-94
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23 */
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
24 #include <stddef.h> /* for offsetof */
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25 #include <stdlib.h>
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26 #include <stdio.h>
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 #include <io.h>
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
28 #include <errno.h>
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29 #include <fcntl.h>
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30 #include <ctype.h>
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
31 #include <signal.h>
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
32 #include <sys/file.h>
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
33 #include <sys/time.h>
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
34 #include <sys/utime.h>
76098
9ad6c99cdc71 (stat, get_long_basename, is_unc_volume): Use _mbspbrk instead of strpbrk.
Eli Zaretskii <eliz@gnu.org>
parents: 75348
diff changeset
35 #include <mbstring.h> /* for _mbspbrk */
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>
91878
a5f49adf9035 (init_user_info): Use TOKEN_USER and TOKEN_PRIMARY_GROUP instead of
Eli Zaretskii <eliz@gnu.org>
parents: 88048
diff changeset
76 #include <lmcons.h>
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
77 #include <shlobj.h>
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
78
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
79 #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
80 #include <sys/socket.h>
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
81 #undef socket
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
82 #undef bind
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
83 #undef connect
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
84 #undef htons
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
85 #undef ntohs
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
86 #undef inet_addr
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
87 #undef gethostname
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
88 #undef gethostbyname
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
89 #undef getservbyname
45090
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
90 #undef getpeername
18725
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
91 #undef shutdown
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
92 #undef setsockopt
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
93 #undef listen
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
94 #undef getsockname
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
95 #undef accept
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
96 #undef recvfrom
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
97 #undef sendto
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
98 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
99
16593
4ed80eda6fac Use new names for w32 files
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
100 #include "w32.h"
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
101 #include "ndir.h"
16593
4ed80eda6fac Use new names for w32 files
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
102 #include "w32heap.h"
35286
fcd8120b294a (init_environment, sys_shutdown, sys_pipe): Remove unused
Jason Rumney <jasonr@gnu.org>
parents: 34696
diff changeset
103 #include "systime.h"
fcd8120b294a (init_environment, sys_shutdown, sys_pipe): Remove unused
Jason Rumney <jasonr@gnu.org>
parents: 34696
diff changeset
104
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
105 typedef HRESULT (WINAPI * ShGetFolderPath_fn)
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
106 (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
107
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
108 void globals_of_w32 ();
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
109
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
110 extern Lisp_Object Vw32_downcase_file_names;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
111 extern Lisp_Object Vw32_generate_fake_inodes;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
112 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
113 /* 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
114 extern Lisp_Object Qlocal;
796bbedc63b1 (stat): When Vw32_get_true_file_attributes is Qlocal, get
Jason Rumney <jasonr@gnu.org>
parents: 80376
diff changeset
115
55645
5b3f2477d17b Rename w32_num_mouse_buttons from Vw32_num_mouse_buttons.
Jason Rumney <jasonr@gnu.org>
parents: 55643
diff changeset
116 extern int w32_num_mouse_buttons;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
117
34696
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
118
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
119 /* 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
120
0249dbc614f0 (globals_of_w32): Add initializations for g_b_init_get_sid_sub_authority and
Eli Zaretskii <eliz@gnu.org>
parents: 91878
diff changeset
121 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
122 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
123 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
124 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
125 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
126 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
127 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
128 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
129 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
130 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
131 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
132 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
133 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
134 static BOOL g_b_init_get_sid_sub_authority_count;
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
135
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
136 /*
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
137 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
138 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
139 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
140 */
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
141 /* ** 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
142 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
143 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
144 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
145 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
146 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
147 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
148 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
149 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
150 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
151 PDWORD ReturnLength);
81421
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
152 typedef BOOL (WINAPI * GetProcessTimes_Proc) (
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
153 HANDLE process_handle,
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
154 LPFILETIME creation_time,
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
155 LPFILETIME exit_time,
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
156 LPFILETIME kernel_time,
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
157 LPFILETIME user_time);
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
158
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
159 GetProcessTimes_Proc get_process_times_fn = NULL;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
160
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
161 #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
162 const char * const LookupAccountSid_Name = "LookupAccountSidW";
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
163 #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
164 const char * const LookupAccountSid_Name = "LookupAccountSidA";
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
165 #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
166 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
167 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
168 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
169 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
170 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
171 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
172 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
173 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
174 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
175 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
176 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
177 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
178 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
179 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
180 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
181
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
182
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
183 /* ** A utility function ** */
74947
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
184 static BOOL
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
185 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
186 {
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
187 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
188 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
189 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
190 {
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
191 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
192 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
193 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
194 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
195 {
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
196 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
197 }
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
198 }
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
199 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
200 }
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on 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
81421
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
202 /* 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
203 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
204 (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
205 Lisp_Object
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
206 w32_get_internal_run_time ()
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
207 {
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
208 if (get_process_times_fn)
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
209 {
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
210 FILETIME create, exit, kernel, user;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
211 HANDLE proc = GetCurrentProcess();
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
212 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
213 {
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
214 LARGE_INTEGER user_int, kernel_int, total;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
215 int microseconds;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
216 user_int.LowPart = user.dwLowDateTime;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
217 user_int.HighPart = user.dwHighDateTime;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
218 kernel_int.LowPart = kernel.dwLowDateTime;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
219 kernel_int.HighPart = kernel.dwHighDateTime;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
220 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
221 /* 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
222 microsecond resolution. */
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
223 total.QuadPart /= 10;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
224 microseconds = total.QuadPart % 1000000;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
225 total.QuadPart /= 1000000;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
226
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
227 /* 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
228 if (total.HighPart == 0)
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
229 {
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
230 int secs = total.LowPart;
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
231
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
232 return list3 (make_number ((secs >> 16) & 0xffff),
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
233 make_number (secs & 0xffff),
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
234 make_number (microseconds));
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
235 }
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
236 }
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
237 }
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
238
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
239 return Fcurrent_time ();
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
240 }
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
241
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
242 /* ** 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
243
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
244 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
245 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
246 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
247 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
248 {
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
249 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
250 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
251 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
252 {
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
253 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
254 }
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
255 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
256 {
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
257 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
258 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
259 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
260 (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
261 }
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
262 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
263 {
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
264 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
265 }
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
266 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
267 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
268 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
269 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
270 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
271 );
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
272 }
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
273
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
274 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
275 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
276 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
277 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
278 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
279 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
280 {
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
281 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
282 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
283 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
284 {
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
285 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
286 }
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
287 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
288 {
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
289 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
290 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
291 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
292 (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
293 }
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
294 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
295 {
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
296 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
297 }
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on 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 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
299 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
300 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
301 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
302 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
303 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
304 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
305 );
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on 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 }
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
307
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
308 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
309 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
310 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
311 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
312 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
313 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
314 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
315 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
316 {
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
317 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
318 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
319 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
320 {
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
321 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
322 }
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
323 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
324 {
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
325 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
326 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
327 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
328 (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
329 }
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
330 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
331 {
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
332 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
333 }
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
334 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
335 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
336 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
337 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
338 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
339 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
340 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
341 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
342 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
343 );
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
344 }
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
345
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
346 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
347 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
348 {
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
349 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
350 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
351 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
352 {
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
353 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
354 }
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
355 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
356 {
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
357 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
358 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
359 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
360 (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
361 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
362 }
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
363 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
364 {
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
365 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
366 }
48888
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
367 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
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
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
370 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
371 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
372 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
373 {
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
374 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
375 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
376 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
377 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
378 {
87998
3ef9b6e3d2fa (get_sid_sub_authority, get_sid_sub_authority_count): Fix return values
Eli Zaretskii <eliz@gnu.org>
parents: 87995
diff changeset
379 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
380 }
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
381 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
382 {
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
383 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
384 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
385 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
386 (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
387 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
388 }
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
389 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
390 {
87998
3ef9b6e3d2fa (get_sid_sub_authority, get_sid_sub_authority_count): Fix return values
Eli Zaretskii <eliz@gnu.org>
parents: 87995
diff changeset
391 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
392 }
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
393 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
394 }
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
395
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
396 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
397 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
398 {
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
399 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
400 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
401 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
402 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
403 {
87998
3ef9b6e3d2fa (get_sid_sub_authority, get_sid_sub_authority_count): Fix return values
Eli Zaretskii <eliz@gnu.org>
parents: 87995
diff changeset
404 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
405 }
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
406 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
407 {
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
408 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
409 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
410 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
411 (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
412 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
413 }
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
414 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
415 {
87998
3ef9b6e3d2fa (get_sid_sub_authority, get_sid_sub_authority_count): Fix return values
Eli Zaretskii <eliz@gnu.org>
parents: 87995
diff changeset
416 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
417 }
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
418 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
419 }
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
420
48375
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
421 /*
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.
Ben Key <bkey1@tampabay.rr.com>
parents: 46370
diff changeset
422 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
423 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
424 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
425 */
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on 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
4d7b83cc03aa Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on 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
34696
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
428 /* Equivalent of strerror for W32 error codes. */
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
429 char *
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
430 w32_strerror (int error_no)
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
431 {
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
432 static char buf[500];
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
433
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
434 if (error_no == 0)
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
435 error_no = GetLastError ();
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
436
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
437 buf[0] = '\0';
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
438 if (!FormatMessage (FORMAT_MESSAGE_FROM_SYSTEM, NULL,
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
439 error_no,
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
440 0, /* choose most suitable language */
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
441 buf, sizeof (buf), NULL))
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
442 sprintf (buf, "w32 error %u", error_no);
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
443 return buf;
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
444 }
a1785afaedef (w32_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 34644
diff changeset
445
72286
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
446 /* 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
447 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
448
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
449 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
450 int
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
451 w32_valid_pointer_p (void *p, int size)
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
452 {
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
453 SIZE_T done;
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
454 HANDLE h = OpenProcess (PROCESS_VM_READ, FALSE, GetCurrentProcessId ());
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
455
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
456 if (h)
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
457 {
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
458 unsigned char *buf = alloca (size);
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
459 int retval = ReadProcessMemory (h, p, buf, size, &done);
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
460
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
461 CloseHandle (h);
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
462 return retval;
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
463 }
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
464 else
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
465 return -1;
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
466 }
95d41ccb4448 (w32_valid_pointer_p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 72059
diff changeset
467
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
468 static char startup_dir[MAXPATHLEN];
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
469
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
470 /* Get the current working directory. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
471 char *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
472 getwd (char *dir)
14246
ebdd1b50daba (nt_stat): Use alloca instead of xmalloc.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
473 {
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
474 #if 0
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
475 if (GetCurrentDirectory (MAXPATHLEN, dir) > 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
476 return dir;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
477 return NULL;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
478 #else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
479 /* 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
480 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
481 conflicts when trying to rename or delete directories. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
482 strcpy (dir, startup_dir);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
483 return dir;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
484 #endif
14246
ebdd1b50daba (nt_stat): Use alloca instead of xmalloc.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
485 }
ebdd1b50daba (nt_stat): Use alloca instead of xmalloc.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
486
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
487 #ifndef HAVE_SOCKETS
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
488 /* Emulate gethostname. */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
489 int
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
490 gethostname (char *buffer, int size)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
491 {
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
492 /* NT only allows small host names, so the buffer is
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
493 certainly large enough. */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
494 return !GetComputerName (buffer, &size);
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
495 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
496 #endif /* HAVE_SOCKETS */
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
497
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
498 /* Emulate getloadavg. */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
499 int
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
500 getloadavg (double loadavg[], int nelem)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
501 {
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
502 int i;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
503
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
504 /* 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
505 for (i = 0; i < nelem; i++)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
506 {
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
507 loadavg[i] = 0.0;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
508 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
509 return i;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
510 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
511
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
512 /* Emulate getpwuid, getpwnam and others. */
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
513
12451
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
514 #define PASSWD_FIELD_SIZE 256
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
515
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
516 static char the_passwd_name[PASSWD_FIELD_SIZE];
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
517 static char the_passwd_passwd[PASSWD_FIELD_SIZE];
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
518 static char the_passwd_gecos[PASSWD_FIELD_SIZE];
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
519 static char the_passwd_dir[PASSWD_FIELD_SIZE];
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
520 static char the_passwd_shell[PASSWD_FIELD_SIZE];
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
521
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
522 static struct passwd the_passwd =
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
523 {
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
524 the_passwd_name,
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
525 the_passwd_passwd,
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
526 0,
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
527 0,
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
528 0,
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
529 the_passwd_gecos,
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
530 the_passwd_dir,
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
531 the_passwd_shell,
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
532 };
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
533
53123
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
534 static struct group the_group =
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
535 {
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
536 /* There are no groups on NT, so we just return "root" as the
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
537 group name. */
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
538 "root",
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
539 };
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
540
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
541 int
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
542 getuid ()
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
543 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
544 return the_passwd.pw_uid;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
545 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
546
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
547 int
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
548 geteuid ()
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
549 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
550 /* 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
551 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
552 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
553 return getuid ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
554 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
555
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
556 int
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
557 getgid ()
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
558 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
559 return the_passwd.pw_gid;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
560 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
561
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
562 int
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
563 getegid ()
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
564 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
565 return getgid ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
566 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
567
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
568 struct passwd *
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
569 getpwuid (int uid)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
570 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
571 if (uid == the_passwd.pw_uid)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
572 return &the_passwd;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
573 return NULL;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
574 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
575
53123
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
576 struct group *
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
577 getgrgid (gid_t gid)
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
578 {
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
579 return &the_group;
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
580 }
e86b5bc46cca (struct the_group): Added.
Lars Hansen <larsh@soem.dk>
parents: 52401
diff changeset
581
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
582 struct passwd *
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
583 getpwnam (char *name)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
584 {
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
585 struct passwd *pw;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
586
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
587 pw = getpwuid (getuid ());
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
588 if (!pw)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
589 return pw;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
590
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
591 if (stricmp (name, pw->pw_name))
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
592 return NULL;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
593
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
594 return pw;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
595 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
596
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
597 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
598 init_user_info ()
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
599 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
600 /* 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
601 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
602
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
603 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
604 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
605 primary group sid from the process token). */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
606
91878
a5f49adf9035 (init_user_info): Use TOKEN_USER and TOKEN_PRIMARY_GROUP instead of
Eli Zaretskii <eliz@gnu.org>
parents: 88048
diff changeset
607 char name[UNLEN+1], domain[1025];
78028
3a8b85706c0c (_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents: 76098
diff changeset
608 DWORD length = sizeof (name), dlength = sizeof (domain), trash;
3a8b85706c0c (_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents: 76098
diff changeset
609 HANDLE token = NULL;
3a8b85706c0c (_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents: 76098
diff changeset
610 SID_NAME_USE user_type;
91878
a5f49adf9035 (init_user_info): Use TOKEN_USER and TOKEN_PRIMARY_GROUP instead of
Eli Zaretskii <eliz@gnu.org>
parents: 88048
diff changeset
611 unsigned char buf[1024];
a5f49adf9035 (init_user_info): Use TOKEN_USER and TOKEN_PRIMARY_GROUP instead of
Eli Zaretskii <eliz@gnu.org>
parents: 88048
diff changeset
612 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
613 TOKEN_PRIMARY_GROUP group_token;
78028
3a8b85706c0c (_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents: 76098
diff changeset
614
3a8b85706c0c (_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents: 76098
diff changeset
615 if (open_process_token (GetCurrentProcess (), TOKEN_QUERY, &token)
3a8b85706c0c (_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents: 76098
diff changeset
616 && get_token_information (token, TokenUser,
91878
a5f49adf9035 (init_user_info): Use TOKEN_USER and TOKEN_PRIMARY_GROUP instead of
Eli Zaretskii <eliz@gnu.org>
parents: 88048
diff changeset
617 (PVOID)buf, sizeof (buf), &trash)
a5f49adf9035 (init_user_info): Use TOKEN_USER and TOKEN_PRIMARY_GROUP instead of
Eli Zaretskii <eliz@gnu.org>
parents: 88048
diff changeset
618 && (memcpy (&user_token, buf, sizeof (user_token)),
a5f49adf9035 (init_user_info): Use TOKEN_USER and TOKEN_PRIMARY_GROUP instead of
Eli Zaretskii <eliz@gnu.org>
parents: 88048
diff changeset
619 lookup_account_sid (NULL, user_token.User.Sid, name, &length,
a5f49adf9035 (init_user_info): Use TOKEN_USER and TOKEN_PRIMARY_GROUP instead of
Eli Zaretskii <eliz@gnu.org>
parents: 88048
diff changeset
620 domain, &dlength, &user_type)))
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
621 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
622 strcpy (the_passwd.pw_name, name);
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
623 /* Determine a reasonable uid value. */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
624 if (stricmp ("administrator", name) == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
625 {
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
626 the_passwd.pw_uid = 500; /* well-known Administrator uid */
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
627 the_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
628 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
629 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
630 {
87995
e576feac5b90 (init_user_info): Fix commentary for RID usage.
Eli Zaretskii <eliz@gnu.org>
parents: 87990
diff changeset
631 /* 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
632 portion of the SID, as user/group ID. */
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
633 DWORD n_subauthorities =
91878
a5f49adf9035 (init_user_info): Use TOKEN_USER and TOKEN_PRIMARY_GROUP instead of
Eli Zaretskii <eliz@gnu.org>
parents: 88048
diff changeset
634 *get_sid_sub_authority_count (user_token.User.Sid);
87990
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
635
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
636 if (n_subauthorities < 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
637 the_passwd.pw_uid = 0; /* the "World" RID */
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
638 else
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
639 {
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
640 the_passwd.pw_uid =
91878
a5f49adf9035 (init_user_info): Use TOKEN_USER and TOKEN_PRIMARY_GROUP instead of
Eli Zaretskii <eliz@gnu.org>
parents: 88048
diff changeset
641 *get_sid_sub_authority (user_token.User.Sid,
87990
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
642 n_subauthorities - 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
643 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
644
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
645 /* Get group id */
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
646 if (get_token_information (token, TokenPrimaryGroup,
91878
a5f49adf9035 (init_user_info): Use TOKEN_USER and TOKEN_PRIMARY_GROUP instead of
Eli Zaretskii <eliz@gnu.org>
parents: 88048
diff changeset
647 (PVOID)buf, sizeof (buf), &trash))
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
648 {
91878
a5f49adf9035 (init_user_info): Use TOKEN_USER and TOKEN_PRIMARY_GROUP instead of
Eli Zaretskii <eliz@gnu.org>
parents: 88048
diff changeset
649 memcpy (&group_token, buf, sizeof (group_token));
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
650 n_subauthorities =
91878
a5f49adf9035 (init_user_info): Use TOKEN_USER and TOKEN_PRIMARY_GROUP instead of
Eli Zaretskii <eliz@gnu.org>
parents: 88048
diff changeset
651 *get_sid_sub_authority_count (group_token.PrimaryGroup);
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
652
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
653 if (n_subauthorities < 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
654 the_passwd.pw_gid = 0; /* the "World" RID */
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
655 else
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
656 {
78715eba45dd (g_b_init_get_sid_sub_authority, g_b_init_get_sid_sub_authority_count): New
Eli Zaretskii <eliz@gnu.org>
parents: 87985
diff changeset
657 the_passwd.pw_gid =
91878
a5f49adf9035 (init_user_info): Use TOKEN_USER and TOKEN_PRIMARY_GROUP instead of
Eli Zaretskii <eliz@gnu.org>
parents: 88048
diff changeset
658 *get_sid_sub_authority (group_token.PrimaryGroup,
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
659 n_subauthorities - 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
660 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
661 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
662 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
663 the_passwd.pw_gid = the_passwd.pw_uid;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
664 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
665 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
666 /* If security calls are not supported (presumably because we
78028
3a8b85706c0c (_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents: 76098
diff changeset
667 are running under Windows 95), fallback to this. */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
668 else if (GetUserName (name, &length))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
669 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
670 strcpy (the_passwd.pw_name, name);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
671 if (stricmp ("administrator", name) == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
672 the_passwd.pw_uid = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
673 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
674 the_passwd.pw_uid = 123;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
675 the_passwd.pw_gid = the_passwd.pw_uid;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
676 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
677 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
678 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
679 strcpy (the_passwd.pw_name, "unknown");
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
680 the_passwd.pw_uid = 123;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
681 the_passwd.pw_gid = 123;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
682 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
683
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
684 /* Ensure HOME and SHELL are defined. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
685 if (getenv ("HOME") == NULL)
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
686 abort ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
687 if (getenv ("SHELL") == NULL)
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
688 abort ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
689
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
690 /* Set dir and shell from environment variables. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
691 strcpy (the_passwd.pw_dir, getenv ("HOME"));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
692 strcpy (the_passwd.pw_shell, getenv ("SHELL"));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
693
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
694 if (token)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
695 CloseHandle (token);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
696 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
697
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
698 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
699 random ()
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
700 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
701 /* 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
702 return ((rand () << 15) | rand ());
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
703 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
704
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
705 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
706 srandom (int seed)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
707 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
708 srand (seed);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
709 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
710
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
711
15326
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
712 /* Normalize filename by converting all path separators to
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
713 the specified separator. Also conditionally convert upper
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
714 case path name components to lower case. */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
715
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
716 static void
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
717 normalize_filename (fp, path_sep)
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
718 register char *fp;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
719 char path_sep;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
720 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
721 char sep;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
722 char *elem;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
723
15615
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
724 /* 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
725 preserves case in filenames.
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
726 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
727 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
728 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
729 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
730 {
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
731 *fp += 'a' - 'A';
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
732 fp += 2;
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
733 }
124e347ce827 (normalize_filename): Always lower-case drive letters, even on systems
Miles Bader <miles@gnu.org>
parents: 15418
diff changeset
734
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
735 if (NILP (Vw32_downcase_file_names))
15326
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
736 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
737 while (*fp)
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
738 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
739 if (*fp == '/' || *fp == '\\')
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
740 *fp = path_sep;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
741 fp++;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
742 }
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
743 return;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
744 }
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
745
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
746 sep = path_sep; /* convert to this path separator */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
747 elem = fp; /* start of current path element */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
748
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
749 do {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
750 if (*fp >= 'a' && *fp <= 'z')
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
751 elem = 0; /* don't convert this element */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
752
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
753 if (*fp == 0 || *fp == ':')
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
754 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
755 sep = *fp; /* restore current separator (or 0) */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
756 *fp = '/'; /* after conversion of this element */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
757 }
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
758
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
759 if (*fp == '/' || *fp == '\\')
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
760 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
761 if (elem && elem != fp)
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
762 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
763 *fp = 0; /* temporary end of string */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
764 _strlwr (elem); /* while we convert to lower case */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
765 }
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
766 *fp = sep; /* convert (or restore) path separator */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
767 elem = fp + 1; /* next element starts after separator */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
768 sep = path_sep;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
769 }
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
770 } while (*fp++);
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
771 }
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
772
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
773 /* Destructively turn backslashes into slashes. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
774 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
775 dostounix_filename (p)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
776 register char *p;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
777 {
15326
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
778 normalize_filename (p, '/');
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
779 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
780
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
781 /* Destructively turn slashes into backslashes. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
782 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
783 unixtodos_filename (p)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
784 register char *p;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
785 {
15326
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
786 normalize_filename (p, '\\');
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
787 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
788
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
789 /* 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
790 (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
791 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
792 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
793 crlf_to_lf (n, buf)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
794 register int n;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
795 register unsigned char *buf;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
796 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
797 unsigned char *np = buf;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
798 unsigned char *startp = buf;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
799 unsigned char *endp = buf + n;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
800
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
801 if (n == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
802 return n;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
803 while (buf < endp - 1)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
804 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
805 if (*buf == 0x0d)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
806 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
807 if (*(++buf) != 0x0a)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
808 *np++ = 0x0d;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
809 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
810 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
811 *np++ = *buf++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
812 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
813 if (buf < endp)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
814 *np++ = *buf++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
815 return np - startp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
816 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
817
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
818 /* 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
819 optionally store pointer to char after root. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
820 static int
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
821 parse_root (char * name, char ** pPath)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
822 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
823 char * start = name;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
824
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
825 if (name == NULL)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
826 return 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
827
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
828 /* find the root name of the volume if given */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
829 if (isalpha (name[0]) && name[1] == ':')
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
830 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
831 /* skip past drive specifier */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
832 name += 2;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
833 if (IS_DIRECTORY_SEP (name[0]))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
834 name++;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
835 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
836 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
837 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
838 int slashes = 2;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
839 name += 2;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
840 do
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
841 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
842 if (IS_DIRECTORY_SEP (*name) && --slashes == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
843 break;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
844 name++;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
845 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
846 while ( *name );
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
847 if (IS_DIRECTORY_SEP (name[0]))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
848 name++;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
849 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
850
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
851 if (pPath)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
852 *pPath = name;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
853
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
854 return name - start;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
855 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
856
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
857 /* 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
858 static int
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
859 get_long_basename (char * name, char * buf, int size)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
860 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
861 WIN32_FIND_DATA find_data;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
862 HANDLE dir_handle;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
863 int len = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
864
28932
f8b0ac62f238 Use the term `invalid' instead of `illegal'.
Gerd Moellmann <gerd@gnu.org>
parents: 27890
diff changeset
865 /* 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
866 if (_mbspbrk (name, "*?|<>\""))
22039
c33bec4d9e67 (stat, get_long_basename): Fail if filename contains any
Richard M. Stallman <rms@gnu.org>
parents: 21747
diff changeset
867 return 0;
c33bec4d9e67 (stat, get_long_basename): Fail if filename contains any
Richard M. Stallman <rms@gnu.org>
parents: 21747
diff changeset
868
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
869 dir_handle = FindFirstFile (name, &find_data);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
870 if (dir_handle != INVALID_HANDLE_VALUE)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
871 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
872 if ((len = strlen (find_data.cFileName)) < size)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
873 memcpy (buf, find_data.cFileName, len + 1);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
874 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
875 len = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
876 FindClose (dir_handle);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
877 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
878 return len;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
879 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
880
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
881 /* 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
882 BOOL
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
883 w32_get_long_filename (char * name, char * buf, int size)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
884 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
885 char * o = buf;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
886 char * p;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
887 char * q;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
888 char full[ MAX_PATH ];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
889 int len;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
890
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
891 len = strlen (name);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
892 if (len >= MAX_PATH)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
893 return FALSE;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
894
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
895 /* Use local copy for destructive modification. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
896 memcpy (full, name, len+1);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
897 unixtodos_filename (full);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
898
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
899 /* Copy root part verbatim. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
900 len = parse_root (full, &p);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
901 memcpy (o, full, len);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
902 o += len;
23858
6bb3dc7f1b48 (w32_get_long_filename): Handle root dirs correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23809
diff changeset
903 *o = '\0';
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
904 size -= len;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
905
23858
6bb3dc7f1b48 (w32_get_long_filename): Handle root dirs correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23809
diff changeset
906 while (p != NULL && *p)
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
907 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
908 q = p;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
909 p = strchr (q, '\\');
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
910 if (p) *p = '\0';
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
911 len = get_long_basename (full, o, size);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
912 if (len > 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
913 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
914 o += len;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
915 size -= len;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
916 if (p != NULL)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
917 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
918 *p++ = '\\';
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
919 if (size < 2)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
920 return FALSE;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
921 *o++ = '\\';
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
922 size--;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
923 *o = '\0';
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
924 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
925 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
926 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
927 return FALSE;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
928 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
929
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
930 return TRUE;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
931 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
932
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
933 int
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
934 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
935 {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
936 const char *ptr = filename;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
937
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
938 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
939 return 0;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
940
76098
9ad6c99cdc71 (stat, get_long_basename, is_unc_volume): Use _mbspbrk instead of strpbrk.
Eli Zaretskii <eliz@gnu.org>
parents: 75348
diff changeset
941 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
942 return 0;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
943
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
944 return 1;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
945 }
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
946
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
947 /* 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
948
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
949 int
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
950 sigsetmask (int signal_mask)
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
951 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
952 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
953 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
954
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
955 int
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
956 sigmask (int sig)
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
957 {
27630
95dde6f88b39 (sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents: 25193
diff changeset
958 return 0;
95dde6f88b39 (sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents: 25193
diff changeset
959 }
95dde6f88b39 (sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents: 25193
diff changeset
960
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
961 int
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
962 sigblock (int sig)
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
963 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
964 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
965 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
966
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
967 int
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
968 sigunblock (int sig)
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
969 {
27630
95dde6f88b39 (sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents: 25193
diff changeset
970 return 0;
95dde6f88b39 (sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents: 25193
diff changeset
971 }
95dde6f88b39 (sigmask): New function (does nothing).
Andrew Innes <andrewi@gnu.org>
parents: 25193
diff changeset
972
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
973 int
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
974 setpgrp (int pid, int gid)
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
975 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
976 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
977 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
978
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
979 int
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
980 alarm (int seconds)
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
981 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
982 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
983 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
984
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
985 #define REG_ROOT "SOFTWARE\\GNU\\Emacs"
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
986
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
987 LPBYTE
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
988 w32_get_resource (key, lpdwtype)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
989 char *key;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
990 LPDWORD lpdwtype;
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 LPBYTE lpvalue;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
993 HKEY hrootkey = NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
994 DWORD cbData;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
995
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
996 /* 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
997 we have any resources. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
998
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
999 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
1000 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1001 lpvalue = NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1002
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1003 if (RegQueryValueEx (hrootkey, key, NULL, NULL, NULL, &cbData) == ERROR_SUCCESS
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1004 && (lpvalue = (LPBYTE) xmalloc (cbData)) != NULL
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1005 && 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
1006 {
78919
87875c00eb06 (w32_get_resource): Always close registry keys.
Jason Rumney <jasonr@gnu.org>
parents: 78260
diff changeset
1007 RegCloseKey (hrootkey);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1008 return (lpvalue);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1009 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1010
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1011 if (lpvalue) xfree (lpvalue);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1012
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1013 RegCloseKey (hrootkey);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1014 }
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1015
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1016 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
1017 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1018 lpvalue = NULL;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1019
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1020 if (RegQueryValueEx (hrootkey, key, NULL, NULL, NULL, &cbData) == ERROR_SUCCESS
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1021 && (lpvalue = (LPBYTE) xmalloc (cbData)) != NULL
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1022 && 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
1023 {
78919
87875c00eb06 (w32_get_resource): Always close registry keys.
Jason Rumney <jasonr@gnu.org>
parents: 78260
diff changeset
1024 RegCloseKey (hrootkey);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1025 return (lpvalue);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1026 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1027
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1028 if (lpvalue) xfree (lpvalue);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1029
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1030 RegCloseKey (hrootkey);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1031 }
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1032
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1033 return (NULL);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1034 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1035
16892
a8a539285d69 Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1036 char *get_emacs_configuration (void);
a8a539285d69 Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1037 extern Lisp_Object Vsystem_configuration;
a8a539285d69 Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1038
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1039 void
24229
fc89585ce76f (init_environment): Change argv[0] to contain the full path to Emacs.
Andrew Innes <andrewi@gnu.org>
parents: 23858
diff changeset
1040 init_environment (char ** argv)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1041 {
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1042 static const char * const tempdirs[] = {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1043 "$TMPDIR", "$TEMP", "$TMP", "c:/"
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1044 };
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1045
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1046 int i;
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1047
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1048 const int imax = sizeof (tempdirs) / sizeof (tempdirs[0]);
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1049
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1050 /* 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
1051 temporary files and assume "/tmp" if $TMPDIR is unset, which
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1052 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
1053 a directory, not even "c:/", usable for that purpose. */
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1054 for (i = 0; i < imax ; i++)
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1055 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1056 const char *tmp = tempdirs[i];
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1057
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1058 if (*tmp == '$')
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1059 tmp = getenv (tmp + 1);
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1060 /* 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
1061 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
1062 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
1063 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
1064 if (tmp && _access (tmp, D_OK) == 0)
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1065 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1066 char * var = alloca (strlen (tmp) + 8);
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1067 sprintf (var, "TMPDIR=%s", tmp);
36001
1d402a57bb21 (init-environment): Duplicate local string before putenv.
Jason Rumney <jasonr@gnu.org>
parents: 35425
diff changeset
1068 _putenv (strdup (var));
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1069 break;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1070 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1071 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1072 if (i >= imax)
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1073 cmd_error_internal
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1074 (Fcons (Qerror,
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1075 Fcons (build_string ("no usable temporary directories found!!"),
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1076 Qnil)),
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1077 "While setting TMPDIR: ");
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1078
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1079 /* 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
1080 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
1081 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1082 int i;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1083 LPBYTE lpval;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1084 DWORD dwType;
33869
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1085 char locale_name[32];
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1086 struct stat ignored;
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1087 char default_home[MAX_PATH];
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1088
70738
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1089 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
1090 {
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1091 char * name;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1092 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
1093 } dflt_envvars[] =
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1094 {
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1095 {"HOME", "C:/"},
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1096 {"PRELOAD_WINSOCK", NULL},
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1097 {"emacs_dir", "C:/emacs"},
35425
c26271ca6ad0 (init_environment): Add a version-independent site-lisp
Andrew Innes <andrewi@gnu.org>
parents: 35286
diff changeset
1098 {"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
1099 {"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
1100 {"EMACSDATA", "%emacs_dir%/etc"},
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1101 {"EMACSPATH", "%emacs_dir%/bin"},
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1102 /* 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
1103 is then ignored. */
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1104 /* {"INFOPATH", "%emacs_dir%/info"}, */
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1105 {"EMACSDOC", "%emacs_dir%/etc"},
33869
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1106 {"TERM", "cmd"},
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1107 {"LANG", NULL},
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1108 };
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1109
70738
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1110 #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
1111
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1112 /* 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
1113 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
1114 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
1115 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
1116 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
1117
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1118 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
1119 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
1120
64326
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1121 /* 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
1122 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
1123 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
1124 if (stat ("C:/.emacs", &ignored) < 0)
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1125 {
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1126 HRESULT profile_result;
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1127 /* 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
1128 of Windows 95 and NT4 that have not been updated to include
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1129 MSIE 5. Also we don't link with shell32.dll by default. */
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1130 HMODULE shell32_dll;
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1131 ShGetFolderPath_fn get_folder_path;
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1132 shell32_dll = GetModuleHandle ("shell32.dll");
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1133 get_folder_path = (ShGetFolderPath_fn)
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1134 GetProcAddress (shell32_dll, "SHGetFolderPathA");
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1135
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1136 if (get_folder_path != NULL)
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1137 {
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1138 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
1139 0, default_home);
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1140
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1141 /* If we can't get the appdata dir, revert to old behaviour. */
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1142 if (profile_result == S_OK)
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1143 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
1144 }
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1145
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1146 /* Unload shell32.dll, it is not needed anymore. */
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1147 FreeLibrary (shell32_dll);
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1148 }
8d328b39d0d9 (init_environment): Default HOME directory to user's
Jason Rumney <jasonr@gnu.org>
parents: 64084
diff changeset
1149
33869
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1150 /* 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
1151 if (GetLocaleInfo (LOCALE_USER_DEFAULT,
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1152 LOCALE_SABBREVLANGNAME | LOCALE_USE_CP_ACP,
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1153 locale_name, sizeof (locale_name)))
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1154 {
70738
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1155 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
1156 {
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1157 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
1158 {
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1159 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
1160 break;
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1161 }
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1162 }
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1163 }
e41a7b1e443f (init_environment): Set LANG environment variable based on
Jason Rumney <jasonr@gnu.org>
parents: 31350
diff changeset
1164
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1165 #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
1166
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1167 /* 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
1168 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
1169 of a standard installation. */
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1170 {
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1171 char *p;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1172 char modname[MAX_PATH];
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1173
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1174 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
1175 abort ();
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1176 if ((p = strrchr (modname, '\\')) == NULL)
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1177 abort ();
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1178 *p = 0;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1179
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1180 if ((p = strrchr (modname, '\\')) && stricmp (p, "\\bin") == 0)
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1181 {
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1182 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
1183
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1184 *p = 0;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1185 for (p = modname; *p; p++)
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1186 if (*p == '\\') *p = '/';
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1187
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1188 _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
1189 _putenv (strdup (buf));
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1190 }
57609
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1191 /* 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
1192
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1193 /* 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
1194 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
1195 anymore, so have taken the easy option for now. */
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1196 else if (p && stricmp (p, "\\i386") == 0)
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1197 {
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1198 *p = 0;
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1199 p = strrchr (modname, '\\');
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1200 if (p != NULL)
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1201 {
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1202 *p = 0;
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1203 p = strrchr (modname, '\\');
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1204 if (p && stricmp (p, "\\src") == 0)
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1205 {
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1206 char buf[SET_ENV_BUF_SIZE];
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1207
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1208 *p = 0;
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1209 for (p = modname; *p; p++)
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1210 if (*p == '\\') *p = '/';
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1211
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1212 _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
1213 _putenv (strdup (buf));
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1214 }
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1215 }
5aefaad0a5f1 (init_environment): Set emacs_dir correctly when running
Jason Rumney <jasonr@gnu.org>
parents: 55645
diff changeset
1216 }
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1217 }
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1218
70738
ec34443b2ba0 (init_environment): Perform the processing of environment variables on a copy
Eli Zaretskii <eliz@gnu.org>
parents: 69172
diff changeset
1219 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
1220 {
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1221 if (!getenv (env_vars[i].name))
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1222 {
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1223 int dont_free = 0;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1224
78028
3a8b85706c0c (_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents: 76098
diff changeset
1225 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
1226 /* Also ignore empty environment variables. */
3a8b85706c0c (_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents: 76098
diff changeset
1227 || *lpval == 0)
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1228 {
79222
0ff71882c6a7 (init_environment): Fix tiny memory leak.
Juanma Barranquero <lekktu@gmail.com>
parents: 78919
diff changeset
1229 if (lpval) xfree (lpval);
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1230 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
1231 dwType = REG_EXPAND_SZ;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1232 dont_free = 1;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1233 }
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1234
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1235 if (lpval)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1236 {
70740
f263eba56074 (init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents: 70738
diff changeset
1237 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
1238
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1239 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
1240 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
1241 else if (dwType == REG_SZ)
f263eba56074 (init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents: 70738
diff changeset
1242 strcpy (buf1, lpval);
f263eba56074 (init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents: 70738
diff changeset
1243 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
1244 {
70740
f263eba56074 (init_environment): Simplify code that calls ExpandEnvironmentStrings and make
Eli Zaretskii <eliz@gnu.org>
parents: 70738
diff changeset
1245 _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
1246 buf1);
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1247 _putenv (strdup (buf2));
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1248 }
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1249
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1250 if (!dont_free)
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1251 xfree (lpval);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1252 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1253 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1254 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1255 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1256
16892
a8a539285d69 Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1257 /* Rebuild system configuration to reflect invoking system. */
a8a539285d69 Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1258 Vsystem_configuration = build_string (EMACS_CONFIGURATION);
a8a539285d69 Rebuild Vsystem_configuration at startup.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
1259
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1260 /* 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
1261 "Path" although cmd.exe (perhaps NT itself) arranges for
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1262 environment variable lookup and setting to be case insensitive.
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1263 However, Emacs assumes a fully case sensitive environment, so we
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1264 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
1265 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
1266 modifying the string in the C runtime environ entry.
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1267
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1268 The same applies to COMSPEC. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1269 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1270 char ** envp;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1271
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1272 for (envp = environ; *envp; envp++)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1273 if (_strnicmp (*envp, "PATH=", 5) == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1274 memcpy (*envp, "PATH=", 5);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1275 else if (_strnicmp (*envp, "COMSPEC=", 8) == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1276 memcpy (*envp, "COMSPEC=", 8);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1277 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1278
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1279 /* Remember the initial working directory for getwd, then make the
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1280 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
1281 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
1282 running subprocesses for the same reason.) */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1283 if (!GetCurrentDirectory (MAXPATHLEN, startup_dir))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1284 abort ();
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1285
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1286 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1287 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
1288 static char modname[MAX_PATH];
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1289
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1290 if (!GetModuleFileName (NULL, modname, MAX_PATH))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1291 abort ();
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1292 if ((p = strrchr (modname, '\\')) == NULL)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1293 abort ();
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1294 *p = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1295
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1296 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
1297
fc89585ce76f (init_environment): Change argv[0] to contain the full path to Emacs.
Andrew Innes <andrewi@gnu.org>
parents: 23858
diff changeset
1298 /* 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
1299 *p = '\\';
fc89585ce76f (init_environment): Change argv[0] to contain the full path to Emacs.
Andrew Innes <andrewi@gnu.org>
parents: 23858
diff changeset
1300 argv[0] = modname;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1301 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1302
27890
91be3fa84ccb (init_environment): Set Vw32_num_mouse_buttons here.
Jason Rumney <jasonr@gnu.org>
parents: 27630
diff changeset
1303 /* 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
1304 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
1305 mouse-3. */
55645
5b3f2477d17b Rename w32_num_mouse_buttons from Vw32_num_mouse_buttons.
Jason Rumney <jasonr@gnu.org>
parents: 55643
diff changeset
1306 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
1307
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1308 init_user_info ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1309 }
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1310
42192
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1311 char *
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1312 emacs_root_dir (void)
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1313 {
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1314 static char root_dir[FILENAME_MAX];
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1315 const char *p;
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1316
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1317 p = getenv ("emacs_dir");
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1318 if (p == NULL)
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1319 abort ();
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1320 strcpy (root_dir, p);
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1321 root_dir[parse_root (root_dir, NULL)] = '\0';
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1322 dostounix_filename (root_dir);
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1323 return root_dir;
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1324 }
bd23b0c564d9 (emacs_root_dir): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 39812
diff changeset
1325
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1326 /* We don't have scripts to automatically determine the system configuration
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1327 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
1328 user enter it, so we define EMACS_CONFIGURATION to invoke this runtime
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1329 routine. */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1330
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1331 char *
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1332 get_emacs_configuration (void)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1333 {
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1334 char *arch, *oem, *os;
24885
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1335 int build_num;
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1336 static char configuration_buffer[32];
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1337
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1338 /* Determine the processor type. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1339 switch (get_processor_type ())
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1340 {
12451
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1341
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1342 #ifdef PROCESSOR_INTEL_386
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1343 case PROCESSOR_INTEL_386:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1344 case PROCESSOR_INTEL_486:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1345 case PROCESSOR_INTEL_PENTIUM:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1346 arch = "i386";
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1347 break;
12451
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1348 #endif
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1349
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1350 #ifdef PROCESSOR_MIPS_R2000
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1351 case PROCESSOR_MIPS_R2000:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1352 case PROCESSOR_MIPS_R3000:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1353 case PROCESSOR_MIPS_R4000:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1354 arch = "mips";
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1355 break;
12451
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1356 #endif
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1357
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1358 #ifdef PROCESSOR_ALPHA_21064
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1359 case PROCESSOR_ALPHA_21064:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1360 arch = "alpha";
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1361 break;
12451
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1362 #endif
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
1363
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1364 default:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1365 arch = "unknown";
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1366 break;
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1367 }
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1368
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1369 /* 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
1370 #ifdef _MSC_VER
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1371 #define COMPILER_NAME "msvc"
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1372 #else
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1373 #ifdef __GNUC__
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1374 #define COMPILER_NAME "mingw"
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1375 #else
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1376 #define COMPILER_NAME "unknown"
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1377 #endif
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1378 #endif
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1379 oem = COMPILER_NAME;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1380
24885
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1381 switch (osinfo_cache.dwPlatformId) {
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1382 case VER_PLATFORM_WIN32_NT:
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1383 os = "nt";
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1384 build_num = osinfo_cache.dwBuildNumber;
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1385 break;
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1386 case VER_PLATFORM_WIN32_WINDOWS:
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1387 if (osinfo_cache.dwMinorVersion == 0) {
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1388 os = "windows95";
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1389 } else {
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1390 os = "windows98";
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1391 }
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1392 build_num = LOWORD (osinfo_cache.dwBuildNumber);
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1393 break;
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1394 case VER_PLATFORM_WIN32s:
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1395 /* Not supported, should not happen. */
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1396 os = "windows32s";
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1397 build_num = LOWORD (osinfo_cache.dwBuildNumber);
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1398 break;
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1399 default:
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1400 os = "unknown";
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1401 build_num = 0;
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1402 break;
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1403 }
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1404
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1405 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
1406 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
1407 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
1408 } else {
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1409 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
1410 }
5f1b1f5fd7c8 (get_emacs_configuration): Use GetVersionEx to
Geoff Voelker <voelker@cs.washington.edu>
parents: 24857
diff changeset
1411
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
1412 return configuration_buffer;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1413 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1414
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1415 char *
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1416 get_emacs_configuration_options (void)
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1417 {
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1418 static char options_buffer[256];
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1419
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1420 /* 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
1421 #ifdef _MSC_VER
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1422 #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
1423 #else
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1424 #ifdef __GNUC__
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1425 #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
1426 #else
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1427 #define COMPILER_VERSION ""
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1428 #endif
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1429 #endif
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1430
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1431 sprintf (options_buffer, COMPILER_VERSION);
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1432 #ifdef EMACSDEBUG
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1433 strcat (options_buffer, " --no-opt");
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1434 #endif
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1435 #ifdef USER_CFLAGS
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1436 strcat (options_buffer, " --cflags");
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1437 strcat (options_buffer, USER_CFLAGS);
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1438 #endif
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1439 #ifdef USER_LDFLAGS
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1440 strcat (options_buffer, " --ldflags");
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1441 strcat (options_buffer, USER_LDFLAGS);
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1442 #endif
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1443 return options_buffer;
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1444 }
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1445
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1446
11384
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1447 #include <sys/timeb.h>
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1448
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1449 /* Emulate gettimeofday (Ulrich Leodolter, 1/11/95). */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1450 void
11384
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1451 gettimeofday (struct timeval *tv, struct timezone *tz)
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1452 {
63020
92ecd695d7c1 (gettimeofday): Use struct _timeb, not struct timeb.
Eli Zaretskii <eliz@gnu.org>
parents: 60092
diff changeset
1453 struct _timeb tb;
11384
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1454 _ftime (&tb);
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1455
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1456 tv->tv_sec = tb.time;
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1457 tv->tv_usec = tb.millitm * 1000L;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1458 if (tz)
11384
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1459 {
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1460 tz->tz_minuteswest = tb.timezone; /* minutes west of Greenwich */
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1461 tz->tz_dsttime = tb.dstflag; /* type of dst correction */
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1462 }
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1463 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1464
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1465 /* ------------------------------------------------------------------------- */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
1466 /* 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
1467 /* ------------------------------------------------------------------------- */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1468
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1469 /* 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
1470 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
1471 (Ulrich Leodolter, 1/11/95). */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1472 char *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1473 sys_ctime (const time_t *t)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1474 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1475 char *str = (char *) ctime (t);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1476 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
1477 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1478
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1479 /* 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
1480 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
1481 This is much easier. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1482 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1483 sys_sleep (int seconds)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1484 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1485 Sleep (seconds * 1000);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1486 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1487
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1488 /* 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
1489 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
1490 extern int __cdecl _free_osfhnd (int fd);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1491
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1492 /* 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
1493 filedesc fd_info [ MAXDESC ];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1494
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1495 typedef struct volume_info_data {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1496 struct volume_info_data * next;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1497
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1498 /* time when info was obtained */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1499 DWORD timestamp;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1500
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1501 /* actual volume info */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1502 char * root_dir;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1503 DWORD serialnum;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1504 DWORD maxcomp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1505 DWORD flags;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1506 char * name;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1507 char * type;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1508 } volume_info_data;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1509
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1510 /* Global referenced by various functions. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1511 static volume_info_data volume_info;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1512
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1513 /* 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
1514 data never expires). */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1515 static BOOL fixed_drives[26];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1516
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1517 /* 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
1518 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
1519 #define DRIVE_INDEX( c ) ( (c) <= 'Z' ? (c) - 'A' : (c) - 'a' )
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1520 #define VOLINFO_STILL_VALID( root_dir, info ) \
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1521 ( ( isalpha (root_dir[0]) && \
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1522 fixed_drives[ DRIVE_INDEX (root_dir[0]) ] ) \
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1523 || GetTickCount () - info->timestamp < 10000 )
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1524
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1525 /* Cache support functions. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1526
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1527 /* Simple linked list with linear search is sufficient. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1528 static volume_info_data *volume_cache = NULL;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1529
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1530 static volume_info_data *
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1531 lookup_volume_info (char * root_dir)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1532 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1533 volume_info_data * info;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1534
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1535 for (info = volume_cache; info; info = info->next)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1536 if (stricmp (info->root_dir, root_dir) == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1537 break;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1538 return info;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1539 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1540
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1541 static void
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1542 add_volume_info (char * root_dir, volume_info_data * info)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1543 {
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1544 info->root_dir = xstrdup (root_dir);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1545 info->next = volume_cache;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1546 volume_cache = info;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1547 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1548
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1549
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1550 /* Wrapper for GetVolumeInformation, which uses caching to avoid
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1551 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
1552 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
1553 volume_info_data *
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1554 GetCachedVolumeInformation (char * root_dir)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1555 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1556 volume_info_data * info;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1557 char default_root[ MAX_PATH ];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1558
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1559 /* NULL for root_dir means use root from current directory. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1560 if (root_dir == NULL)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1561 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1562 if (GetCurrentDirectory (MAX_PATH, default_root) == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1563 return NULL;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1564 parse_root (default_root, &root_dir);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1565 *root_dir = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1566 root_dir = default_root;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1567 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1568
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1569 /* Local fixed drives can be cached permanently. Removable drives
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1570 cannot be cached permanently, since the volume name and serial
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1571 number (if nothing else) can change. Remote drives should be
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1572 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
1573 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
1574 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
1575 by other processes) without notice.
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1576
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1577 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
1578 volumes, we use a simple expiry mechanism to invalidate cache
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1579 entries that are more than ten seconds old. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1580
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1581 #if 0
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1582 /* No point doing this, because WNetGetConnection is even slower than
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1583 GetVolumeInformation, consistently taking ~50ms on a 486 (FWIW,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1584 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
1585 involve network access, and so is extremely quick). */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1586
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1587 /* Map drive letter to UNC if remote. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1588 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
1589 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1590 char remote_name[ 256 ];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1591 char drive[3] = { root_dir[0], ':' };
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1592
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1593 if (WNetGetConnection (drive, remote_name, sizeof (remote_name))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1594 == NO_ERROR)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1595 /* do something */ ;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1596 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1597 #endif
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 info = lookup_volume_info (root_dir);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1600
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1601 if (info == NULL || ! VOLINFO_STILL_VALID (root_dir, info))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1602 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1603 char name[ 256 ];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1604 DWORD serialnum;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1605 DWORD maxcomp;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1606 DWORD flags;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1607 char type[ 256 ];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1608
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1609 /* Info is not cached, or is stale. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1610 if (!GetVolumeInformation (root_dir,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1611 name, sizeof (name),
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1612 &serialnum,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1613 &maxcomp,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1614 &flags,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1615 type, sizeof (type)))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1616 return NULL;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1617
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1618 /* Cache the volume information for future use, overwriting existing
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1619 entry if present. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1620 if (info == NULL)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1621 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1622 info = (volume_info_data *) xmalloc (sizeof (volume_info_data));
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1623 add_volume_info (root_dir, info);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1624 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1625 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1626 {
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1627 xfree (info->name);
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1628 xfree (info->type);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1629 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1630
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1631 info->name = xstrdup (name);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1632 info->serialnum = serialnum;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1633 info->maxcomp = maxcomp;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1634 info->flags = flags;
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1635 info->type = xstrdup (type);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1636 info->timestamp = GetTickCount ();
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1637 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1638
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1639 return info;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1640 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1641
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1642 /* 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
1643 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
1644 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1645 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
1646 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1647 char temp[MAX_PATH];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1648 char *rootname = NULL; /* default to current volume */
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1649 volume_info_data * info;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1650
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1651 if (name == NULL)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1652 return FALSE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1653
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1654 /* 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
1655 if (isalpha (name[0]) && name[1] == ':')
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1656 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1657 rootname = temp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1658 temp[0] = *name++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1659 temp[1] = *name++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1660 temp[2] = '\\';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1661 temp[3] = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1662 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1663 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
1664 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1665 char *str = temp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1666 int slashes = 4;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1667 rootname = temp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1668 do
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1669 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1670 if (IS_DIRECTORY_SEP (*name) && --slashes == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1671 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1672 *str++ = *name++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1673 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1674 while ( *name );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1675
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1676 *str++ = '\\';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1677 *str = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1678 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1679
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1680 if (pPath)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1681 *pPath = name;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1682
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1683 info = GetCachedVolumeInformation (rootname);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1684 if (info != NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1685 {
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1686 /* Set global referenced by other functions. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1687 volume_info = *info;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1688 return TRUE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1689 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1690 return FALSE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1691 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1692
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1693 /* 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
1694 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
1695 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1696 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
1697 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1698 if (get_volume_info (name, pPath))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1699 return (volume_info.maxcomp == 12);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1700 return FALSE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1701 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1702
80030
6b3001cc9ca9 *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79759
diff changeset
1703 /* 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
1704 const char *
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
1705 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
1706 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1707 static char shortname[MAX_PATH];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1708 char * str = shortname;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1709 char c;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1710 char * path;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1711 const char * save_name = name;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1712
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1713 if (strlen (name) >= MAX_PATH)
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1714 {
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1715 /* 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
1716 strcpy (shortname, "?");
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1717 return shortname;
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1718 }
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
1719
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1720 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
1721 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1722 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
1723 register int extn = 0; /* extension added? */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1724 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
1725
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1726 while (name < path)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1727 *str++ = *name++; /* skip past UNC header */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1728
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1729 while ((c = *name++))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1730 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1731 switch ( c )
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1732 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1733 case '\\':
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1734 case '/':
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1735 *str++ = '\\';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1736 extn = 0; /* reset extension flags */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1737 dots = 2; /* max 2 dots */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1738 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
1739 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1740 case ':':
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1741 *str++ = ':';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1742 extn = 0; /* reset extension flags */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1743 dots = 2; /* max 2 dots */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1744 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
1745 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1746 case '.':
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1747 if ( dots )
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1748 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1749 /* 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
1750 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
1751 to be read as _emacs, for example. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1752
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1753 if (! *name ||
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1754 *name == '.' ||
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1755 IS_DIRECTORY_SEP (*name))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1756 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1757 *str++ = '.';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1758 dots--;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1759 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1760 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1761 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1762 *str++ = '_';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1763 left--;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1764 dots = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1765 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1766 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1767 else if ( !extn )
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1768 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1769 *str++ = '.';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1770 extn = 1; /* we've got an extension */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1771 left = 3; /* 3 chars in extension */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1772 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1773 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1774 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1775 /* 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
1776 *str++ = '_';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1777 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1778 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1779 case '~':
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1780 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
1781 if ( ! left )
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1782 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
1783 /* FALLTHRU */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1784 default:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1785 if ( left )
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 *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
1788 left--;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1789 dots = 0; /* started a path component */
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 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1792 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1793 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1794 *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
1795 }
867e4ead88d9 (map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents: 15141
diff changeset
1796 else
867e4ead88d9 (map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents: 15141
diff changeset
1797 {
867e4ead88d9 (map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents: 15141
diff changeset
1798 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
1799 unixtodos_filename (shortname);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1800 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1801
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1802 if (pPath)
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1803 *pPath = shortname + (path - save_name);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1804
15213
867e4ead88d9 (map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents: 15141
diff changeset
1805 return shortname;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1806 }
11384
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
1807
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1808 static int
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1809 is_exec (const char * name)
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1810 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1811 char * p = strrchr (name, '.');
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1812 return
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1813 (p != NULL
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1814 && (stricmp (p, ".exe") == 0 ||
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1815 stricmp (p, ".com") == 0 ||
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1816 stricmp (p, ".bat") == 0 ||
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1817 stricmp (p, ".cmd") == 0));
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1818 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
1819
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1820 /* Emulate the Unix directory procedures opendir, closedir,
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1821 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
1822 so we provide them here. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1823
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1824 struct direct dir_static; /* simulated directory contents */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1825 static HANDLE dir_find_handle = INVALID_HANDLE_VALUE;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1826 static int dir_is_fat;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1827 static char dir_pathname[MAXPATHLEN+1];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1828 static WIN32_FIND_DATA dir_find_data;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1829
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1830 /* 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
1831 root directory. */
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1832 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
1833 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
1834 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
1835 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
1836
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1837 DIR *
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1838 opendir (char *filename)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1839 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1840 DIR *dirp;
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 /* 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
1843 this operation, so we defer the open until read time. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1844
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1845 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
1846 return NULL;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1847 if (wnet_enum_handle != INVALID_HANDLE_VALUE)
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1848 return NULL;
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1849
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1850 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
1851 {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1852 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
1853 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
1854 return NULL;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1855 }
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1856
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1857 if (!(dirp = (DIR *) malloc (sizeof (DIR))))
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1858 return NULL;
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 dirp->dd_fd = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1861 dirp->dd_loc = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1862 dirp->dd_size = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1863
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1864 strncpy (dir_pathname, map_w32_filename (filename, NULL), MAXPATHLEN);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1865 dir_pathname[MAXPATHLEN] = '\0';
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1866 dir_is_fat = is_fat_volume (filename, NULL);
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 return dirp;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1869 }
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 void
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1872 closedir (DIR *dirp)
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 we have a find-handle open, close it. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1875 if (dir_find_handle != INVALID_HANDLE_VALUE)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1876 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1877 FindClose (dir_find_handle);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1878 dir_find_handle = INVALID_HANDLE_VALUE;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1879 }
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1880 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
1881 {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1882 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
1883 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
1884 }
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1885 xfree ((char *) dirp);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1886 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1887
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1888 struct direct *
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1889 readdir (DIR *dirp)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1890 {
80376
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
1891 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
1892
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1893 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
1894 {
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1895 if (!read_unc_volume (wnet_enum_handle,
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1896 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
1897 MAX_PATH))
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1898 return NULL;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1899 }
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1900 /* 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
1901 else if (dir_find_handle == INVALID_HANDLE_VALUE)
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1902 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1903 char filename[MAXNAMLEN + 3];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1904 int ln;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1905
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1906 strcpy (filename, dir_pathname);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1907 ln = strlen (filename) - 1;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1908 if (!IS_DIRECTORY_SEP (filename[ln]))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1909 strcat (filename, "\\");
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1910 strcat (filename, "*");
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1911
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1912 dir_find_handle = FindFirstFile (filename, &dir_find_data);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1913
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1914 if (dir_find_handle == INVALID_HANDLE_VALUE)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1915 return NULL;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1916 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1917 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1918 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1919 if (!FindNextFile (dir_find_handle, &dir_find_data))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1920 return NULL;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1921 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1922
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1923 /* 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
1924 value returned by stat(). */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1925 dir_static.d_ino = 1;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1926
93142
e1c95382ef7e (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 92148
diff changeset
1927 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
1928
e1c95382ef7e (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 92148
diff changeset
1929 /* 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
1930 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
1931 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
1932 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
1933 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
1934 {
e1c95382ef7e (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 92148
diff changeset
1935 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
1936 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
1937 }
e1c95382ef7e (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 92148
diff changeset
1938 dir_static.d_namlen = strlen (dir_static.d_name);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1939 dir_static.d_reclen = sizeof (struct direct) - MAXNAMLEN + 3 +
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1940 dir_static.d_namlen - dir_static.d_namlen % 4;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1941
80376
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
1942 /* 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
1943 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
1944 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
1945 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
1946 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
1947 {
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
1948 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
1949 /* 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
1950 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
1951 downcase = 1;
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
1952 }
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
1953 else
6e2a0297b94d (readdir): If FindFirstFile/FindNextFile return in cFileName a file name that
Eli Zaretskii <eliz@gnu.org>
parents: 80030
diff changeset
1954 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
1955 dir_static.d_namlen = strlen (dir_static.d_name);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1956 if (dir_is_fat)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1957 _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
1958 else if (downcase)
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1959 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1960 register char *p;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1961 for (p = dir_static.d_name; *p; p++)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1962 if (*p >= 'a' && *p <= 'z')
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1963 break;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1964 if (!*p)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1965 _strlwr (dir_static.d_name);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1966 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1967
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1968 return &dir_static;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1969 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
1970
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1971 HANDLE
55645
5b3f2477d17b Rename w32_num_mouse_buttons from Vw32_num_mouse_buttons.
Jason Rumney <jasonr@gnu.org>
parents: 55643
diff changeset
1972 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
1973 {
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1974 NETRESOURCE nr;
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1975 HANDLE henum;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1976 int result;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1977
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1978 nr.dwScope = RESOURCE_GLOBALNET;
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1979 nr.dwType = RESOURCETYPE_DISK;
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1980 nr.dwDisplayType = RESOURCEDISPLAYTYPE_SERVER;
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1981 nr.dwUsage = RESOURCEUSAGE_CONTAINER;
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1982 nr.lpLocalName = NULL;
63020
92ecd695d7c1 (gettimeofday): Use struct _timeb, not struct timeb.
Eli Zaretskii <eliz@gnu.org>
parents: 60092
diff changeset
1983 nr.lpRemoteName = (LPSTR)map_w32_filename (path, NULL);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1984 nr.lpComment = NULL;
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1985 nr.lpProvider = NULL;
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1986
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
1987 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
1988 RESOURCEUSAGE_CONNECTABLE, &nr, &henum);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1989
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1990 if (result == NO_ERROR)
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1991 return henum;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1992 else
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1993 return INVALID_HANDLE_VALUE;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1994 }
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1995
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1996 char *
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
1997 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
1998 {
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
1999 DWORD count;
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2000 int result;
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
2001 DWORD bufsize = 512;
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2002 char *buffer;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2003 char *ptr;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2004
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2005 count = 1;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2006 buffer = alloca (bufsize);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2007 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
2008 if (result != NO_ERROR)
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2009 return NULL;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2010
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2011 /* 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
2012 ptr = ((LPNETRESOURCE) buffer)->lpRemoteName;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2013 ptr += 2;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2014 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
2015 ptr++;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2016
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2017 strncpy (readbuf, ptr, size);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2018 return readbuf;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2019 }
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2020
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2021 void
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2022 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
2023 {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2024 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
2025 WNetCloseEnum (henum);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2026 }
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2027
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2028 DWORD
55645
5b3f2477d17b Rename w32_num_mouse_buttons from Vw32_num_mouse_buttons.
Jason Rumney <jasonr@gnu.org>
parents: 55643
diff changeset
2029 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
2030 {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2031 HANDLE henum;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2032 DWORD attrs;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2033
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2034 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
2035 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
2036 return -1;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2037
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2038 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
2039
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2040 close_unc_volume (henum);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2041
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2042 return attrs;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2043 }
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2044
87985
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2045 /* Ensure a network connection is authenticated. */
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2046 static void
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2047 logon_network_drive (const char *path)
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2048 {
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2049 NETRESOURCE resource;
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2050 char share[MAX_PATH];
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2051 int i, n_slashes;
93973
40f40216ff24 (logon_network_drive): Also logon to remote drives that
Jason Rumney <jasonr@gnu.org>
parents: 93759
diff changeset
2052 char drive[4];
40f40216ff24 (logon_network_drive): Also logon to remote drives that
Jason Rumney <jasonr@gnu.org>
parents: 93759
diff changeset
2053
40f40216ff24 (logon_network_drive): Also logon to remote drives that
Jason Rumney <jasonr@gnu.org>
parents: 93759
diff changeset
2054 sprintf (drive, "%c:\\", path[0]);
87985
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2055
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2056 /* 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
2057 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
2058 && GetDriveType (drive) != DRIVE_REMOTE)
87985
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2059 return;
93973
40f40216ff24 (logon_network_drive): Also logon to remote drives that
Jason Rumney <jasonr@gnu.org>
parents: 93759
diff changeset
2060
87985
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2061 n_slashes = 2;
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2062 strncpy (share, path, MAX_PATH);
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2063 /* Truncate to just server and share name. */
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2064 for (i = 2; i < MAX_PATH; i++)
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2065 {
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2066 if (IS_DIRECTORY_SEP (share[i]) && ++n_slashes > 3)
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2067 {
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2068 share[i] = '\0';
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2069 break;
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2070 }
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2071 }
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2072
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2073 resource.dwType = RESOURCETYPE_DISK;
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2074 resource.lpLocalName = NULL;
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2075 resource.lpRemoteName = share;
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2076 resource.lpProvider = NULL;
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2077
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2078 WNetAddConnection2 (&resource, NULL, NULL, CONNECT_INTERACTIVE);
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2079 }
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2080
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2081 /* 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
2082 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
2083 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
2084 long file names. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2085
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2086 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2087 sys_access (const char * path, int mode)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2088 {
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2089 DWORD attributes;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2090
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2091 /* MSVC implementation doesn't recognize D_OK. */
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2092 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
2093 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
2094 {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2095 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
2096 if (attributes == -1) {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2097 errno = EACCES;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2098 return -1;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2099 }
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2100 }
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2101 else if ((attributes = GetFileAttributes (path)) == -1)
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2102 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2103 /* Should try mapping GetLastError to errno; for now just indicate
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2104 that path doesn't exist. */
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2105 errno = EACCES;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2106 return -1;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2107 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2108 if ((mode & X_OK) != 0 && !is_exec (path))
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2109 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2110 errno = EACCES;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2111 return -1;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2112 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2113 if ((mode & W_OK) != 0 && (attributes & FILE_ATTRIBUTE_READONLY) != 0)
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2114 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2115 errno = EACCES;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2116 return -1;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2117 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2118 if ((mode & D_OK) != 0 && (attributes & FILE_ATTRIBUTE_DIRECTORY) == 0)
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2119 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2120 errno = EACCES;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2121 return -1;
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 return 0;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2124 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2125
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2126 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2127 sys_chdir (const char * path)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2128 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2129 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
2130 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2131
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2132 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2133 sys_chmod (const char * path, int mode)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2134 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2135 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
2136 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2137
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2138 int
63744
19486c46b17e (sys_chown): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 63038
diff changeset
2139 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
2140 {
93690
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
2141 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
2142 return -1;
19486c46b17e (sys_chown): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 63038
diff changeset
2143 return 0;
19486c46b17e (sys_chown): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 63038
diff changeset
2144 }
19486c46b17e (sys_chown): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 63038
diff changeset
2145
19486c46b17e (sys_chown): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 63038
diff changeset
2146 int
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2147 sys_creat (const char * path, int mode)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2148 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2149 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
2150 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2151
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2152 FILE *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2153 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
2154 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2155 int fd;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2156 int oflag;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2157 const char * mode_save = mode;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2158
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2159 /* 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
2160 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
2161 prevent future file access. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2162
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2163 if (mode[0] == 'r')
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2164 oflag = O_RDONLY;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2165 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
2166 oflag = O_WRONLY | O_CREAT | O_TRUNC;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2167 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2168 return NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2169
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2170 /* Only do simplistic option parsing. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2171 while (*++mode)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2172 if (mode[0] == '+')
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2173 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2174 oflag &= ~(O_RDONLY | O_WRONLY);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2175 oflag |= O_RDWR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2176 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2177 else if (mode[0] == 'b')
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2178 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2179 oflag &= ~O_TEXT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2180 oflag |= O_BINARY;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2181 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2182 else if (mode[0] == 't')
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2183 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2184 oflag &= ~O_BINARY;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2185 oflag |= O_TEXT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2186 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2187 else break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2188
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2189 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
2190 if (fd < 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2191 return NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2192
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2193 return _fdopen (fd, mode_save);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2194 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2195
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2196 /* 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
2197 int
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2198 sys_link (const char * old, const char * new)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2199 {
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2200 HANDLE fileh;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2201 int result = -1;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2202 char oldname[MAX_PATH], newname[MAX_PATH];
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2203
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2204 if (old == NULL || new == NULL)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2205 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2206 errno = ENOENT;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2207 return -1;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2208 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2209
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2210 strcpy (oldname, map_w32_filename (old, NULL));
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2211 strcpy (newname, map_w32_filename (new, NULL));
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2212
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2213 fileh = CreateFile (oldname, 0, 0, NULL, OPEN_EXISTING,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2214 FILE_FLAG_BACKUP_SEMANTICS, NULL);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2215 if (fileh != INVALID_HANDLE_VALUE)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2216 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2217 int wlen;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2218
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2219 /* Confusingly, the "alternate" stream name field does not apply
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2220 when restoring a hard link, and instead contains the actual
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2221 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
2222 The WIN32_STREAM_ID structure before the cStreamName field is
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2223 the stream header, which is then immediately followed by the
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2224 stream 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 struct {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2227 WIN32_STREAM_ID wid;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2228 WCHAR wbuffer[MAX_PATH]; /* extra space for link name */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2229 } data;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2230
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2231 wlen = MultiByteToWideChar (CP_ACP, MB_PRECOMPOSED, newname, -1,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2232 data.wid.cStreamName, MAX_PATH);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2233 if (wlen > 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2234 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2235 LPVOID context = NULL;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2236 DWORD wbytes = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2237
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2238 data.wid.dwStreamId = BACKUP_LINK;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2239 data.wid.dwStreamAttributes = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2240 data.wid.Size.LowPart = wlen * sizeof(WCHAR);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2241 data.wid.Size.HighPart = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2242 data.wid.dwStreamNameSize = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2243
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2244 if (BackupWrite (fileh, (LPBYTE)&data,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2245 offsetof (WIN32_STREAM_ID, cStreamName)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2246 + data.wid.Size.LowPart,
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2247 &wbytes, FALSE, FALSE, &context)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2248 && BackupWrite (fileh, NULL, 0, &wbytes, TRUE, FALSE, &context))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2249 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2250 /* succeeded */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2251 result = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2252 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2253 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2254 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2255 /* Should try mapping GetLastError to errno; for now just
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2256 indicate a general error (eg. links not supported). */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2257 errno = EINVAL; // perhaps EMLINK?
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2258 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2259 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2260
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2261 CloseHandle (fileh);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2262 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2263 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2264 errno = ENOENT;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2265
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2266 return result;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2267 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2268
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2269 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2270 sys_mkdir (const char * path)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2271 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2272 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
2273 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2274
15354
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2275 /* 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
2276 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
2277 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
2278 string.
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2279
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2280 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
2281 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
2282 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
2283 first of the 6 X's. */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2284 char *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2285 sys_mktemp (char * template)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2286 {
15354
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2287 char * p;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2288 int i;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2289 unsigned uid = GetCurrentThreadId ();
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2290 static char first_char[] = "abcdefghijklmnopqrstuvwyz0123456789!%-_@#";
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2291
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2292 if (template == NULL)
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2293 return NULL;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2294 p = template + strlen (template);
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2295 i = 5;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2296 /* 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
2297 while (--p >= template && p[0] == 'X' && --i >= 0)
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2298 {
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2299 p[0] = '0' + uid % 10;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2300 uid /= 10;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2301 }
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2302
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2303 if (i < 0 && p[0] == 'X')
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2304 {
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2305 i = 0;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2306 do
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2307 {
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2308 int save_errno = errno;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2309 p[0] = first_char[i];
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2310 if (sys_access (template, 0) < 0)
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2311 {
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2312 errno = save_errno;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2313 return template;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2314 }
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2315 }
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2316 while (++i < sizeof (first_char));
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2317 }
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2318
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2319 /* 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
2320 so return empty string */
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2321 template[0] = 0;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
2322 return template;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2323 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2324
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2325 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2326 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
2327 {
37291
83dd2eb5365f (sys_open): Try to open file without _O_CREAT first, to be
Gerd Moellmann <gerd@gnu.org>
parents: 36001
diff changeset
2328 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
2329 /* 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
2330 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
2331 non-inheritable. */
83dd2eb5365f (sys_open): Try to open file without _O_CREAT first, to be
Gerd Moellmann <gerd@gnu.org>
parents: 36001
diff changeset
2332 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
2333 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
2334 return res;
83dd2eb5365f (sys_open): Try to open file without _O_CREAT first, to be
Gerd Moellmann <gerd@gnu.org>
parents: 36001
diff changeset
2335 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
2336 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2337
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2338 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2339 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
2340 {
34644
69143373d98d (sys_rename): Only check errno against EEXIST, and not
Andrew Innes <andrewi@gnu.org>
parents: 33869
diff changeset
2341 BOOL result;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2342 char temp[MAX_PATH];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2343
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16867
diff changeset
2344 /* 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
2345 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
2346 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
2347 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
2348
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16867
diff changeset
2349 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
2350 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
2351 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
2352 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
2353
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16867
diff changeset
2354 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
2355 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
2356
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2357 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
2358
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2359 if (os_subtype == OS_WIN95)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2360 {
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2361 char * o;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2362 char * p;
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2363 int i = 0;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2364
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2365 oldname = map_w32_filename (oldname, NULL);
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2366 if (o = strrchr (oldname, '\\'))
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2367 o++;
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2368 else
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2369 o = (char *) oldname;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2370
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2371 if (p = strrchr (temp, '\\'))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2372 p++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2373 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2374 p = temp;
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2375
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2376 do
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2377 {
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2378 /* 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
2379 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
2380 sprintf (p, "_.%s.%u", o, i);
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2381 i++;
22430
921311b43bf4 (sys_rename): Don't examine errno if rename didn't fail.
Richard M. Stallman <rms@gnu.org>
parents: 22363
diff changeset
2382 result = rename (oldname, temp);
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2383 }
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2384 /* 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
2385 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
2386 if (result < 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2387 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2388 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2389
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2390 /* Emulate Unix behaviour - 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
2391 (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
2392
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2393 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
2394 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
2395 rename!), we let rename detect if the destination file already
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2396 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
2397 determine ourselves whether two names really refer to the same
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2398 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
2399 all the permutations of shared or subst'd drives, etc.) */
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2400
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2401 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
2402 result = rename (temp, newname);
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2403
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2404 if (result < 0
34644
69143373d98d (sys_rename): Only check errno against EEXIST, and not
Andrew Innes <andrewi@gnu.org>
parents: 33869
diff changeset
2405 && errno == EEXIST
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2406 && _chmod (newname, 0666) == 0
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2407 && _unlink (newname) == 0)
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2408 result = rename (temp, newname);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2409
22299
83928cc3329e (sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22039
diff changeset
2410 return result;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2411 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2412
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2413 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2414 sys_rmdir (const char * path)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2415 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2416 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
2417 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2418
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2419 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2420 sys_unlink (const char * path)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2421 {
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2422 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
2423
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2424 /* 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
2425 _chmod (path, 0666);
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2426 return _unlink (path);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2427 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2428
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2429 static FILETIME utc_base_ft;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2430 static long double utc_base;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2431 static int init = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2432
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2433 static time_t
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2434 convert_time (FILETIME ft)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2435 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2436 long double ret;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2437
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2438 if (!init)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2439 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2440 /* Determine the delta between 1-Jan-1601 and 1-Jan-1970. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2441 SYSTEMTIME st;
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 st.wYear = 1970;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2444 st.wMonth = 1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2445 st.wDay = 1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2446 st.wHour = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2447 st.wMinute = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2448 st.wSecond = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2449 st.wMilliseconds = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2450
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2451 SystemTimeToFileTime (&st, &utc_base_ft);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2452 utc_base = (long double) utc_base_ft.dwHighDateTime
72059
7b3a19a8bfdb (convert_time): Use explicit long double constants to ensure long double
Eli Zaretskii <eliz@gnu.org>
parents: 71899
diff changeset
2453 * 4096.0L * 1024.0L * 1024.0L + utc_base_ft.dwLowDateTime;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2454 init = 1;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2455 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2456
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2457 if (CompareFileTime (&ft, &utc_base_ft) < 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2458 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2459
72059
7b3a19a8bfdb (convert_time): Use explicit long double constants to ensure long double
Eli Zaretskii <eliz@gnu.org>
parents: 71899
diff changeset
2460 ret = (long double) ft.dwHighDateTime
7b3a19a8bfdb (convert_time): Use explicit long double constants to ensure long double
Eli Zaretskii <eliz@gnu.org>
parents: 71899
diff changeset
2461 * 4096.0L * 1024.0L * 1024.0L + ft.dwLowDateTime;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2462 ret -= utc_base;
72059
7b3a19a8bfdb (convert_time): Use explicit long double constants to ensure long double
Eli Zaretskii <eliz@gnu.org>
parents: 71899
diff changeset
2463 return (time_t) (ret * 1e-7L);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2464 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2465
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2466 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2467 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
2468 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2469 long double tmp;
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 if (!init)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2472 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2473 /* Determine the delta between 1-Jan-1601 and 1-Jan-1970. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2474 SYSTEMTIME st;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2475
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2476 st.wYear = 1970;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2477 st.wMonth = 1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2478 st.wDay = 1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2479 st.wHour = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2480 st.wMinute = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2481 st.wSecond = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2482 st.wMilliseconds = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2483
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2484 SystemTimeToFileTime (&st, &utc_base_ft);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2485 utc_base = (long double) utc_base_ft.dwHighDateTime
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2486 * 4096 * 1024 * 1024 + utc_base_ft.dwLowDateTime;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2487 init = 1;
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
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2490 /* time in 100ns units since 1-Jan-1601 */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2491 tmp = (long double) time * 1e7 + utc_base;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2492 pft->dwHighDateTime = (DWORD) (tmp / (4096.0 * 1024 * 1024));
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2493 pft->dwLowDateTime = (DWORD) (tmp - (4096.0 * 1024 * 1024) * pft->dwHighDateTime);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2494 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2495
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2496 #if 0
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2497 /* 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
2498 using the file index from GetInformationByHandle, is not perfect and
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2499 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
2500 Instead, we now determine file-truename correctly (except for
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2501 possible drive aliasing etc). */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2502
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2503 /* 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
2504 static unsigned
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2505 hashval (const unsigned char * str)
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 unsigned h = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2508 while (*str)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2509 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2510 h = (h << 4) + *str++;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2511 h ^= (h >> 28);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2512 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2513 return h;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2514 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2515
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2516 /* 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
2517 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
2518 static DWORD
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2519 generate_inode_val (const char * name)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2520 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2521 char fullname[ MAX_PATH ];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2522 char * p;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2523 unsigned hash;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2524
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2525 /* Get the truly canonical filename, if it exists. (Note: this
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2526 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
2527 links. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2528 if (!w32_get_long_filename ((char *)name, fullname, MAX_PATH))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2529 abort ();
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 parse_root (fullname, &p);
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2532 /* 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
2533 _strlwr (p);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2534 return hashval (p);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2535 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2536
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2537 #endif
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2538
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2539 /* 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
2540 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
2541 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
2542 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2543 stat (const char * path, struct stat * buf)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2544 {
22299
83928cc3329e (sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22039
diff changeset
2545 char *name, *r;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2546 WIN32_FIND_DATA wfd;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2547 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
2548 unsigned __int64 fake_inode;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2549 int permission;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2550 int len;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2551 int rootdir = FALSE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2552
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2553 if (path == NULL || buf == NULL)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2554 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2555 errno = EFAULT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2556 return -1;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2557 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2558
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2559 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
2560 /* 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
2561 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
2562 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
2563 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
2564 filesystems. */
9ad6c99cdc71 (stat, get_long_basename, is_unc_volume): Use _mbspbrk instead of strpbrk.
Eli Zaretskii <eliz@gnu.org>
parents: 75348
diff changeset
2565 if (_mbspbrk (name, "*?|<>\""))
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2566 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2567 errno = ENOENT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2568 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2569 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2570
22299
83928cc3329e (sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22039
diff changeset
2571 /* 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
2572 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
2573 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
2574 {
83928cc3329e (sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22039
diff changeset
2575 r[1] = r[2] = '\0';
83928cc3329e (sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22039
diff changeset
2576 }
83928cc3329e (sys_rename): Handle filenames with accented characters.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22039
diff changeset
2577
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2578 /* 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
2579 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
2580 is a trailing separator. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2581 len = strlen (name);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2582 rootdir = (path >= name + len - 1
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2583 && (IS_DIRECTORY_SEP (*path) || *path == 0));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2584 name = strcpy (alloca (len + 2), name);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2585
22505
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2586 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
2587 {
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2588 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
2589
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2590 if (attrs == -1)
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2591 return -1;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2592
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2593 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
2594 wfd.dwFileAttributes = attrs;
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2595 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
2596 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
2597 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
2598 strcpy (wfd.cFileName, name);
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2599 }
d4f3552a85f2 (is_unc_volume, open_unc_volume, read_unc_volume,
Geoff Voelker <voelker@cs.washington.edu>
parents: 22501
diff changeset
2600 else if (rootdir)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2601 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2602 if (!IS_DIRECTORY_SEP (name[len-1]))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2603 strcat (name, "\\");
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2604 if (GetDriveType (name) < 2)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2605 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2606 errno = ENOENT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2607 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2608 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2609 memset (&wfd, 0, sizeof (wfd));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2610 wfd.dwFileAttributes = FILE_ATTRIBUTE_DIRECTORY;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2611 wfd.ftCreationTime = utc_base_ft;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2612 wfd.ftLastAccessTime = utc_base_ft;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2613 wfd.ftLastWriteTime = utc_base_ft;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2614 strcpy (wfd.cFileName, name);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2615 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2616 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2617 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2618 if (IS_DIRECTORY_SEP (name[len-1]))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2619 name[len - 1] = 0;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2620
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2621 /* (This is hacky, but helps when doing file completions on
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2622 network drives.) Optimize by using information available from
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2623 active readdir if possible. */
25193
953155ee541a (stat): Check for directory ending in separator when
Geoff Voelker <voelker@cs.washington.edu>
parents: 24885
diff changeset
2624 len = strlen (dir_pathname);
953155ee541a (stat): Check for directory ending in separator when
Geoff Voelker <voelker@cs.washington.edu>
parents: 24885
diff changeset
2625 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
2626 len--;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2627 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
2628 && strnicmp (name, dir_pathname, len) == 0
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2629 && IS_DIRECTORY_SEP (name[len])
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2630 && stricmp (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
2631 {
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2632 /* This was the last entry returned by readdir. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2633 wfd = dir_find_data;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2634 }
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2635 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2636 {
88048
7c4da276fe17 (stat): Don't do a double check for networked drive.
Jason Rumney <jasonr@gnu.org>
parents: 87999
diff changeset
2637 logon_network_drive (name);
87985
f7a641e1f03d (logon_network_drive): New function.
Jason Rumney <jasonr@gnu.org>
parents: 87649
diff changeset
2638
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2639 fh = FindFirstFile (name, &wfd);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2640 if (fh == INVALID_HANDLE_VALUE)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2641 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2642 errno = ENOENT;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2643 return -1;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2644 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2645 FindClose (fh);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2646 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2647 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2648
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
2649 if (!NILP (Vw32_get_true_file_attributes)
80486
484a558118e3 Fix last change.
Jason Rumney <jasonr@gnu.org>
parents: 80484
diff changeset
2650 && !(EQ (Vw32_get_true_file_attributes, Qlocal) &&
80484
796bbedc63b1 (stat): When Vw32_get_true_file_attributes is Qlocal, get
Jason Rumney <jasonr@gnu.org>
parents: 80376
diff changeset
2651 GetDriveType (name) == DRIVE_FIXED)
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
2652 /* 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
2653 && (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
2654 FILE_FLAG_BACKUP_SEMANTICS, NULL))
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
2655 != INVALID_HANDLE_VALUE)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2656 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2657 /* 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
2658 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
2659 making a list of file name completions). */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2660 BY_HANDLE_FILE_INFORMATION info;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2661
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2662 if (GetFileInformationByHandle (fh, &info))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2663 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2664 buf->st_nlink = info.nNumberOfLinks;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2665 /* 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
2666 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
2667 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
2668 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
2669 (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
2670 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
2671 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
2672 fake_inode += info.nFileIndexLow;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2673 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2674 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2675 {
23622
0dc79ede9c53 (stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents: 23559
diff changeset
2676 buf->st_nlink = 1;
0dc79ede9c53 (stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents: 23559
diff changeset
2677 fake_inode = 0;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2678 }
23622
0dc79ede9c53 (stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents: 23559
diff changeset
2679
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
2680 if (wfd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
2681 {
93690
c9e7cd4c092d (sys_chown, stat, fstat): Use S_* constants instead of _S_* ones, since we
Eli Zaretskii <eliz@gnu.org>
parents: 93142
diff changeset
2682 buf->st_mode = S_IFDIR;
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
2683 }
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
2684 else
23622
0dc79ede9c53 (stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents: 23559
diff changeset
2685 {
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
2686 switch (GetFileType (fh))
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
2687 {
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
2688 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
2689 buf->st_mode = S_IFREG;
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
2690 break;
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
2691 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
2692 buf->st_mode = S_IFIFO;
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
2693 break;
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
2694 case FILE_TYPE_CHAR:
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
2695 case FILE_TYPE_UNKNOWN:
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
2696 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
2697 buf->st_mode = S_IFCHR;
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
2698 }
23622
0dc79ede9c53 (stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents: 23559
diff changeset
2699 }
0dc79ede9c53 (stat): GetFileInformationByHandle can legitimately fail, so don't
Andrew Innes <andrewi@gnu.org>
parents: 23559
diff changeset
2700 CloseHandle (fh);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2701 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2702 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2703 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2704 /* 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
2705 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
2706 S_IFDIR : S_IFREG;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2707 buf->st_nlink = 1;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2708 fake_inode = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2709 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2710
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2711 #if 0
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2712 /* Not sure if there is any point in this. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2713 if (!NILP (Vw32_generate_fake_inodes))
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2714 fake_inode = generate_inode_val (name);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2715 else if (fake_inode == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2716 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2717 /* For want of something better, try to make everything unique. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2718 static DWORD gen_num = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2719 fake_inode = ++gen_num;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2720 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2721 #endif
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2722
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2723 /* 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
2724 if (sizeof (buf->st_ino) == 2)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2725 buf->st_ino = fake_inode ^ (fake_inode >> 16);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2726 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
2727 buf->st_ino = fake_inode;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2728
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2729 /* consider files to belong to current user */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2730 buf->st_uid = the_passwd.pw_uid;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2731 buf->st_gid = the_passwd.pw_gid;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2732
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15615
diff changeset
2733 /* 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
2734 buf->st_dev = volume_info.serialnum;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2735 buf->st_rdev = volume_info.serialnum;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2736
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2737
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2738 buf->st_size = wfd.nFileSizeLow;
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 /* Convert timestamps to Unix format. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2741 buf->st_mtime = convert_time (wfd.ftLastWriteTime);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2742 buf->st_atime = convert_time (wfd.ftLastAccessTime);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2743 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
2744 buf->st_ctime = convert_time (wfd.ftCreationTime);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2745 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
2746
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2747 /* determine rwx permissions */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2748 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
2749 permission = S_IREAD;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2750 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
2751 permission = S_IREAD | S_IWRITE;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2752
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2753 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
2754 permission |= S_IEXEC;
22363
d00f146c3e9d #include sys/file.h
Karl Heuer <kwzh@gnu.org>
parents: 22299
diff changeset
2755 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
2756 permission |= S_IEXEC;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2757
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2758 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
2759
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2760 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2761 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2762
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2763 /* 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
2764 file timestamps. */
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2765 int
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2766 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
2767 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2768 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
2769 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
2770 unsigned __int64 fake_inode;
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2771 int permission;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2772
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2773 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
2774 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2775 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
2776 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
2777 if (!GetFileInformationByHandle (fh, &info))
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2778 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2779 errno = EACCES;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2780 return -1;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2781 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2782 break;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2783 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
2784 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
2785 goto non_disk;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2786 case FILE_TYPE_CHAR:
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2787 case FILE_TYPE_UNKNOWN:
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2788 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
2789 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
2790 non_disk:
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2791 memset (&info, 0, sizeof (info));
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2792 info.dwFileAttributes = 0;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2793 info.ftCreationTime = utc_base_ft;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2794 info.ftLastAccessTime = utc_base_ft;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2795 info.ftLastWriteTime = utc_base_ft;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2796 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2797
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2798 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
2799 buf->st_mode = S_IFDIR;
44927
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
2800
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
2801 buf->st_nlink = info.nNumberOfLinks;
1f6fdc21ea67 (stat, fstat): Use file index information to generate
Jason Rumney <jasonr@gnu.org>
parents: 44437
diff changeset
2802 /* 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
2803 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
2804 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
2805 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
2806 (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
2807 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
2808 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
2809 fake_inode += info.nFileIndexLow;
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2810
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2811 /* 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
2812 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
2813 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
2814 else
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2815 buf->st_ino = fake_inode;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2816
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2817 /* consider files to belong to current user */
87999
26fe370dfb79 (fstat): Use pw_uid and pw_gid from the_passwd structure for st_uid and
Eli Zaretskii <eliz@gnu.org>
parents: 87998
diff changeset
2818 buf->st_uid = the_passwd.pw_uid;
26fe370dfb79 (fstat): Use pw_uid and pw_gid from the_passwd structure for st_uid and
Eli Zaretskii <eliz@gnu.org>
parents: 87998
diff changeset
2819 buf->st_gid = the_passwd.pw_gid;
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2820
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2821 buf->st_dev = info.dwVolumeSerialNumber;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2822 buf->st_rdev = info.dwVolumeSerialNumber;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2823
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2824 buf->st_size = info.nFileSizeLow;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2825
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2826 /* Convert timestamps to Unix format. */
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2827 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
2828 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
2829 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
2830 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
2831 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
2832
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2833 /* determine rwx permissions */
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2834 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
2835 permission = S_IREAD;
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2836 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
2837 permission = S_IREAD | S_IWRITE;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
2838
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2839 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
2840 permission |= S_IEXEC;
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2841 else
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2842 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2843 #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
2844 char * p = strrchr (name, '.');
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2845 if (p != NULL &&
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2846 (stricmp (p, ".exe") == 0 ||
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2847 stricmp (p, ".com") == 0 ||
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2848 stricmp (p, ".bat") == 0 ||
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2849 stricmp (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
2850 permission |= S_IEXEC;
21737
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2851 #endif
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2852 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2853
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2854 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
2855
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2856 return 0;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2857 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2858
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2859 int
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2860 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
2861 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2862 struct utimbuf deftime;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2863 HANDLE fh;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2864 FILETIME mtime;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2865 FILETIME atime;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2866
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2867 if (times == NULL)
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2868 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2869 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
2870 times = &deftime;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2871 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2872
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2873 /* 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
2874 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
2875 0, OPEN_EXISTING, 0, NULL);
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2876 if (fh)
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2877 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2878 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
2879 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
2880 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
2881 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2882 CloseHandle (fh);
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2883 errno = EACCES;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2884 return -1;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2885 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2886 CloseHandle (fh);
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2887 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2888 else
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2889 {
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2890 errno = EINVAL;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2891 return -1;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2892 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2893 return 0;
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2894 }
d0b03ce6dcf5 (fstat, utime): New functions; these are provided in
Geoff Voelker <voelker@cs.washington.edu>
parents: 21605
diff changeset
2895
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2896 #ifdef HAVE_SOCKETS
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2897
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2898 /* 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
2899 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
2900
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2901 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
2902 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
2903 otherwise provide the minimum necessary functionality
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2904 (eg. gethostname). */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2905
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2906 /* function pointers for relevant socket functions */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2907 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
2908 void (PASCAL *pfn_WSASetLastError) (int iError);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2909 int (PASCAL *pfn_WSAGetLastError) (void);
71889
2385a5c8186c Fix high cpu load for server sockets.
Kim F. Storm <storm@cua.dk>
parents: 70740
diff changeset
2910 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
2911 HANDLE (PASCAL *pfn_WSACreateEvent) (void);
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
2912 int (PASCAL *pfn_WSACloseEvent) (HANDLE hEvent);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2913 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
2914 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
2915 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
2916 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
2917 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
2918 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
2919 int (PASCAL *pfn_closesocket) (SOCKET s);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2920 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
2921 int (PASCAL *pfn_WSACleanup) (void);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2922
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2923 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
2924 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
2925 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
2926 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
2927 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
2928 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
2929 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
2930 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
2931 const char * optval, int optlen);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
2932 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
2933 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
2934 int * namelen);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
2935 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
2936 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
2937 struct sockaddr * from, int * fromlen);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
2938 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
2939 const struct sockaddr * to, int tolen);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
2940
15342
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
2941 /* 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
2942 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
2943 #ifndef HANDLE_FLAG_INHERIT
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
2944 #define HANDLE_FLAG_INHERIT 1
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
2945 #endif
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2946
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
2947 HANDLE winsock_lib;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
2948 static int winsock_inuse;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2949
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
2950 BOOL
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2951 term_winsock (void)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2952 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
2953 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
2954 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
2955 /* 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
2956 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
2957 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
2958 if (pfn_WSACleanup () == 0 ||
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
2959 pfn_WSAGetLastError () == WSAENETDOWN)
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
2960 {
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
2961 if (FreeLibrary (winsock_lib))
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
2962 winsock_lib = NULL;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
2963 return TRUE;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
2964 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2965 }
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
2966 return FALSE;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2967 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2968
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
2969 BOOL
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
2970 init_winsock (int load_now)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2971 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2972 WSADATA winsockData;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2973
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
2974 if (winsock_lib != NULL)
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
2975 return TRUE;
15342
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
2976
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
2977 pfn_SetHandleInformation = NULL;
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
2978 pfn_SetHandleInformation
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
2979 = (void *) GetProcAddress (GetModuleHandle ("kernel32.dll"),
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
2980 "SetHandleInformation");
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
2981
71899
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
2982 winsock_lib = LoadLibrary ("Ws2_32.dll");
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2983
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2984 if (winsock_lib != NULL)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2985 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2986 /* dynamically link to socket functions */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2987
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2988 #define LOAD_PROC(fn) \
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2989 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
2990 goto fail;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2991
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2992 LOAD_PROC( WSAStartup );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2993 LOAD_PROC( WSASetLastError );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2994 LOAD_PROC( WSAGetLastError );
71889
2385a5c8186c Fix high cpu load for server sockets.
Kim F. Storm <storm@cua.dk>
parents: 70740
diff changeset
2995 LOAD_PROC( WSAEventSelect );
71899
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
2996 LOAD_PROC( WSACreateEvent );
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
2997 LOAD_PROC( WSACloseEvent );
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2998 LOAD_PROC( socket );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2999 LOAD_PROC( bind );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3000 LOAD_PROC( connect );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3001 LOAD_PROC( ioctlsocket );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3002 LOAD_PROC( recv );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3003 LOAD_PROC( send );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3004 LOAD_PROC( closesocket );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3005 LOAD_PROC( shutdown );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3006 LOAD_PROC( htons );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3007 LOAD_PROC( ntohs );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3008 LOAD_PROC( inet_addr );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3009 LOAD_PROC( gethostname );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3010 LOAD_PROC( gethostbyname );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3011 LOAD_PROC( getservbyname );
45090
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3012 LOAD_PROC( getpeername );
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3013 LOAD_PROC( WSACleanup );
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3014 LOAD_PROC( setsockopt );
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3015 LOAD_PROC( listen );
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3016 LOAD_PROC( getsockname );
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3017 LOAD_PROC( accept );
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3018 LOAD_PROC( recvfrom );
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3019 LOAD_PROC( sendto );
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3020 #undef LOAD_PROC
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3021
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3022 /* specify version 1.1 of winsock */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3023 if (pfn_WSAStartup (0x101, &winsockData) == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3024 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3025 if (winsockData.wVersion != 0x101)
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3026 goto fail;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3027
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3028 if (!load_now)
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3029 {
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3030 /* 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
3031 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
3032 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
3033 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
3034 connection to be established. */
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3035
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3036 pfn_WSACleanup ();
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3037 FreeLibrary (winsock_lib);
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3038 winsock_lib = NULL;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3039 }
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3040 winsock_inuse = 0;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3041 return TRUE;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3042 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3043
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3044 fail:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3045 FreeLibrary (winsock_lib);
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3046 winsock_lib = NULL;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3047 }
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3048
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3049 return FALSE;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3050 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3051
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3052
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3053 int h_errno = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3054
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3055 /* function to set h_errno for compatability; map winsock error codes to
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3056 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
3057 are already in <sys/socket.h> */
74947
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
3058 static void
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
3059 set_errno ()
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3060 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3061 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3062 h_errno = EINVAL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3063 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3064 h_errno = pfn_WSAGetLastError ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3065
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3066 switch (h_errno)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3067 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3068 case WSAEACCES: h_errno = EACCES; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3069 case WSAEBADF: h_errno = EBADF; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3070 case WSAEFAULT: h_errno = EFAULT; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3071 case WSAEINTR: h_errno = EINTR; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3072 case WSAEINVAL: h_errno = EINVAL; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3073 case WSAEMFILE: h_errno = EMFILE; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3074 case WSAENAMETOOLONG: h_errno = ENAMETOOLONG; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3075 case WSAENOTEMPTY: h_errno = ENOTEMPTY; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3076 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3077 errno = h_errno;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3078 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3079
74947
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
3080 static void
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
3081 check_errno ()
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3082 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3083 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
3084 pfn_WSASetLastError (0);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3085 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3086
24857
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3087 /* Extend strerror to handle the winsock-specific error codes. */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3088 struct {
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3089 int errnum;
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3090 char * msg;
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3091 } _wsa_errlist[] = {
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3092 WSAEINTR , "Interrupted function call",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3093 WSAEBADF , "Bad file descriptor",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3094 WSAEACCES , "Permission denied",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3095 WSAEFAULT , "Bad address",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3096 WSAEINVAL , "Invalid argument",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3097 WSAEMFILE , "Too many open files",
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
3098
24857
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3099 WSAEWOULDBLOCK , "Resource temporarily unavailable",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3100 WSAEINPROGRESS , "Operation now in progress",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3101 WSAEALREADY , "Operation already in progress",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3102 WSAENOTSOCK , "Socket operation on non-socket",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3103 WSAEDESTADDRREQ , "Destination address required",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3104 WSAEMSGSIZE , "Message too long",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3105 WSAEPROTOTYPE , "Protocol wrong type for socket",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3106 WSAENOPROTOOPT , "Bad protocol option",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3107 WSAEPROTONOSUPPORT , "Protocol not supported",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3108 WSAESOCKTNOSUPPORT , "Socket type not supported",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3109 WSAEOPNOTSUPP , "Operation not supported",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3110 WSAEPFNOSUPPORT , "Protocol family not supported",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3111 WSAEAFNOSUPPORT , "Address family not supported by protocol family",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3112 WSAEADDRINUSE , "Address already in use",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3113 WSAEADDRNOTAVAIL , "Cannot assign requested address",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3114 WSAENETDOWN , "Network is down",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3115 WSAENETUNREACH , "Network is unreachable",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3116 WSAENETRESET , "Network dropped connection on reset",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3117 WSAECONNABORTED , "Software caused connection abort",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3118 WSAECONNRESET , "Connection reset by peer",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3119 WSAENOBUFS , "No buffer space available",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3120 WSAEISCONN , "Socket is already connected",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3121 WSAENOTCONN , "Socket is not connected",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3122 WSAESHUTDOWN , "Cannot send after socket shutdown",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3123 WSAETOOMANYREFS , "Too many references", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3124 WSAETIMEDOUT , "Connection timed out",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3125 WSAECONNREFUSED , "Connection refused",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3126 WSAELOOP , "Network loop", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3127 WSAENAMETOOLONG , "Name is too long",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3128 WSAEHOSTDOWN , "Host is down",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3129 WSAEHOSTUNREACH , "No route to host",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3130 WSAENOTEMPTY , "Buffer not empty", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3131 WSAEPROCLIM , "Too many processes",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3132 WSAEUSERS , "Too many users", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3133 WSAEDQUOT , "Double quote in host name", /* really not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3134 WSAESTALE , "Data is stale", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3135 WSAEREMOTE , "Remote error", /* not sure */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
3136
24857
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3137 WSASYSNOTREADY , "Network subsystem is unavailable",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3138 WSAVERNOTSUPPORTED , "WINSOCK.DLL version out of range",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3139 WSANOTINITIALISED , "Winsock not initialized successfully",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3140 WSAEDISCON , "Graceful shutdown in progress",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3141 #ifdef WSAENOMORE
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3142 WSAENOMORE , "No more operations allowed", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3143 WSAECANCELLED , "Operation cancelled", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3144 WSAEINVALIDPROCTABLE , "Invalid procedure table from service provider",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3145 WSAEINVALIDPROVIDER , "Invalid service provider version number",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3146 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
3147 WSASYSCALLFAILURE , "System call failure",
24857
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3148 WSASERVICE_NOT_FOUND , "Service not found", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3149 WSATYPE_NOT_FOUND , "Class type not found",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3150 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
3151 WSA_E_CANCELLED , "Operation already cancelled", /* really not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3152 WSAEREFUSED , "Operation refused", /* not sure */
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3153 #endif
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
3154
24857
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3155 WSAHOST_NOT_FOUND , "Host not found",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3156 WSATRY_AGAIN , "Authoritative host not found during name lookup",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3157 WSANO_RECOVERY , "Non-recoverable error during name lookup",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3158 WSANO_DATA , "Valid name, no data record of requested type",
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3159
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3160 -1, NULL
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3161 };
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3162
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3163 char *
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3164 sys_strerror(int error_no)
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3165 {
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3166 int i;
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3167 static char unknown_msg[40];
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3168
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
3169 if (error_no >= 0 && error_no < sys_nerr)
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
3170 return sys_errlist[error_no];
24857
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3171
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3172 for (i = 0; _wsa_errlist[i].errnum >= 0; i++)
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3173 if (_wsa_errlist[i].errnum == error_no)
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3174 return _wsa_errlist[i].msg;
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3175
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3176 sprintf(unknown_msg, "Unidentified error: %d", error_no);
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3177 return unknown_msg;
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3178 }
031247d14ba1 (sys_strerror): New function.
Andrew Innes <andrewi@gnu.org>
parents: 24229
diff changeset
3179
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3180 /* [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
3181 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
3182 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
3183
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3184 //#define SOCK_REPLACE_HANDLE
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3185
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3186 #ifdef SOCK_REPLACE_HANDLE
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3187 #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
3188 #else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3189 #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
3190 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3191
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3192 int socket_to_fd (SOCKET s);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3193
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3194 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3195 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
3196 {
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3197 SOCKET s;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3198
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3199 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3200 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3201 h_errno = ENETDOWN;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3202 return INVALID_SOCKET;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3203 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3204
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3205 check_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3206
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3207 /* call the real socket function */
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3208 s = pfn_socket (af, type, protocol);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
3209
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3210 if (s != INVALID_SOCKET)
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3211 return socket_to_fd (s);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3212
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3213 set_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3214 return -1;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3215 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3216
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3217 /* 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
3218 int
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3219 socket_to_fd (SOCKET s)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3220 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3221 int fd;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3222 child_process * cp;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3223
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3224 /* 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
3225 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
3226 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
3227 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
3228 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
3229
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3230 /* 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
3231 fd = _open ("NUL:", _O_RDWR);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3232 if (fd >= 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3233 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3234 #ifdef SOCK_REPLACE_HANDLE
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3235 /* 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
3236 CloseHandle ((HANDLE) _get_osfhandle (fd));
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3237 _free_osfhnd (fd);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3238 _set_osfhnd (fd, s);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3239 /* setmode (fd, _O_BINARY); */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3240 #else
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3241 /* 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
3242 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
3243 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
3244 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
3245 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3246 /* 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
3247 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
3248 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
3249 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
3250 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
3251 if (pfn_SetHandleInformation)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3252 {
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3253 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
3254 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3255 else
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3256 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3257 HANDLE parent = GetCurrentProcess ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3258 HANDLE new_s = INVALID_HANDLE_VALUE;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3259
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3260 if (DuplicateHandle (parent,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3261 (HANDLE) s,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3262 parent,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3263 &new_s,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3264 0,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3265 FALSE,
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3266 DUPLICATE_SAME_ACCESS))
30060
15f8d649a7a8 (init_environment): Install code from 20.7 for providing
Andrew Innes <andrewi@gnu.org>
parents: 28932
diff changeset
3267 {
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3268 /* 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
3269 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
3270 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
3271 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
3272 long nonblocking = 0;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3273 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
3274 {
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3275 pfn_closesocket (s);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3276 s = (SOCKET) new_s;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3277 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3278 else
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3279 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3280 CloseHandle (new_s);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3281 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
3282 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3283 }
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3284 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3285 fd_info[fd].hnd = (HANDLE) s;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3286 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3287
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3288 /* set our own internal flags */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3289 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
3290
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3291 cp = new_child ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3292 if (cp)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3293 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3294 cp->fd = fd;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3295 cp->status = STATUS_READ_ACKNOWLEDGED;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3296
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3297 /* attach child_process to fd_info */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3298 if (fd_info[ fd ].cp != NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3299 {
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3300 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
3301 abort ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3302 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3303
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3304 fd_info[ fd ].cp = cp;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3305
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3306 /* success! */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3307 winsock_inuse++; /* count open sockets */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3308 return fd;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3309 }
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3310
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3311 /* clean up */
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3312 _close (fd);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3313 }
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3314 pfn_closesocket (s);
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3315 h_errno = EMFILE;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3316 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3317 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3318
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3319
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3320 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3321 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
3322 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3323 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3324 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3325 h_errno = ENOTSOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3326 return SOCKET_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3327 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3328
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3329 check_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3330 if (fd_info[s].flags & FILE_SOCKET)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3331 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3332 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
3333 if (rc == SOCKET_ERROR)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3334 set_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3335 return rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3336 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3337 h_errno = ENOTSOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3338 return SOCKET_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3339 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3340
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3341
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3342 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3343 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
3344 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3345 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3346 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3347 h_errno = ENOTSOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3348 return SOCKET_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3349 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3350
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3351 check_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3352 if (fd_info[s].flags & FILE_SOCKET)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3353 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3354 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
3355 if (rc == SOCKET_ERROR)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3356 set_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3357 return rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3358 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3359 h_errno = ENOTSOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3360 return SOCKET_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3361 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3362
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3363 u_short
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3364 sys_htons (u_short hostshort)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3365 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3366 return (winsock_lib != NULL) ?
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3367 pfn_htons (hostshort) : hostshort;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3368 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3369
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3370 u_short
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3371 sys_ntohs (u_short netshort)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3372 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3373 return (winsock_lib != NULL) ?
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3374 pfn_ntohs (netshort) : netshort;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3375 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3376
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3377 unsigned long
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3378 sys_inet_addr (const char * cp)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3379 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3380 return (winsock_lib != NULL) ?
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3381 pfn_inet_addr (cp) : INADDR_NONE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3382 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3383
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3384 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3385 sys_gethostname (char * name, int namelen)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3386 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3387 if (winsock_lib != NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3388 return pfn_gethostname (name, namelen);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3389
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3390 if (namelen > MAX_COMPUTERNAME_LENGTH)
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
3391 return !GetComputerName (name, (DWORD *)&namelen);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3392
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3393 h_errno = EFAULT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3394 return SOCKET_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3395 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3396
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3397 struct hostent *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3398 sys_gethostbyname(const char * name)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3399 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3400 struct hostent * host;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3401
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3402 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3403 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3404 h_errno = ENETDOWN;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3405 return NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3406 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3407
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3408 check_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3409 host = pfn_gethostbyname (name);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3410 if (!host)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3411 set_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3412 return host;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3413 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3414
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3415 struct servent *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3416 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
3417 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3418 struct servent * serv;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3419
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3420 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3421 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3422 h_errno = ENETDOWN;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3423 return NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3424 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3425
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3426 check_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3427 serv = pfn_getservbyname (name, proto);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3428 if (!serv)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3429 set_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3430 return serv;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3431 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3432
18725
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
3433 int
45090
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3434 sys_getpeername (int s, struct sockaddr *addr, int * namelen)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3435 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3436 if (winsock_lib == NULL)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3437 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3438 h_errno = ENETDOWN;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3439 return SOCKET_ERROR;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3440 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3441
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3442 check_errno ();
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3443 if (fd_info[s].flags & FILE_SOCKET)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3444 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3445 int rc = pfn_getpeername (SOCK_HANDLE (s), addr, namelen);
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3446 if (rc == SOCKET_ERROR)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3447 set_errno ();
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3448 return rc;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3449 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3450 h_errno = ENOTSOCK;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3451 return SOCKET_ERROR;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3452 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3453
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3454
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3455 int
18725
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
3456 sys_shutdown (int s, int how)
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
3457 {
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
3458 if (winsock_lib == NULL)
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
3459 {
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
3460 h_errno = ENETDOWN;
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
3461 return SOCKET_ERROR;
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
3462 }
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
3463
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
3464 check_errno ();
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
3465 if (fd_info[s].flags & FILE_SOCKET)
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
3466 {
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
3467 int rc = pfn_shutdown (SOCK_HANDLE (s), how);
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
3468 if (rc == SOCKET_ERROR)
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
3469 set_errno ();
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
3470 return rc;
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
3471 }
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
3472 h_errno = ENOTSOCK;
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
3473 return SOCKET_ERROR;
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
3474 }
07145cb40453 (sys_shutdown): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16892
diff changeset
3475
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3476 int
63038
ac1cd1222417 (sys_setsockopt): Change arg 4 to `const void *'. In the
Eli Zaretskii <eliz@gnu.org>
parents: 63020
diff changeset
3477 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
3478 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3479 if (winsock_lib == NULL)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3480 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3481 h_errno = ENETDOWN;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3482 return SOCKET_ERROR;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3483 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3484
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3485 check_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3486 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
3487 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3488 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
3489 (const char *)optval, optlen);
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3490 if (rc == SOCKET_ERROR)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3491 set_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3492 return rc;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3493 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3494 h_errno = ENOTSOCK;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
3495 return SOCKET_ERROR;
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3496 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3497
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3498 int
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3499 sys_listen (int s, int backlog)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3500 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3501 if (winsock_lib == NULL)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3502 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3503 h_errno = ENETDOWN;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3504 return SOCKET_ERROR;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3505 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3506
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3507 check_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3508 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
3509 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3510 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
3511 if (rc == SOCKET_ERROR)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3512 set_errno ();
71889
2385a5c8186c Fix high cpu load for server sockets.
Kim F. Storm <storm@cua.dk>
parents: 70740
diff changeset
3513 else
71899
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3514 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
3515 return rc;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3516 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3517 h_errno = ENOTSOCK;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
3518 return SOCKET_ERROR;
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3519 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3520
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3521 int
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3522 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
3523 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3524 if (winsock_lib == NULL)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3525 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3526 h_errno = ENETDOWN;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3527 return SOCKET_ERROR;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3528 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3529
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3530 check_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3531 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
3532 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3533 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
3534 if (rc == SOCKET_ERROR)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3535 set_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3536 return rc;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3537 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3538 h_errno = ENOTSOCK;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
3539 return SOCKET_ERROR;
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3540 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3541
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3542 int
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3543 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
3544 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3545 if (winsock_lib == NULL)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3546 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3547 h_errno = ENETDOWN;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3548 return -1;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3549 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3550
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3551 check_errno ();
71889
2385a5c8186c Fix high cpu load for server sockets.
Kim F. Storm <storm@cua.dk>
parents: 70740
diff changeset
3552 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
3553 {
44437
81e8a128e49f (sys_accept): Don't hide variable `s'.
Juanma Barranquero <lekktu@gmail.com>
parents: 44042
diff changeset
3554 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
3555 int fd = -1;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3556 if (t == INVALID_SOCKET)
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3557 set_errno ();
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3558 else
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3559 fd = socket_to_fd (t);
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3560
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3561 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
3562 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
3563 return fd;
44042
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3564 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3565 h_errno = ENOTSOCK;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3566 return -1;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3567 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3568
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3569 int
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3570 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
3571 struct sockaddr * from, int * fromlen)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3572 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3573 if (winsock_lib == NULL)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3574 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3575 h_errno = ENETDOWN;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3576 return SOCKET_ERROR;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3577 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3578
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3579 check_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3580 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
3581 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3582 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
3583 if (rc == SOCKET_ERROR)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3584 set_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3585 return rc;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3586 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3587 h_errno = ENOTSOCK;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3588 return SOCKET_ERROR;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3589 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3590
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3591 int
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3592 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
3593 const struct sockaddr * to, int tolen)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3594 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3595 if (winsock_lib == NULL)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3596 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3597 h_errno = ENETDOWN;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3598 return SOCKET_ERROR;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3599 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3600
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3601 check_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3602 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
3603 {
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3604 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
3605 if (rc == SOCKET_ERROR)
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3606 set_errno ();
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3607 return rc;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3608 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3609 h_errno = ENOTSOCK;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3610 return SOCKET_ERROR;
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3611 }
6e7772d1632e (init_winsock): Dynamically load new server and UDP
Jason Rumney <jasonr@gnu.org>
parents: 42469
diff changeset
3612
45090
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3613 /* 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
3614 solely for making sockets non-blocking. */
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3615 int
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3616 fcntl (int s, int cmd, int options)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3617 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3618 if (winsock_lib == NULL)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3619 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3620 h_errno = ENETDOWN;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3621 return -1;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3622 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3623
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3624 check_errno ();
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3625 if (fd_info[s].flags & FILE_SOCKET)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3626 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3627 if (cmd == F_SETFL && options == O_NDELAY)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3628 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3629 unsigned long nblock = 1;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3630 int rc = pfn_ioctlsocket (SOCK_HANDLE (s), FIONBIO, &nblock);
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3631 if (rc == SOCKET_ERROR)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3632 set_errno();
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3633 /* 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
3634 fd_info[s].flags |= FILE_NDELAY;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3635 return rc;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3636 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3637 else
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3638 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3639 h_errno = EINVAL;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3640 return SOCKET_ERROR;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3641 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3642 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3643 h_errno = ENOTSOCK;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3644 return SOCKET_ERROR;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3645 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3646
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3647 #endif /* HAVE_SOCKETS */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3648
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3649
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3650 /* 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
3651 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
3652
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3653 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3654 sys_close (int fd)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3655 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3656 int rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3657
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
3658 if (fd < 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3659 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3660 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3661 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3662 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3663
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
3664 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
3665 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3666 child_process * cp = fd_info[fd].cp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3667
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3668 fd_info[fd].cp = NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3669
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3670 if (CHILD_ACTIVE (cp))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3671 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3672 /* 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
3673 int i;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3674 for (i = 0; i < MAXDESC; i++)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3675 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3676 if (i == fd)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3677 continue;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3678 if (fd_info[i].cp == cp)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3679 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3680 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3681 if (i == MAXDESC)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3682 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3683 #ifdef HAVE_SOCKETS
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3684 if (fd_info[fd].flags & FILE_SOCKET)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3685 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3686 #ifndef SOCK_REPLACE_HANDLE
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3687 if (winsock_lib == NULL) abort ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3688
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3689 pfn_shutdown (SOCK_HANDLE (fd), 2);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3690 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
3691 #endif
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3692 winsock_inuse--; /* count open sockets */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3693 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3694 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3695 delete_child (cp);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3696 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3697 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3698 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3699
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3700 /* 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
3701 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
3702 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
3703 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
3704 rc = _close (fd);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3705
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
3706 if (rc == 0 && fd < MAXDESC)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3707 fd_info[fd].flags = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3708
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3709 return rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3710 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3711
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3712 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3713 sys_dup (int fd)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3714 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3715 int new_fd;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3716
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3717 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
3718 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
3719 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3720 /* duplicate our internal info as well */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3721 fd_info[new_fd] = fd_info[fd];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3722 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3723 return new_fd;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3724 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3725
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3726
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3727 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3728 sys_dup2 (int src, int dst)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3729 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3730 int rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3731
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3732 if (dst < 0 || dst >= MAXDESC)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3733 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3734 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3735 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3736 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3737
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3738 /* 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
3739 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
3740 sys_close (dst);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
3741
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3742 rc = _dup2 (src, dst);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3743 if (rc == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3744 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3745 /* duplicate our internal info as well */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3746 fd_info[dst] = fd_info[src];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3747 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3748 return rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3749 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3750
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3751 /* Unix pipe() has only one arg */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3752 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3753 sys_pipe (int * phandles)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3754 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3755 int rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3756 unsigned flags;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3757
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3758 /* 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
3759 replace the relevant handle with an inheritable one. Also put
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3760 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
3761 if required. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3762 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
3763
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3764 if (rc == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3765 {
52353
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
3766 /* 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
3767 our fd_info array has room for. */
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
3768 if (phandles[0] >= MAXDESC || phandles[1] >= MAXDESC)
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
3769 {
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
3770 _close (phandles[0]);
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
3771 _close (phandles[1]);
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
3772 rc = -1;
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
3773 }
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
3774 else
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
3775 {
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
3776 flags = FILE_PIPE | FILE_READ | FILE_BINARY;
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
3777 fd_info[phandles[0]].flags = flags;
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
3778
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
3779 flags = FILE_PIPE | FILE_WRITE | FILE_BINARY;
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
3780 fd_info[phandles[1]].flags = flags;
373b8dc17c8b (sys_pipe): Protect against file descriptor overflow.
Jason Rumney <jasonr@gnu.org>
parents: 49600
diff changeset
3781 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3782 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3783
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3784 return rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3785 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3786
15249
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
3787 /* From ntproc.c */
55643
ed93b07d7123 (_sys_read_ahead): Use w32_pipe_read_delay.
Jason Rumney <jasonr@gnu.org>
parents: 53123
diff changeset
3788 extern int w32_pipe_read_delay;
15249
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
3789
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3790 /* 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
3791 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
3792 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3793 _sys_read_ahead (int fd)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3794 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3795 child_process * cp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3796 int rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3797
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3798 if (fd < 0 || fd >= MAXDESC)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3799 return STATUS_READ_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3800
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3801 cp = fd_info[fd].cp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3802
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3803 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
3804 return STATUS_READ_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3805
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3806 if ((fd_info[fd].flags & (FILE_PIPE | FILE_SOCKET)) == 0
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3807 || (fd_info[fd].flags & FILE_READ) == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3808 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3809 DebPrint (("_sys_read_ahead: internal error: fd %d is not a pipe or socket!\n", fd));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3810 abort ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3811 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
3812
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3813 cp->status = STATUS_READ_IN_PROGRESS;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
3814
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3815 if (fd_info[fd].flags & FILE_PIPE)
15249
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
3816 {
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
3817 rc = _read (fd, &cp->chr, sizeof (char));
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
3818
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
3819 /* 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
3820 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
3821 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
3822 the normal console stdout - as a result most DOS programs will
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
3823 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
3824 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
3825 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
3826 if (rc > 0)
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
3827 {
55643
ed93b07d7123 (_sys_read_ahead): Use w32_pipe_read_delay.
Jason Rumney <jasonr@gnu.org>
parents: 53123
diff changeset
3828 int wait = w32_pipe_read_delay;
15249
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
3829
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
3830 if (wait > 0)
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
3831 Sleep (wait);
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
3832 else if (wait < 0)
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
3833 while (++wait <= 0)
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
3834 /* 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
3835 temporary priority boost to the child process. */
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
3836 Sleep (0);
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
3837 }
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
3838 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3839 #ifdef HAVE_SOCKETS
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3840 else if (fd_info[fd].flags & FILE_SOCKET)
45090
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3841 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3842 unsigned long nblock = 0;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3843 /* 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
3844 if (fd_info[fd].flags & FILE_NDELAY)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3845 pfn_ioctlsocket (SOCK_HANDLE (fd), FIONBIO, &nblock);
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3846
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3847 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
3848
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3849 if (fd_info[fd].flags & FILE_NDELAY)
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3850 {
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3851 nblock = 1;
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3852 pfn_ioctlsocket (SOCK_HANDLE (fd), FIONBIO, &nblock);
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3853 }
c9aa2603d1f7 (sys_getpeername, fcntl): New functions.
Jason Rumney <jasonr@gnu.org>
parents: 45007
diff changeset
3854 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3855 #endif
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
3856
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3857 if (rc == sizeof (char))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3858 cp->status = STATUS_READ_SUCCEEDED;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3859 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3860 cp->status = STATUS_READ_FAILED;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3861
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3862 return cp->status;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3863 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3864
74947
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
3865 int
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
3866 _sys_wait_accept (int fd)
71899
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3867 {
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3868 HANDLE hEv;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3869 child_process * cp;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3870 int rc;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3871
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3872 if (fd < 0 || fd >= MAXDESC)
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3873 return STATUS_READ_ERROR;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3874
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3875 cp = fd_info[fd].cp;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3876
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3877 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
3878 return STATUS_READ_ERROR;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3879
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3880 cp->status = STATUS_READ_FAILED;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3881
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3882 hEv = pfn_WSACreateEvent ();
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3883 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
3884 if (rc != SOCKET_ERROR)
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3885 {
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3886 rc = WaitForSingleObject (hEv, INFINITE);
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3887 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
3888 if (rc == WAIT_OBJECT_0)
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3889 cp->status = STATUS_READ_SUCCEEDED;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3890 }
74786
4f26e07fd85d (_sys_wait_accept): Fix handle leak.
Kim F. Storm <storm@cua.dk>
parents: 72631
diff changeset
3891 pfn_WSACloseEvent (hEv);
71899
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3892
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3893 return cp->status;
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3894 }
6772d0603863 (pfn_WSACreateEvent, pfn_WSACloseEvent): New func ptrs.
Kim F. Storm <storm@cua.dk>
parents: 71889
diff changeset
3895
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3896 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3897 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
3898 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3899 int nchars;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3900 int to_read;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3901 DWORD waiting;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3902 char * orig_buffer = buffer;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3903
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
3904 if (fd < 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3905 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3906 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3907 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3908 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3909
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
3910 if (fd < MAXDESC && fd_info[fd].flags & (FILE_PIPE | FILE_SOCKET))
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3911 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3912 child_process *cp = fd_info[fd].cp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3913
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3914 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
3915 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3916 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3917 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3918 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3919
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3920 nchars = 0;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3921
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3922 /* re-read CR carried over from last read */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3923 if (fd_info[fd].flags & FILE_LAST_CR)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3924 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3925 if (fd_info[fd].flags & FILE_BINARY) abort ();
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3926 *buffer++ = 0x0d;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3927 count--;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3928 nchars++;
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
3929 fd_info[fd].flags &= ~FILE_LAST_CR;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3930 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3931
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3932 /* 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
3933 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
3934 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
3935 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
3936 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
3937 if (cp)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3938 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3939 int current_status = cp->status;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3940
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3941 switch (current_status)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3942 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3943 case STATUS_READ_FAILED:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3944 case STATUS_READ_ERROR:
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
3945 /* report normal EOF if nothing in buffer */
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
3946 if (nchars <= 0)
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
3947 fd_info[fd].flags |= FILE_AT_EOF;
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
3948 return nchars;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3949
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3950 case STATUS_READ_READY:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3951 case STATUS_READ_IN_PROGRESS:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3952 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
3953 errno = EWOULDBLOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3954 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3955
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3956 case STATUS_READ_SUCCEEDED:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3957 /* consume read-ahead char */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3958 *buffer++ = cp->chr;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3959 count--;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3960 nchars++;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3961 cp->status = STATUS_READ_ACKNOWLEDGED;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3962 ResetEvent (cp->char_avail);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3963
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3964 case STATUS_READ_ACKNOWLEDGED:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3965 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3966
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3967 default:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3968 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
3969 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3970 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3971 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3972
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3973 if (fd_info[fd].flags & FILE_PIPE)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3974 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3975 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
3976 to_read = min (waiting, (DWORD) count);
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
3977
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
3978 if (to_read > 0)
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
3979 nchars += _read (fd, buffer, to_read);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3980 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3981 #ifdef HAVE_SOCKETS
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3982 else /* FILE_SOCKET */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3983 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
3984 if (winsock_lib == NULL) abort ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3985
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3986 /* 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
3987 pfn_ioctlsocket (SOCK_HANDLE (fd), FIONREAD, &waiting);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3988 if (waiting == 0 && nchars == 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3989 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3990 h_errno = errno = EWOULDBLOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3991 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3992 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3993
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3994 if (waiting)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3995 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3996 /* always use binary mode for sockets */
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3997 int res = pfn_recv (SOCK_HANDLE (fd), buffer, count, 0);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
3998 if (res == SOCKET_ERROR)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
3999 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4000 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
4001 pfn_WSAGetLastError (), SOCK_HANDLE (fd)));
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4002 set_errno ();
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4003 return -1;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4004 }
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4005 nchars += res;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4006 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4007 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4008 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4009 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4010 else
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
4011 {
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
4012 int nread = _read (fd, buffer, count);
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
4013 if (nread >= 0)
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
4014 nchars += nread;
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
4015 else if (nchars == 0)
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
4016 nchars = nread;
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
4017 }
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
4018
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
4019 if (nchars <= 0)
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
4020 fd_info[fd].flags |= FILE_AT_EOF;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4021 /* Perform text mode translation if required. */
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
4022 else if ((fd_info[fd].flags & FILE_BINARY) == 0)
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4023 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4024 nchars = crlf_to_lf (nchars, orig_buffer);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4025 /* If buffer contains only CR, return that. To be absolutely
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4026 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
4027 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
4028 itself in the buffer. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4029 if (nchars > 1 && orig_buffer[nchars - 1] == 0x0d)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4030 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4031 fd_info[fd].flags |= FILE_LAST_CR;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4032 nchars--;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4033 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4034 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4035 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4036 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4037 nchars = _read (fd, buffer, count);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4038
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4039 return nchars;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4040 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4041
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4042 /* 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
4043 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4044 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
4045 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4046 int nchars;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4047
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
4048 if (fd < 0)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4049 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4050 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4051 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4052 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4053
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
4054 if (fd < MAXDESC && fd_info[fd].flags & (FILE_PIPE | FILE_SOCKET))
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4055 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4056 if ((fd_info[fd].flags & FILE_WRITE) == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4057 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4058 errno = EBADF;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4059 return -1;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4060 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4061
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4062 /* Perform text mode translation if required. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4063 if ((fd_info[fd].flags & FILE_BINARY) == 0)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4064 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4065 char * tmpbuf = alloca (count * 2);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4066 unsigned char * src = (void *)buffer;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4067 unsigned char * dst = tmpbuf;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4068 int nbytes = count;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4069
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4070 while (1)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4071 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4072 unsigned char *next;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4073 /* copy next line or remaining bytes */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4074 next = _memccpy (dst, src, '\n', nbytes);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4075 if (next)
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4076 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4077 /* copied one line ending with '\n' */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4078 int copied = next - dst;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4079 nbytes -= copied;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4080 src += copied;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4081 /* insert '\r' before '\n' */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4082 next[-1] = '\r';
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4083 next[0] = '\n';
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4084 dst = next + 1;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4085 count++;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4086 }
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4087 else
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4088 /* copied remaining partial line -> now finished */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4089 break;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4090 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4091 buffer = tmpbuf;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4092 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4093 }
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4094
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4095 #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
4096 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
4097 {
48545
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
4098 unsigned long nblock = 0;
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4099 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
4100
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
4101 /* 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
4102 /* 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
4103 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
4104 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
4105
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4106 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
4107
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
4108 /* 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
4109 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
4110 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
4111 {
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
4112 nblock = 1;
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
4113 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
4114 }
538af265a4a7 (sys_write): Avoid non-blocking mode, which is not fully
Jason Rumney <jasonr@gnu.org>
parents: 48375
diff changeset
4115
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4116 if (nchars == SOCKET_ERROR)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4117 {
48561
b4fb06f61bfd Doc fix
Jason Rumney <jasonr@gnu.org>
parents: 48545
diff changeset
4118 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
4119 pfn_WSAGetLastError (), SOCK_HANDLE (fd)));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4120 set_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4121 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4122 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4123 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4124 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4125 nchars = _write (fd, buffer, count);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4126
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4127 return nchars;
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
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
4130 static void
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
4131 check_windows_init_file ()
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
4132 {
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
4133 extern int noninteractive, inhibit_window_system;
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
4134
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
4135 /* 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
4136 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
4137 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
4138
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4139 if (!noninteractive && !inhibit_window_system)
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
4140 {
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
4141 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
4142 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
4143 Lisp_Object full_load_path;
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
4144 Lisp_Object init_file;
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
4145 int fd;
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
4146
23809
2a6ad78388b3 (check_windows_init_file): Use decode_env_path when
Geoff Voelker <voelker@cs.washington.edu>
parents: 23622
diff changeset
4147 objs[0] = Vload_path;
2a6ad78388b3 (check_windows_init_file): Use decode_env_path when
Geoff Voelker <voelker@cs.washington.edu>
parents: 23622
diff changeset
4148 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
4149 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
4150 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
4151 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
4152 if (fd < 0)
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
4153 {
23559
989c9cb875e3 (check_windows_init_file): Also look in load path specified
Geoff Voelker <voelker@cs.washington.edu>
parents: 23395
diff changeset
4154 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
4155 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
4156 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
4157 char *buffer = alloca (1024
02e47d7a9bca (check_windows_init_file): Fix allocation of error buffer.
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
4158 + strlen (init_file_name)
02e47d7a9bca (check_windows_init_file): Fix allocation of error buffer.
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
4159 + strlen (load_path));
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
4160
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4161 sprintf (buffer,
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
4162 "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
4163 "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
4164 "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
4165 "\n%s\n\n"
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
4166 "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
4167 "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
4168 "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
4169 "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
4170 init_file_name, load_path);
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
4171 MessageBox (NULL,
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
4172 buffer,
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
4173 "Emacs Abort Dialog",
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
4174 MB_OK | MB_ICONEXCLAMATION | MB_TASKMODAL);
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
4175 /* Use the low-level Emacs abort. */
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
4176 #undef abort
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
4177 abort ();
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
4178 }
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
4179 else
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
4180 {
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
4181 _close (fd);
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
4182 }
21605
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
4183 }
60b840947a09 (sys_read): Clear carriage return flag.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21565
diff changeset
4184 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4185
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4186 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4187 term_ntproc ()
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4188 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4189 #ifdef HAVE_SOCKETS
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4190 /* shutdown the socket interface if necessary */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4191 term_winsock ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4192 #endif
60092
04686828d0da 2004-11-08 Benjamin Riefenstahl <Benjamin.Riefenstahl@epost.de>
Jason Rumney <jasonr@gnu.org>
parents: 57609
diff changeset
4193
04686828d0da 2004-11-08 Benjamin Riefenstahl <Benjamin.Riefenstahl@epost.de>
Jason Rumney <jasonr@gnu.org>
parents: 57609
diff changeset
4194 term_w32select ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4195 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4196
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4197 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4198 init_ntproc ()
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4199 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4200 #ifdef HAVE_SOCKETS
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4201 /* 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
4202 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
4203 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
4204 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
4205
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4206 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
4207 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
4208
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4209 /* Always initialize this correctly. */
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4210 winsock_lib = NULL;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4211
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4212 if (getenv ("PRELOAD_WINSOCK") != NULL)
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
4213 init_winsock (TRUE);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4214 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4215
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4216 /* 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
4217 handles with non-inheritable versions. */
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 HANDLE parent;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4220 HANDLE stdin_save = INVALID_HANDLE_VALUE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4221 HANDLE stdout_save = INVALID_HANDLE_VALUE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4222 HANDLE stderr_save = INVALID_HANDLE_VALUE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4223
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4224 parent = GetCurrentProcess ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4225
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4226 /* 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
4227 handles will be invalid when running as a gui program. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4228 DuplicateHandle (parent,
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4229 GetStdHandle (STD_INPUT_HANDLE),
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4230 parent,
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4231 &stdin_save,
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4232 0,
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4233 FALSE,
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4234 DUPLICATE_SAME_ACCESS);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4235
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4236 DuplicateHandle (parent,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4237 GetStdHandle (STD_OUTPUT_HANDLE),
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4238 parent,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4239 &stdout_save,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4240 0,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4241 FALSE,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4242 DUPLICATE_SAME_ACCESS);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4243
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4244 DuplicateHandle (parent,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4245 GetStdHandle (STD_ERROR_HANDLE),
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4246 parent,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4247 &stderr_save,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4248 0,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4249 FALSE,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4250 DUPLICATE_SAME_ACCESS);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4251
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4252 fclose (stdin);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4253 fclose (stdout);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4254 fclose (stderr);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4255
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4256 if (stdin_save != INVALID_HANDLE_VALUE)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4257 _open_osfhandle ((long) stdin_save, O_TEXT);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4258 else
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4259 _open ("nul", O_TEXT | O_NOINHERIT | O_RDONLY);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4260 _fdopen (0, "r");
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4261
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4262 if (stdout_save != INVALID_HANDLE_VALUE)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4263 _open_osfhandle ((long) stdout_save, O_TEXT);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4264 else
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4265 _open ("nul", O_TEXT | O_NOINHERIT | O_WRONLY);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4266 _fdopen (1, "w");
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4267
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4268 if (stderr_save != INVALID_HANDLE_VALUE)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4269 _open_osfhandle ((long) stderr_save, O_TEXT);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4270 else
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4271 _open ("nul", O_TEXT | O_NOINHERIT | O_WRONLY);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4272 _fdopen (2, "w");
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 /* unfortunately, atexit depends on implementation of malloc */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4276 /* atexit (term_ntproc); */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4277 signal (SIGABRT, term_ntproc);
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4278
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4279 /* determine which drives are fixed, for GetCachedVolumeInformation */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4280 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4281 /* GetDriveType must have trailing backslash. */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4282 char drive[] = "A:\\";
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4283
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4284 /* Loop over all possible drive letters */
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4285 while (*drive <= 'Z')
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4286 {
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4287 /* Record if this drive letter refers to a fixed drive. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4288 fixed_drives[DRIVE_INDEX (*drive)] =
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4289 (GetDriveType (drive) == DRIVE_FIXED);
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4290
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4291 (*drive)++;
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4292 }
31106
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
4293
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
4294 /* Reset the volume info cache. */
ad1ae9eb641a (GetCachedVolumeInformation): Use xmalloc, xfree and xstrdup.
Andrew Innes <andrewi@gnu.org>
parents: 30060
diff changeset
4295 volume_cache = NULL;
19704
974a890c1d12 Include stddef.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18725
diff changeset
4296 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48888
diff changeset
4297
23395
93d7c8a30147 (init_ntproc): Check for Windows init file.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23016
diff changeset
4298 /* 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
4299 check_windows_init_file ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4300 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
4301
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
4302 /*
72631
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
4303 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
4304 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
4305 */
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
4306 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
4307 {
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
4308 /* 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
4309 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
4310 || 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
4311 || 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
4312 {
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
4313 /* 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
4314 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
4315 }
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
4316
74786
4f26e07fd85d (_sys_wait_accept): Fix handle leak.
Kim F. Storm <storm@cua.dk>
parents: 72631
diff changeset
4317 /* 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
4318 return FALSE;
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
4319 }
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
4320
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
4321 /*
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
4322 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
4323 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
4324 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
4325 */
74947
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
4326 void
357bd3ca981a Wrap function headers.
Kim F. Storm <storm@cua.dk>
parents: 74786
diff changeset
4327 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
4328 {
81421
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
4329 HMODULE kernel32 = GetModuleHandle ("kernel32.dll");
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
4330
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
4331 get_process_times_fn = (GetProcessTimes_Proc)
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
4332 GetProcAddress (kernel32, "GetProcessTimes");
5e608f6f217b (get_process_times_fn): New function pointer.
Jason Rumney <jasonr@gnu.org>
parents: 81416
diff changeset
4333
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
4334 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
4335 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
4336 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
4337 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
4338 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
4339 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
4340 g_b_init_get_sid_sub_authority_count = 0;
72631
acfcb86a7b5e (shutdown_handler): New function to exit cleanly on shutdown.
Jason Rumney <jasonr@gnu.org>
parents: 72286
diff changeset
4341 /* 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
4342 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
4343 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
4344 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
4345 SetConsoleCtrlHandler(shutdown_handler, TRUE);
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
4346 }
f0df5f687c15 Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents: 48561
diff changeset
4347
78028
3a8b85706c0c (_wsa_errlist): Fix typo in error message.
Juanma Barranquero <lekktu@gmail.com>
parents: 76098
diff changeset
4348 /* end of w32.c */
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52353
diff changeset
4349
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52353
diff changeset
4350 /* arch-tag: 90442dd3-37be-482b-b272-ac752e3049f1
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52353
diff changeset
4351 (do not change this comment) */