annotate src/w32.c @ 15553:6a77264bef21 libc-960629 libc-960630 libc-960701 libc-960702 libc-960703 libc-960704 libc-960705 libc-960706 libc-960707

(mips:*:*:UMIPS): Fix typo in last change.
author Richard Kenner <kenner@gnu.org>
date Fri, 28 Jun 1996 17:28:58 +0000
parents 6344f92ddba2
children 124e347ce827
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1 /* Utility and Unix shadow routines for GNU Emacs on Windows NT.
11384
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
2 Copyright (C) 1994, 1995 Free Software Foundation, Inc.
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 13932
diff changeset
4 This file is part of GNU Emacs.
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 13932
diff changeset
6 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
7 it under the terms of the GNU General Public License as published by
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 13932
diff changeset
8 the Free Software Foundation; either version 2, or (at your option)
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 13932
diff changeset
9 any later version.
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 13932
diff changeset
11 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
12 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
13 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
14 GNU General Public License for more details.
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 13932
diff changeset
16 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
17 along with GNU Emacs; see the file COPYING. If not, write to
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 13932
diff changeset
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 13932
diff changeset
19 Boston, MA 02111-1307, USA.
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 Geoff Voelker (voelker@cs.washington.edu) 7-29-94
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23
14246
ebdd1b50daba (nt_stat): Use alloca instead of xmalloc.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
24
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>
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
32 #include <sys/time.h>
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
33
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
34 /* must include CRT headers *before* config.h */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
35 #include "config.h"
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
36 #undef access
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
37 #undef chdir
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
38 #undef chmod
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
39 #undef creat
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
40 #undef ctime
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
41 #undef fopen
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
42 #undef link
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
43 #undef mkdir
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
44 #undef mktemp
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
45 #undef open
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
46 #undef rename
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
47 #undef rmdir
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
48 #undef unlink
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
49
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
50 #undef close
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
51 #undef dup
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
52 #undef dup2
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
53 #undef pipe
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
54 #undef read
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
55 #undef write
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
56
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
57 #define getwd _getwd
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
58 #include "lisp.h"
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
59 #undef getwd
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
60
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61 #include <pwd.h>
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
62
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
63 #include <windows.h>
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
64
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
65 #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
66 #include <sys/socket.h>
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
67 #undef socket
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
68 #undef bind
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
69 #undef connect
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
70 #undef htons
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
71 #undef ntohs
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
72 #undef inet_addr
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
73 #undef gethostname
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
74 #undef gethostbyname
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
75 #undef getservbyname
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
76 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
77
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
78 #include "nt.h"
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
79 #include "ndir.h"
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
80 #include "ntheap.h"
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
81
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
82 /* Get the current working directory. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
83 char *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
84 getwd (char *dir)
14246
ebdd1b50daba (nt_stat): Use alloca instead of xmalloc.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
85 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
86 if (GetCurrentDirectory (MAXPATHLEN, dir) > 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
87 return dir;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
88 return NULL;
14246
ebdd1b50daba (nt_stat): Use alloca instead of xmalloc.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
89 }
ebdd1b50daba (nt_stat): Use alloca instead of xmalloc.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14186
diff changeset
90
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
91 #ifndef HAVE_SOCKETS
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
92 /* Emulate gethostname. */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
93 int
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
94 gethostname (char *buffer, int size)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
95 {
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
96 /* NT only allows small host names, so the buffer is
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
97 certainly large enough. */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
98 return !GetComputerName (buffer, &size);
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
99 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
100 #endif /* HAVE_SOCKETS */
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
101
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
102 /* Emulate getloadavg. */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
103 int
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
104 getloadavg (double loadavg[], int nelem)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
105 {
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
106 int i;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
107
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
108 /* A faithful emulation is going to have to be saved for a rainy day. */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
109 for (i = 0; i < nelem; i++)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
110 {
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
111 loadavg[i] = 0.0;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
112 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
113 return i;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
114 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
115
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
116 /* Emulate the Unix directory procedures opendir, closedir,
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
117 and readdir. We can't use the procedures supplied in sysdep.c,
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
118 so we provide them here. */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
119
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
120 struct direct dir_static; /* simulated directory contents */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
121 static HANDLE dir_find_handle = INVALID_HANDLE_VALUE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
122 static int dir_is_fat;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
123 static char dir_pathname[MAXPATHLEN+1];
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
124
15326
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
125 extern Lisp_Object Vwin32_downcase_file_names;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
126
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
127 DIR *
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
128 opendir (char *filename)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
129 {
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
130 DIR *dirp;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
131
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
132 /* Opening is done by FindFirstFile. However, a read is inherent to
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
133 this operation, so we defer the open until read time. */
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
134
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
135 if (!(dirp = (DIR *) malloc (sizeof (DIR))))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
136 return NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
137 if (dir_find_handle != INVALID_HANDLE_VALUE)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
138 return NULL;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
139
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
140 dirp->dd_fd = 0;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
141 dirp->dd_loc = 0;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
142 dirp->dd_size = 0;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
143
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
144 strncpy (dir_pathname, filename, MAXPATHLEN);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
145 dir_pathname[MAXPATHLEN] = '\0';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
146 dir_is_fat = is_fat_volume (filename, NULL);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
147
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
148 return dirp;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
149 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
150
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
151 void
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
152 closedir (DIR *dirp)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
153 {
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
154 /* If we have a find-handle open, close it. */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
155 if (dir_find_handle != INVALID_HANDLE_VALUE)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
156 {
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
157 FindClose (dir_find_handle);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
158 dir_find_handle = INVALID_HANDLE_VALUE;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
159 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
160 xfree ((char *) dirp);
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
161 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
162
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
163 struct direct *
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
164 readdir (DIR *dirp)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
165 {
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
166 WIN32_FIND_DATA find_data;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
167
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
168 /* If we aren't dir_finding, do a find-first, otherwise do a find-next. */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
169 if (dir_find_handle == INVALID_HANDLE_VALUE)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
170 {
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
171 char filename[MAXNAMLEN + 3];
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
172 int ln;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
173
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
174 strcpy (filename, dir_pathname);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
175 ln = strlen (filename) - 1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
176 if (!IS_DIRECTORY_SEP (filename[ln]))
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
177 strcat (filename, "\\");
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
178 strcat (filename, "*");
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
179
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
180 dir_find_handle = FindFirstFile (filename, &find_data);
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
181
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
182 if (dir_find_handle == INVALID_HANDLE_VALUE)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
183 return NULL;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
184 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
185 else
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
186 {
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
187 if (!FindNextFile (dir_find_handle, &find_data))
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
188 return NULL;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
189 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
190
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
191 /* Emacs never uses this value, so don't bother making it match
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
192 value returned by stat(). */
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
193 dir_static.d_ino = 1;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
194
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
195 dir_static.d_reclen = sizeof (struct direct) - MAXNAMLEN + 3 +
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
196 dir_static.d_namlen - dir_static.d_namlen % 4;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
197
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
198 dir_static.d_namlen = strlen (find_data.cFileName);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
199 strcpy (dir_static.d_name, find_data.cFileName);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
200 if (dir_is_fat)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
201 _strlwr (dir_static.d_name);
15326
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
202 else if (!NILP (Vwin32_downcase_file_names))
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
203 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
204 register char *p;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
205 for (p = dir_static.d_name; *p; p++)
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
206 if (*p >= 'a' && *p <= 'z')
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
207 break;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
208 if (!*p)
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
209 _strlwr (dir_static.d_name);
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
210 }
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
211
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
212 return &dir_static;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
213 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
214
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
215 /* Emulate getpwuid, getpwnam and others. */
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
216
12451
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
217 #define PASSWD_FIELD_SIZE 256
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
218
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
219 static char the_passwd_name[PASSWD_FIELD_SIZE];
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
220 static char the_passwd_passwd[PASSWD_FIELD_SIZE];
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
221 static char the_passwd_gecos[PASSWD_FIELD_SIZE];
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
222 static char the_passwd_dir[PASSWD_FIELD_SIZE];
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
223 static char the_passwd_shell[PASSWD_FIELD_SIZE];
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
224
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
225 static struct passwd the_passwd =
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
226 {
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
227 the_passwd_name,
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
228 the_passwd_passwd,
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
229 0,
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
230 0,
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
231 0,
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
232 the_passwd_gecos,
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
233 the_passwd_dir,
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
234 the_passwd_shell,
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
235 };
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
236
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
237 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
238 getuid ()
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
239 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
240 return the_passwd.pw_uid;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
241 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
242
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
243 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
244 geteuid ()
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
245 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
246 /* 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
247 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
248 case, but I don't know how wise that would be in the long run. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
249 return getuid ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
250 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
251
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
252 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
253 getgid ()
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
254 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
255 return the_passwd.pw_gid;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
256 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
257
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
258 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
259 getegid ()
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
260 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
261 return getgid ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
262 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
263
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
264 struct passwd *
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
265 getpwuid (int uid)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
266 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
267 if (uid == the_passwd.pw_uid)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
268 return &the_passwd;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
269 return NULL;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
270 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
271
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
272 struct passwd *
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
273 getpwnam (char *name)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
274 {
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
275 struct passwd *pw;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
276
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
277 pw = getpwuid (getuid ());
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
278 if (!pw)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
279 return pw;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
280
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
281 if (stricmp (name, pw->pw_name))
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
282 return NULL;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
283
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
284 return pw;
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
285 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
286
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
287 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
288 init_user_info ()
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
289 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
290 /* 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
291 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
292
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
293 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
294 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
295 primary group sid from the process token). */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
296
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
297 char user_sid[256], name[256], domain[256];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
298 DWORD length = sizeof (name), dlength = sizeof (domain), trash;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
299 HANDLE token = NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
300 SID_NAME_USE user_type;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
301
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
302 if (OpenProcessToken (GetCurrentProcess (), TOKEN_QUERY, &token)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
303 && GetTokenInformation (token, TokenUser,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
304 (PVOID) user_sid, sizeof (user_sid), &trash)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
305 && LookupAccountSid (NULL, *((PSID *) user_sid), name, &length,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
306 domain, &dlength, &user_type))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
307 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
308 strcpy (the_passwd.pw_name, name);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
309 /* Determine a reasonable uid value. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
310 if (stricmp ("administrator", name) == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
311 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
312 the_passwd.pw_uid = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
313 the_passwd.pw_gid = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
314 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
315 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
316 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
317 SID_IDENTIFIER_AUTHORITY * pSIA;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
318
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
319 pSIA = GetSidIdentifierAuthority (*((PSID *) user_sid));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
320 /* I believe the relative portion is the last 4 bytes (of 6)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
321 with msb first. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
322 the_passwd.pw_uid = ((pSIA->Value[2] << 24) +
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
323 (pSIA->Value[3] << 16) +
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
324 (pSIA->Value[4] << 8) +
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
325 (pSIA->Value[5] << 0));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
326 /* restrict to conventional uid range for normal users */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
327 the_passwd.pw_uid = the_passwd.pw_uid % 60001;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
328
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
329 /* Get group id */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
330 if (GetTokenInformation (token, TokenPrimaryGroup,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
331 (PVOID) user_sid, sizeof (user_sid), &trash))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
332 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
333 SID_IDENTIFIER_AUTHORITY * pSIA;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
334
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
335 pSIA = GetSidIdentifierAuthority (*((PSID *) user_sid));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
336 the_passwd.pw_gid = ((pSIA->Value[2] << 24) +
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
337 (pSIA->Value[3] << 16) +
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
338 (pSIA->Value[4] << 8) +
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
339 (pSIA->Value[5] << 0));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
340 /* I don't know if this is necessary, but for safety... */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
341 the_passwd.pw_gid = the_passwd.pw_gid % 60001;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
342 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
343 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
344 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
345 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
346 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
347 /* If security calls are not supported (presumably because we
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
348 are running under Windows 95), fallback to this. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
349 else if (GetUserName (name, &length))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
350 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
351 strcpy (the_passwd.pw_name, name);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
352 if (stricmp ("administrator", name) == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
353 the_passwd.pw_uid = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
354 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
355 the_passwd.pw_uid = 123;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
356 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
357 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
358 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
359 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
360 strcpy (the_passwd.pw_name, "unknown");
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
361 the_passwd.pw_uid = 123;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
362 the_passwd.pw_gid = 123;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
363 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
364
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
365 /* Ensure HOME and SHELL are defined. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
366 if (getenv ("HOME") == NULL)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
367 putenv ("HOME=c:/");
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
368 if (getenv ("SHELL") == NULL)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
369 putenv ((GetVersion () & 0x80000000) ? "SHELL=command" : "SHELL=cmd");
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
370
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
371 /* Set dir and shell from environment variables. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
372 strcpy (the_passwd.pw_dir, getenv ("HOME"));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
373 strcpy (the_passwd.pw_shell, getenv ("SHELL"));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
374
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
375 if (token)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
376 CloseHandle (token);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
377 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
378
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
379 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
380 random ()
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
381 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
382 /* 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
383 return ((rand () << 15) | rand ());
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
384 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
385
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
386 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
387 srandom (int seed)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
388 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
389 srand (seed);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
390 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
391
15326
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
392 /* Normalize filename by converting all path separators to
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
393 the specified separator. Also conditionally convert upper
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
394 case path name components to lower case. */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
395
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
396 static void
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
397 normalize_filename (fp, path_sep)
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
398 register char *fp;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
399 char path_sep;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
400 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
401 char sep;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
402 char *elem;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
403
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
404 if (NILP (Vwin32_downcase_file_names))
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
405 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
406 while (*fp)
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
407 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
408 if (*fp == '/' || *fp == '\\')
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
409 *fp = path_sep;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
410 fp++;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
411 }
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
412 return;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
413 }
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
414
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
415 sep = path_sep; /* convert to this path separator */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
416 elem = fp; /* start of current path element */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
417
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
418 do {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
419 if (*fp >= 'a' && *fp <= 'z')
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
420 elem = 0; /* don't convert this element */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
421
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
422 if (*fp == 0 || *fp == ':')
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
423 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
424 sep = *fp; /* restore current separator (or 0) */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
425 *fp = '/'; /* after conversion of this element */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
426 }
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
427
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
428 if (*fp == '/' || *fp == '\\')
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
429 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
430 if (elem && elem != fp)
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
431 {
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
432 *fp = 0; /* temporary end of string */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
433 _strlwr (elem); /* while we convert to lower case */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
434 }
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
435 *fp = sep; /* convert (or restore) path separator */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
436 elem = fp + 1; /* next element starts after separator */
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
437 sep = path_sep;
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
438 }
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
439 } while (*fp++);
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
440 }
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
441
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
442 /* Destructively turn backslashes into slashes. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
443 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
444 dostounix_filename (p)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
445 register char *p;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
446 {
15326
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
447 normalize_filename (p, '/');
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
448 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
449
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
450 /* Destructively turn slashes into backslashes. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
451 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
452 unixtodos_filename (p)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
453 register char *p;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
454 {
15326
ea444efb0b95 (normalize_filename): New function.
Richard M. Stallman <rms@gnu.org>
parents: 15279
diff changeset
455 normalize_filename (p, '\\');
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
456 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
457
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
458 /* 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
459 (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
460 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
461 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
462 crlf_to_lf (n, buf)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
463 register int n;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
464 register unsigned char *buf;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
465 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
466 unsigned char *np = buf;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
467 unsigned char *startp = buf;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
468 unsigned char *endp = buf + n;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
469
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
470 if (n == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
471 return n;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
472 while (buf < endp - 1)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
473 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
474 if (*buf == 0x0d)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
475 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
476 if (*(++buf) != 0x0a)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
477 *np++ = 0x0d;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
478 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
479 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
480 *np++ = *buf++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
481 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
482 if (buf < endp)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
483 *np++ = *buf++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
484 return np - startp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
485 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
486
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
487 /* 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
488
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
489 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
490 sigsetmask (int signal_mask)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
491 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
492 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
493 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
494
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
495 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
496 sigblock (int sig)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
497 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
498 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
499 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
500
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
501 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
502 setpgrp (int pid, int gid)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
503 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
504 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
505 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
506
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
507 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
508 alarm (int seconds)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
509 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
510 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
511 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
512
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
513 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
514 unrequest_sigio (void)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
515 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
516 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
517 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
518
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
519 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
520 request_sigio (void)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
521 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
522 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
523 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
524
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
525 #define REG_ROOT "SOFTWARE\\GNU\\Emacs"
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
526
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
527 LPBYTE
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
528 nt_get_resource (key, lpdwtype)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
529 char *key;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
530 LPDWORD lpdwtype;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
531 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
532 LPBYTE lpvalue;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
533 HKEY hrootkey = NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
534 DWORD cbData;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
535 BOOL ok = FALSE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
536
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
537 /* Check both the current user and the local machine to see if
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
538 we have any resources. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
539
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
540 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
541 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
542 lpvalue = NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
543
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
544 if (RegQueryValueEx (hrootkey, key, NULL, NULL, NULL, &cbData) == ERROR_SUCCESS
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
545 && (lpvalue = (LPBYTE) xmalloc (cbData)) != NULL
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
546 && 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
547 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
548 return (lpvalue);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
549 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
550
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
551 if (lpvalue) xfree (lpvalue);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
552
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
553 RegCloseKey (hrootkey);
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
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
556 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
557 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
558 lpvalue = NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
559
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
560 if (RegQueryValueEx (hrootkey, key, NULL, NULL, NULL, &cbData) == ERROR_SUCCESS &&
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
561 (lpvalue = (LPBYTE) xmalloc (cbData)) != NULL &&
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
562 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
563 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
564 return (lpvalue);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
565 }
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 if (lpvalue) xfree (lpvalue);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
568
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
569 RegCloseKey (hrootkey);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
570 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
571
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
572 return (NULL);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
573 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
574
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
575 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
576 init_environment ()
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
577 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
578 /* Check for environment variables and use registry if they don't exist */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
579 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
580 int i;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
581 LPBYTE lpval;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
582 DWORD dwType;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
583
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
584 static char * env_vars[] =
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
585 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
586 "HOME",
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
587 "PRELOAD_WINSOCK",
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
588 "emacs_dir",
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
589 "EMACSLOADPATH",
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
590 "SHELL",
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
591 "EMACSDATA",
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
592 "EMACSPATH",
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
593 "EMACSLOCKDIR",
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
594 "INFOPATH",
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
595 "EMACSDOC",
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
596 "TERM",
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
597 };
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
598
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
599 for (i = 0; i < (sizeof (env_vars) / sizeof (env_vars[0])); i++)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
600 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
601 if (!getenv (env_vars[i]) &&
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
602 (lpval = nt_get_resource (env_vars[i], &dwType)) != NULL)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
603 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
604 if (dwType == REG_EXPAND_SZ)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
605 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
606 char buf1[500], buf2[500];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
607
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
608 ExpandEnvironmentStrings ((LPSTR) lpval, buf1, 500);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
609 _snprintf (buf2, 499, "%s=%s", env_vars[i], buf1);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
610 putenv (strdup (buf2));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
611 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
612 else if (dwType == REG_SZ)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
613 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
614 char buf[500];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
615
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
616 _snprintf (buf, 499, "%s=%s", env_vars[i], lpval);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
617 putenv (strdup (buf));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
618 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
619
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
620 xfree (lpval);
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 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
623 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
624
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
625 init_user_info ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
626 }
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
627
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
628 /* We don't have scripts to automatically determine the system configuration
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
629 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
630 user enter it, so we define EMACS_CONFIGURATION to invoke this runtime
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
631 routine. */
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
632
11941
cb26a4ca0e10 (configuration_buffer): Increase size.
Geoff Voelker <voelker@cs.washington.edu>
parents: 11384
diff changeset
633 static char configuration_buffer[32];
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
634
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
635 char *
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
636 get_emacs_configuration (void)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
637 {
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
638 char *arch, *oem, *os;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
639
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
640 /* Determine the processor type. */
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
641 switch (get_processor_type ())
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
642 {
12451
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
643
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
644 #ifdef PROCESSOR_INTEL_386
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
645 case PROCESSOR_INTEL_386:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
646 case PROCESSOR_INTEL_486:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
647 case PROCESSOR_INTEL_PENTIUM:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
648 arch = "i386";
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
649 break;
12451
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
650 #endif
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
651
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
652 #ifdef PROCESSOR_INTEL_860
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
653 case PROCESSOR_INTEL_860:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
654 arch = "i860";
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
655 break;
12451
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
656 #endif
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
657
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
658 #ifdef PROCESSOR_MIPS_R2000
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
659 case PROCESSOR_MIPS_R2000:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
660 case PROCESSOR_MIPS_R3000:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
661 case PROCESSOR_MIPS_R4000:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
662 arch = "mips";
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
663 break;
12451
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
664 #endif
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
665
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
666 #ifdef PROCESSOR_ALPHA_21064
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
667 case PROCESSOR_ALPHA_21064:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
668 arch = "alpha";
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
669 break;
12451
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
670 #endif
4439dcb1496a (PASSWD_FIELD_SIZE): Defined.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12183
diff changeset
671
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
672 default:
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
673 arch = "unknown";
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
674 break;
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
675 }
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
676
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
677 /* Let oem be "*" until we figure out how to decode the OEM field. */
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
678 oem = "*";
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
679
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
680 os = (GetVersion () & 0x80000000) ? "win95" : "nt";
11941
cb26a4ca0e10 (configuration_buffer): Increase size.
Geoff Voelker <voelker@cs.washington.edu>
parents: 11384
diff changeset
681
13156
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
682 sprintf (configuration_buffer, "%s-%s-%s%d.%d", arch, oem, os,
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
683 get_nt_major_version (), get_nt_minor_version ());
a398dbd2b945 Indentation change.
Richard M. Stallman <rms@gnu.org>
parents: 12451
diff changeset
684 return configuration_buffer;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
685 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
686
11384
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
687 #include <sys/timeb.h>
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
688
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
689 /* Emulate gettimeofday (Ulrich Leodolter, 1/11/95). */
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
690 void
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
691 gettimeofday (struct timeval *tv, struct timezone *tz)
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
692 {
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
693 struct _timeb tb;
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
694 _ftime (&tb);
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
695
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
696 tv->tv_sec = tb.time;
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
697 tv->tv_usec = tb.millitm * 1000L;
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
698 if (tz)
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
699 {
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
700 tz->tz_minuteswest = tb.timezone; /* minutes west of Greenwich */
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
701 tz->tz_dsttime = tb.dstflag; /* type of dst correction */
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
702 }
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
703 }
15141
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 /* ------------------------------------------------------------------------- */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
706 /* IO support and wrapper functions for Win32 API. */
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
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
709 /* Place a wrapper around the MSVC version of ctime. It returns NULL
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
710 on network directories, so we handle that case here.
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
711 (Ulrich Leodolter, 1/11/95). */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
712 char *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
713 sys_ctime (const time_t *t)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
714 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
715 char *str = (char *) ctime (t);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
716 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
717 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
718
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
719 /* 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
720 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
721 This is much easier. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
722 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
723 sys_sleep (int seconds)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
724 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
725 Sleep (seconds * 1000);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
726 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
727
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
728 /* Internal MSVC data and functions for low-level descriptor munging */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
729 #if (_MSC_VER == 900)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
730 extern char _osfile[];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
731 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
732 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
733 extern int __cdecl _free_osfhnd (int fd);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
734
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
735 /* 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
736 filedesc fd_info [ MAXDESC ];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
737
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
738 static struct {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
739 DWORD serialnum;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
740 DWORD maxcomp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
741 DWORD flags;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
742 char name[32];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
743 char type[32];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
744 } volume_info;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
745
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
746 /* 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
747 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
748 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
749 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
750 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
751 char temp[MAX_PATH];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
752 char *rootname = NULL; /* default to current volume */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
753
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
754 if (name == NULL)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
755 return FALSE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
756
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
757 /* 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
758 if (isalpha (name[0]) && name[1] == ':')
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
759 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
760 rootname = temp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
761 temp[0] = *name++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
762 temp[1] = *name++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
763 temp[2] = '\\';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
764 temp[3] = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
765 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
766 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
767 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
768 char *str = temp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
769 int slashes = 4;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
770 rootname = temp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
771 do
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
772 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
773 if (IS_DIRECTORY_SEP (*name) && --slashes == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
774 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
775 *str++ = *name++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
776 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
777 while ( *name );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
778
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
779 *str++ = '\\';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
780 *str = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
781 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
782
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
783 if (pPath)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
784 *pPath = name;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
785
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
786 if (GetVolumeInformation (rootname,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
787 volume_info.name, 32,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
788 &volume_info.serialnum,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
789 &volume_info.maxcomp,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
790 &volume_info.flags,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
791 volume_info.type, 32))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
792 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
793 return TRUE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
794 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
795 return FALSE;
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
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
798 /* 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
799 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
800 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
801 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
802 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
803 if (get_volume_info (name, pPath))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
804 return (volume_info.maxcomp == 12);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
805 return FALSE;
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
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
808 /* Map filename to a legal 8.3 name if necessary. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
809 const char *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
810 map_win32_filename (const char * name, const char ** pPath)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
811 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
812 static char shortname[MAX_PATH];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
813 char * str = shortname;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
814 char c;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
815 char * path;
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 if (is_fat_volume (name, &path)) /* truncate to 8.3 */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
818 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
819 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
820 register int extn = 0; /* extension added? */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
821 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
822
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
823 while (name < path)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
824 *str++ = *name++; /* skip past UNC header */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
825
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
826 while ((c = *name++))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
827 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
828 switch ( c )
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
829 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
830 case '\\':
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
831 case '/':
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
832 *str++ = '\\';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
833 extn = 0; /* reset extension flags */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
834 dots = 2; /* max 2 dots */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
835 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
836 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
837 case ':':
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
838 *str++ = ':';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
839 extn = 0; /* reset extension flags */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
840 dots = 2; /* max 2 dots */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
841 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
842 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
843 case '.':
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
844 if ( dots )
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
845 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
846 /* 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
847 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
848 to be read as _emacs, for example. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
849
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
850 if (! *name ||
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
851 *name == '.' ||
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
852 IS_DIRECTORY_SEP (*name))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
853 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
854 *str++ = '.';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
855 dots--;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
856 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
857 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
858 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
859 *str++ = '_';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
860 left--;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
861 dots = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
862 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
863 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
864 else if ( !extn )
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
865 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
866 *str++ = '.';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
867 extn = 1; /* we've got an extension */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
868 left = 3; /* 3 chars in extension */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
869 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
870 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
871 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
872 /* 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
873 *str++ = '_';
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
874 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
875 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
876 case '~':
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
877 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
878 if ( ! left )
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
879 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
880 /* FALLTHRU */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
881 default:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
882 if ( left )
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
883 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
884 *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
885 left--;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
886 dots = 0; /* started a path component */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
887 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
888 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
889 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
890 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
891 *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
892 }
867e4ead88d9 (map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents: 15141
diff changeset
893 else
867e4ead88d9 (map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents: 15141
diff changeset
894 {
867e4ead88d9 (map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents: 15141
diff changeset
895 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
896 unixtodos_filename (shortname);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
897 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
898
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
899 if (pPath)
15213
867e4ead88d9 (map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents: 15141
diff changeset
900 *pPath = shortname + (path - name);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
901
15213
867e4ead88d9 (map_win32_filename): If not a fat volume, cvt name to dos.
Richard M. Stallman <rms@gnu.org>
parents: 15141
diff changeset
902 return shortname;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
903 }
11384
1b01db213663 (nt_ctime): Defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
904
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
905
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
906 /* 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
907 to reasonable short names if necessary. This was originally added to
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
908 permit running Emacs on NT 3.1 on a FAT partition, which doesn't support
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
909 long file names. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
910
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
911 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
912 sys_access (const char * path, int mode)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
913 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
914 return _access (map_win32_filename (path, NULL), mode);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
915 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
916
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
917 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
918 sys_chdir (const char * path)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
919 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
920 return _chdir (map_win32_filename (path, NULL));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
921 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
922
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
923 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
924 sys_chmod (const char * path, int mode)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
925 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
926 return _chmod (map_win32_filename (path, NULL), mode);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
927 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
928
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
929 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
930 sys_creat (const char * path, int mode)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
931 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
932 return _creat (map_win32_filename (path, NULL), mode);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
933 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
934
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
935 FILE *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
936 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
937 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
938 int fd;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
939 int oflag;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
940 const char * mode_save = mode;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
941
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
942 /* 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
943 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
944 prevent future file access. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
945
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
946 if (mode[0] == 'r')
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
947 oflag = O_RDONLY;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
948 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
949 oflag = O_WRONLY | O_CREAT | O_TRUNC;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
950 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
951 return NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
952
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
953 /* Only do simplistic option parsing. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
954 while (*++mode)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
955 if (mode[0] == '+')
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
956 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
957 oflag &= ~(O_RDONLY | O_WRONLY);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
958 oflag |= O_RDWR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
959 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
960 else if (mode[0] == 'b')
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
961 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
962 oflag &= ~O_TEXT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
963 oflag |= O_BINARY;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
964 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
965 else if (mode[0] == 't')
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
966 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
967 oflag &= ~O_BINARY;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
968 oflag |= O_TEXT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
969 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
970 else break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
971
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
972 fd = _open (map_win32_filename (path, NULL), oflag | _O_NOINHERIT, 0644);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
973 if (fd < 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
974 return NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
975
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
976 return fdopen (fd, mode_save);
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
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
979 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
980 sys_link (const char * path1, const char * path2)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
981 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
982 errno = EINVAL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
983 return -1;
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
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
986 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
987 sys_mkdir (const char * path)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
988 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
989 return _mkdir (map_win32_filename (path, NULL));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
990 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
991
15354
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
992 /* 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
993 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
994 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
995 string.
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
996
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
997 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
998 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
999 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
1000 first of the 6 X's. */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1001 char *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1002 sys_mktemp (char * template)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1003 {
15354
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1004 char * p;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1005 int i;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1006 unsigned uid = GetCurrentThreadId ();
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1007 static char first_char[] = "abcdefghijklmnopqrstuvwyz0123456789!%-_@#";
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1008
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1009 if (template == NULL)
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1010 return NULL;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1011 p = template + strlen (template);
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1012 i = 5;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1013 /* 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
1014 while (--p >= template && p[0] == 'X' && --i >= 0)
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1015 {
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1016 p[0] = '0' + uid % 10;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1017 uid /= 10;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1018 }
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1019
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1020 if (i < 0 && p[0] == 'X')
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1021 {
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1022 i = 0;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1023 do
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1024 {
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1025 int save_errno = errno;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1026 p[0] = first_char[i];
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1027 if (sys_access (template, 0) < 0)
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1028 {
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1029 errno = save_errno;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1030 return template;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1031 }
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1032 }
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1033 while (++i < sizeof (first_char));
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1034 }
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1035
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1036 /* 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
1037 so return empty string */
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1038 template[0] = 0;
0e45e7d8bfdf (sys_mktemp): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 15342
diff changeset
1039 return template;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1040 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1041
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1042 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1043 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
1044 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1045 /* Force all file handles to be non-inheritable. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1046 return _open (map_win32_filename (path, NULL), oflag | _O_NOINHERIT, mode);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1047 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1048
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1049 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1050 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
1051 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1052 char temp[MAX_PATH];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1053
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1054 /* MoveFile on Win95 doesn't correctly change the short file name
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1055 alias when oldname has a three char extension and newname has the
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1056 same first three chars in its extension. To avoid problems, on
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1057 Win95 we rename to a temporary name first. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1058
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1059 strcpy (temp, map_win32_filename (oldname, NULL));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1060
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1061 if (GetVersion () & 0x80000000)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1062 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1063 char * p;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1064
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1065 unixtodos_filename (temp);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1066 if (p = strrchr (temp, '\\'))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1067 p++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1068 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1069 p = temp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1070 strcpy (p, "__XXXXXX");
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1071 _mktemp (temp);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1072 if (rename (map_win32_filename (oldname, NULL), temp) < 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1073 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1074 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1075
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1076 /* Emulate Unix behaviour - newname is deleted if it already exists
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1077 (at least if it is a file; don't do this for directories). */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1078 newname = map_win32_filename (newname, NULL);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1079 if (GetFileAttributes (newname) != -1)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1080 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1081 _chmod (newname, 0666);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1082 _unlink (newname);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1083 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1084
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1085 return rename (temp, newname);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1086 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1087
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1088 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1089 sys_rmdir (const char * path)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1090 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1091 return _rmdir (map_win32_filename (path, NULL));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1092 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1093
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1094 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1095 sys_unlink (const char * path)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1096 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1097 return _unlink (map_win32_filename (path, NULL));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1098 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1099
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1100 static FILETIME utc_base_ft;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1101 static long double utc_base;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1102 static int init = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1103
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1104 static time_t
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1105 convert_time (FILETIME ft)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1106 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1107 long double ret;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1108
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1109 if (!init)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1110 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1111 /* 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
1112 SYSTEMTIME st;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1113
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1114 st.wYear = 1970;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1115 st.wMonth = 1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1116 st.wDay = 1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1117 st.wHour = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1118 st.wMinute = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1119 st.wSecond = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1120 st.wMilliseconds = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1121
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1122 SystemTimeToFileTime (&st, &utc_base_ft);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1123 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
1124 * 4096 * 1024 * 1024 + utc_base_ft.dwLowDateTime;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1125 init = 1;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1126 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1127
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1128 if (CompareFileTime (&ft, &utc_base_ft) < 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1129 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1130
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1131 ret = (long double) ft.dwHighDateTime * 4096 * 1024 * 1024 + ft.dwLowDateTime;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1132 ret -= utc_base;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1133 return (time_t) (ret * 1e-7);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1134 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1135
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1136 #if 0
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1137 /* in case we ever have need of this */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1138 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1139 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
1140 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1141 long double tmp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1142
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1143 if (!init)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1144 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1145 /* 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
1146 SYSTEMTIME st;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1147
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1148 st.wYear = 1970;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1149 st.wMonth = 1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1150 st.wDay = 1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1151 st.wHour = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1152 st.wMinute = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1153 st.wSecond = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1154 st.wMilliseconds = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1155
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1156 SystemTimeToFileTime (&st, &utc_base_ft);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1157 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
1158 * 4096 * 1024 * 1024 + utc_base_ft.dwLowDateTime;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1159 init = 1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1160 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1161
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1162 /* 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
1163 tmp = (long double) time * 1e7 + utc_base;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1164 pft->dwHighDateTime = (DWORD) (tmp / (4096.0 * 1024 * 1024));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1165 pft->dwLowDateTime = (DWORD) (tmp - pft->dwHighDateTime);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1166 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1167 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1168
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1169 /* "PJW" algorithm (see the "Dragon" compiler book). */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1170 static unsigned
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1171 hashval (const char * str)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1172 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1173 unsigned h = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1174 unsigned g;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1175 while (*str)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1176 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1177 h = (h << 4) + *str++;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1178 if ((g = h & 0xf0000000) != 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1179 h = (h ^ (g >> 24)) & 0x0fffffff;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1180 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1181 return h;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1182 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1183
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1184 /* 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
1185 drive/UNC header, to get a hopefully unique inode number. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1186 static _ino_t
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1187 generate_inode_val (const char * name)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1188 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1189 char fullname[ MAX_PATH ];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1190 char * p;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1191 unsigned hash;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1192
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1193 GetFullPathName (name, sizeof (fullname), fullname, &p);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1194 get_volume_info (fullname, &p);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1195 /* Normal Win32 filesystems are still case insensitive. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1196 _strlwr (p);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1197 hash = hashval (p);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1198 return (_ino_t) (hash ^ (hash >> 16));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1199 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1200
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1201 /* 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
1202 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
1203 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
1204 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1205 stat (const char * path, struct stat * buf)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1206 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1207 char * name;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1208 WIN32_FIND_DATA wfd;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1209 HANDLE fh;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1210 int permission;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1211 int len;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1212 int rootdir = FALSE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1213
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1214 if (path == NULL || buf == NULL)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1215 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1216 errno = EFAULT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1217 return -1;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1218 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1219
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1220 name = (char *) map_win32_filename (path, &path);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1221 /* must be valid filename, no wild cards */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1222 if (strchr (name, '*') || strchr (name, '?'))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1223 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1224 errno = ENOENT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1225 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1226 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1227
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1228 /* 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
1229 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
1230 is a trailing separator. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1231 len = strlen (name);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1232 rootdir = (path >= name + len - 1
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1233 && (IS_DIRECTORY_SEP (*path) || *path == 0));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1234 name = strcpy (alloca (len + 2), name);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1235
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1236 if (rootdir)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1237 {
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1238 if (!IS_DIRECTORY_SEP (name[len-1]))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1239 strcat (name, "\\");
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1240 if (GetDriveType (name) < 2)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1241 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1242 errno = ENOENT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1243 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1244 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1245 memset (&wfd, 0, sizeof (wfd));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1246 wfd.dwFileAttributes = FILE_ATTRIBUTE_DIRECTORY;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1247 wfd.ftCreationTime = utc_base_ft;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1248 wfd.ftLastAccessTime = utc_base_ft;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1249 wfd.ftLastWriteTime = utc_base_ft;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1250 strcpy (wfd.cFileName, name);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1251 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1252 else
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 if (IS_DIRECTORY_SEP (name[len-1]))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1255 name[len - 1] = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1256 fh = FindFirstFile (name, &wfd);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1257 if (fh == INVALID_HANDLE_VALUE)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1258 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1259 errno = ENOENT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1260 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1261 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1262 FindClose (fh);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1263 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1264
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1265 if (wfd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1266 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1267 buf->st_mode = _S_IFDIR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1268 buf->st_nlink = 2; /* doesn't really matter */
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1269 }
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1270 else
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1271 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1272 #if 0
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1273 /* This is more accurate in terms of gettting the correct number
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1274 of links, but is quite slow (it is noticable when Emacs is
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1275 making a list of file name completions). */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1276 BY_HANDLE_FILE_INFORMATION info;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1277
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1278 fh = CreateFile (name, GENERIC_READ, FILE_SHARE_READ | FILE_SHARE_WRITE,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1279 NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1280
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1281 if (GetFileInformationByHandle (fh, &info))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1282 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1283 switch (GetFileType (fh))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1284 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1285 case FILE_TYPE_DISK:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1286 buf->st_mode = _S_IFREG;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1287 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1288 case FILE_TYPE_PIPE:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1289 buf->st_mode = _S_IFIFO;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1290 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1291 case FILE_TYPE_CHAR:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1292 case FILE_TYPE_UNKNOWN:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1293 default:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1294 buf->st_mode = _S_IFCHR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1295 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1296 buf->st_nlink = info.nNumberOfLinks;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1297 /* Could use file index, but this is not guaranteed to be
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1298 unique unless we keep a handle open all the time. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1299 /* buf->st_ino = info.nFileIndexLow ^ info.nFileIndexHigh; */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1300 CloseHandle (fh);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1301 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1302 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1303 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1304 errno = EACCES;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1305 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1306 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1307 #else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1308 buf->st_mode = _S_IFREG;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1309 buf->st_nlink = 1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1310 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1311 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1312
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1313 /* consider files to belong to current user */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1314 buf->st_uid = the_passwd.pw_uid;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1315 buf->st_gid = the_passwd.pw_gid;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1316
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1317 /* volume_info is set indirectly by map_win32_filename */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1318 buf->st_dev = volume_info.serialnum;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1319 buf->st_rdev = volume_info.serialnum;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1320
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1321 buf->st_ino = generate_inode_val (name);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1322
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1323 buf->st_size = wfd.nFileSizeLow;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1324
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1325 /* Convert timestamps to Unix format. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1326 buf->st_mtime = convert_time (wfd.ftLastWriteTime);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1327 buf->st_atime = convert_time (wfd.ftLastAccessTime);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1328 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
1329 buf->st_ctime = convert_time (wfd.ftCreationTime);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1330 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
1331
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1332 /* determine rwx permissions */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1333 if (wfd.dwFileAttributes & FILE_ATTRIBUTE_READONLY)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1334 permission = _S_IREAD;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1335 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1336 permission = _S_IREAD | _S_IWRITE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1337
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1338 if (wfd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1339 permission |= _S_IEXEC;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1340 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1341 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1342 char * p = strrchr (name, '.');
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1343 if (p != NULL &&
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1344 (stricmp (p, ".exe") == 0 ||
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1345 stricmp (p, ".com") == 0 ||
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1346 stricmp (p, ".bat") == 0 ||
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1347 stricmp (p, ".cmd") == 0))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1348 permission |= _S_IEXEC;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1349 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1350
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1351 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
1352
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1353 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1354 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1355
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1356 #ifdef HAVE_SOCKETS
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1357
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1358 /* 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
1359 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
1360
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1361 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
1362 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
1363 otherwise provide the minimum necessary functionality
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1364 (eg. gethostname). */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1365
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1366 /* function pointers for relevant socket functions */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1367 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
1368 void (PASCAL *pfn_WSASetLastError) (int iError);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1369 int (PASCAL *pfn_WSAGetLastError) (void);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1370 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
1371 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
1372 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
1373 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
1374 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
1375 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
1376 int (PASCAL *pfn_closesocket) (SOCKET s);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1377 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
1378 int (PASCAL *pfn_WSACleanup) (void);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1379
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1380 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
1381 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
1382 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
1383 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
1384 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
1385 struct servent * (PASCAL *pfn_getservbyname) (const char * name, const char * proto);
15342
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1386
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1387 /* 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
1388 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
1389 #ifndef HANDLE_FLAG_INHERIT
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1390 #define HANDLE_FLAG_INHERIT 1
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1391 #endif
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1392
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1393 HANDLE winsock_lib;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1394 static int winsock_inuse;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1395
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1396 BOOL
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1397 term_winsock (void)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1398 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1399 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
1400 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1401 /* 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
1402 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
1403 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
1404 if (pfn_WSACleanup () == 0 ||
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1405 pfn_WSAGetLastError () == WSAENETDOWN)
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1406 {
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1407 if (FreeLibrary (winsock_lib))
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1408 winsock_lib = NULL;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1409 return TRUE;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1410 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1411 }
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1412 return FALSE;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1413 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1414
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1415 BOOL
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1416 init_winsock (int load_now)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1417 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1418 WSADATA winsockData;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1419
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1420 if (winsock_lib != NULL)
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1421 return TRUE;
15342
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1422
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1423 pfn_SetHandleInformation = NULL;
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1424 pfn_SetHandleInformation
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1425 = (void *) GetProcAddress (GetModuleHandle ("kernel32.dll"),
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1426 "SetHandleInformation");
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1427
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1428 winsock_lib = LoadLibrary ("wsock32.dll");
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1429
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1430 if (winsock_lib != NULL)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1431 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1432 /* dynamically link to socket functions */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1433
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1434 #define LOAD_PROC(fn) \
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1435 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
1436 goto fail;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1437
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1438 LOAD_PROC( WSAStartup );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1439 LOAD_PROC( WSASetLastError );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1440 LOAD_PROC( WSAGetLastError );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1441 LOAD_PROC( socket );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1442 LOAD_PROC( bind );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1443 LOAD_PROC( connect );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1444 LOAD_PROC( ioctlsocket );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1445 LOAD_PROC( recv );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1446 LOAD_PROC( send );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1447 LOAD_PROC( closesocket );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1448 LOAD_PROC( shutdown );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1449 LOAD_PROC( htons );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1450 LOAD_PROC( ntohs );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1451 LOAD_PROC( inet_addr );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1452 LOAD_PROC( gethostname );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1453 LOAD_PROC( gethostbyname );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1454 LOAD_PROC( getservbyname );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1455 LOAD_PROC( WSACleanup );
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1456
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1457 #undef LOAD_PROC
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1458
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1459 /* specify version 1.1 of winsock */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1460 if (pfn_WSAStartup (0x101, &winsockData) == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1461 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1462 if (winsockData.wVersion != 0x101)
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1463 goto fail;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1464
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1465 if (!load_now)
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1466 {
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1467 /* 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
1468 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
1469 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
1470 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
1471 connection to be established. */
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1472
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1473 pfn_WSACleanup ();
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1474 FreeLibrary (winsock_lib);
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1475 winsock_lib = NULL;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1476 }
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1477 winsock_inuse = 0;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1478 return TRUE;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1479 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1480
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1481 fail:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1482 FreeLibrary (winsock_lib);
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1483 winsock_lib = NULL;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1484 }
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1485
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1486 return FALSE;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1487 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1488
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1489
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1490 int h_errno = 0;
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 /* 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
1493 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
1494 are already in <sys/socket.h> */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1495 static void set_errno ()
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1496 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1497 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1498 h_errno = EINVAL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1499 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1500 h_errno = pfn_WSAGetLastError ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1501
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1502 switch (h_errno)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1503 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1504 case WSAEACCES: h_errno = EACCES; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1505 case WSAEBADF: h_errno = EBADF; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1506 case WSAEFAULT: h_errno = EFAULT; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1507 case WSAEINTR: h_errno = EINTR; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1508 case WSAEINVAL: h_errno = EINVAL; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1509 case WSAEMFILE: h_errno = EMFILE; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1510 case WSAENAMETOOLONG: h_errno = ENAMETOOLONG; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1511 case WSAENOTEMPTY: h_errno = ENOTEMPTY; break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1512 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1513 errno = h_errno;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1514 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1515
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1516 static void check_errno ()
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1517 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1518 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
1519 pfn_WSASetLastError (0);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1520 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1521
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1522 /* [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
1523 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
1524 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
1525
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1526 //#define SOCK_REPLACE_HANDLE
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1527
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1528 #ifdef SOCK_REPLACE_HANDLE
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1529 #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
1530 #else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1531 #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
1532 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1533
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1534 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1535 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
1536 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1537 int fd;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1538 long s;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1539 child_process * cp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1540
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1541 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1542 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1543 h_errno = ENETDOWN;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1544 return INVALID_SOCKET;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1545 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1546
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1547 check_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1548
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1549 /* call the real socket function */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1550 s = (long) pfn_socket (af, type, protocol);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1551
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1552 if (s != INVALID_SOCKET)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1553 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1554 /* Although under NT 3.5 _open_osfhandle will accept a socket
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1555 handle, if opened with SO_OPENTYPE == SO_SYNCHRONOUS_NONALERT,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1556 that does not work under NT 3.1. However, we can get the same
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1557 effect by using a backdoor function to replace an existing
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1558 descriptor handle with the one we want. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1559
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1560 /* allocate a file descriptor (with appropriate flags) */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1561 fd = _open ("NUL:", _O_RDWR);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1562 if (fd >= 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1563 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1564 #ifdef SOCK_REPLACE_HANDLE
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1565 /* now replace handle to NUL with our socket handle */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1566 CloseHandle ((HANDLE) _get_osfhandle (fd));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1567 _free_osfhnd (fd);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1568 _set_osfhnd (fd, s);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1569 /* setmode (fd, _O_BINARY); */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1570 #else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1571 /* Make a non-inheritable copy of the socket handle. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1572 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1573 HANDLE parent;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1574 HANDLE new_s = INVALID_HANDLE_VALUE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1575
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1576 parent = GetCurrentProcess ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1577
15342
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1578 /* Apparently there is a bug in NT 3.51 with some service
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1579 packs, which prevents using DuplicateHandle to make a
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1580 socket handle non-inheritable (causes WSACleanup to
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1581 hang). The work-around is to use SetHandleInformation
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1582 instead if it is available and implemented. */
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1583 if (!pfn_SetHandleInformation
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1584 || !pfn_SetHandleInformation ((HANDLE) s,
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1585 HANDLE_FLAG_INHERIT,
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1586 HANDLE_FLAG_INHERIT))
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1587 {
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1588 DuplicateHandle (parent,
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1589 (HANDLE) s,
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1590 parent,
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1591 &new_s,
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1592 0,
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1593 FALSE,
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1594 DUPLICATE_SAME_ACCESS);
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1595 pfn_closesocket (s);
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1596 s = (SOCKET) new_s;
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1597 }
e64bd8310edc (init_winsock): Dynamically link to SetHandleInformation.
Richard M. Stallman <rms@gnu.org>
parents: 15326
diff changeset
1598 fd_info[fd].hnd = (HANDLE) s;
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1599 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1600 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1601
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1602 /* set our own internal flags */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1603 fd_info[fd].flags = FILE_SOCKET | FILE_BINARY | FILE_READ | FILE_WRITE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1604
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1605 cp = new_child ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1606 if (cp)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1607 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1608 cp->fd = fd;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1609 cp->status = STATUS_READ_ACKNOWLEDGED;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1610
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1611 /* attach child_process to fd_info */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1612 if (fd_info[ fd ].cp != NULL)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1613 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1614 DebPrint (("sys_socket: fd_info[%d] apparently in use!\n", fd));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1615 abort ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1616 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1617
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1618 fd_info[ fd ].cp = cp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1619
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1620 /* success! */
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1621 winsock_inuse++; /* count open sockets */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1622 return fd;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1623 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1624
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1625 /* clean up */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1626 _close (fd);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1627 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1628 pfn_closesocket (s);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1629 h_errno = EMFILE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1630 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1631 set_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1632
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1633 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1634 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1635
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1636
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1637 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1638 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
1639 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1640 if (winsock_lib == NULL)
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 h_errno = ENOTSOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1643 return SOCKET_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1644 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1645
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1646 check_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1647 if (fd_info[s].flags & FILE_SOCKET)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1648 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1649 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
1650 if (rc == SOCKET_ERROR)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1651 set_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1652 return rc;
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 h_errno = ENOTSOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1655 return SOCKET_ERROR;
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
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1658
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1659 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1660 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
1661 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1662 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1663 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1664 h_errno = ENOTSOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1665 return SOCKET_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1666 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1667
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1668 check_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1669 if (fd_info[s].flags & FILE_SOCKET)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1670 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1671 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
1672 if (rc == SOCKET_ERROR)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1673 set_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1674 return rc;
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 h_errno = ENOTSOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1677 return SOCKET_ERROR;
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 u_short
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1681 sys_htons (u_short hostshort)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1682 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1683 return (winsock_lib != NULL) ?
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1684 pfn_htons (hostshort) : hostshort;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1685 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1686
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1687 u_short
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1688 sys_ntohs (u_short netshort)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1689 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1690 return (winsock_lib != NULL) ?
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1691 pfn_ntohs (netshort) : netshort;
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
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1694 unsigned long
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1695 sys_inet_addr (const char * cp)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1696 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1697 return (winsock_lib != NULL) ?
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1698 pfn_inet_addr (cp) : INADDR_NONE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1699 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1700
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1701 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1702 sys_gethostname (char * name, int namelen)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1703 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1704 if (winsock_lib != NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1705 return pfn_gethostname (name, namelen);
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 if (namelen > MAX_COMPUTERNAME_LENGTH)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1708 return !GetComputerName (name, &namelen);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1709
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1710 h_errno = EFAULT;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1711 return SOCKET_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1712 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1713
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1714 struct hostent *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1715 sys_gethostbyname(const char * name)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1716 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1717 struct hostent * host;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1718
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1719 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1720 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1721 h_errno = ENETDOWN;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1722 return NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1723 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1724
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1725 check_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1726 host = pfn_gethostbyname (name);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1727 if (!host)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1728 set_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1729 return host;
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
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1732 struct servent *
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1733 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
1734 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1735 struct servent * serv;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1736
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1737 if (winsock_lib == NULL)
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1738 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1739 h_errno = ENETDOWN;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1740 return NULL;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1741 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1742
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1743 check_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1744 serv = pfn_getservbyname (name, proto);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1745 if (!serv)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1746 set_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1747 return serv;
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1748 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1749
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1750 #endif /* HAVE_SOCKETS */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1751
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 /* 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
1754 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
1755
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1756 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1757 sys_close (int fd)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1758 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1759 int rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1760
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1761 if (fd < 0 || fd >= MAXDESC)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1762 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1763 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1764 return -1;
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 if (fd_info[fd].cp)
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 child_process * cp = fd_info[fd].cp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1770
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1771 fd_info[fd].cp = NULL;
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 if (CHILD_ACTIVE (cp))
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 /* 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
1776 int i;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1777 for (i = 0; i < MAXDESC; i++)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1778 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1779 if (i == fd)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1780 continue;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1781 if (fd_info[i].cp == cp)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1782 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1783 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1784 if (i == MAXDESC)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1785 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1786 #ifdef HAVE_SOCKETS
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1787 if (fd_info[fd].flags & FILE_SOCKET)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1788 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1789 #ifndef SOCK_REPLACE_HANDLE
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1790 if (winsock_lib == NULL) abort ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1791
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1792 pfn_shutdown (SOCK_HANDLE (fd), 2);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1793 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
1794 #endif
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
1795 winsock_inuse--; /* count open sockets */
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1796 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1797 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1798 delete_child (cp);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1799 }
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
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1803 /* Note that sockets do not need special treatment here (at least on
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1804 NT and Win95 using the standard tcp/ip stacks) - it appears that
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1805 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
1806 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
1807 rc = _close (fd);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1808
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1809 if (rc == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1810 fd_info[fd].flags = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1811
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1812 return rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1813 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1814
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1815 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1816 sys_dup (int fd)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1817 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1818 int new_fd;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1819
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1820 new_fd = _dup (fd);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1821 if (new_fd >= 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1822 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1823 /* duplicate our internal info as well */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1824 fd_info[new_fd] = fd_info[fd];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1825 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1826 return new_fd;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1827 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1828
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1829
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1830 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1831 sys_dup2 (int src, int dst)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1832 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1833 int rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1834
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1835 if (dst < 0 || dst >= MAXDESC)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1836 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1837 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1838 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1839 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1840
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1841 /* 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
1842 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
1843 sys_close (dst);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1844
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1845 rc = _dup2 (src, dst);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1846 if (rc == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1847 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1848 /* duplicate our internal info as well */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1849 fd_info[dst] = fd_info[src];
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1850 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1851 return rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1852 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1853
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1854 /* From callproc.c */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1855 extern Lisp_Object Vbinary_process_input;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1856 extern Lisp_Object Vbinary_process_output;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1857
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1858 /* Unix pipe() has only one arg */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1859 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1860 sys_pipe (int * phandles)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1861 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1862 int rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1863 unsigned flags;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1864 child_process * cp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1865
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1866 /* make pipe handles non-inheritable; when we spawn a child,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1867 we replace the relevant handle with an inheritable one. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1868 rc = _pipe (phandles, 0, _O_NOINHERIT);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1869
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1870 if (rc == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1871 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1872 /* set internal flags, and put read and write handles into binary
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1873 mode as necessary; if not in binary mode, set the MSVC internal
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1874 FDEV (0x40) flag to prevent _read from treating ^Z as eof (this
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1875 could otherwise allow Emacs to hang because it then waits
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1876 indefinitely for the child process to exit, when it might not be
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1877 finished). */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1878 flags = FILE_PIPE | FILE_READ;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1879 if (!NILP (Vbinary_process_output))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1880 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1881 flags |= FILE_BINARY;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1882 setmode (phandles[0], _O_BINARY);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1883 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1884 #if (_MSC_VER == 900)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1885 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1886 _osfile[phandles[0]] |= 0x40;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1887 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1888
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1889 fd_info[phandles[0]].flags = flags;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1890
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1891 flags = FILE_PIPE | FILE_WRITE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1892 if (!NILP (Vbinary_process_input))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1893 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1894 flags |= FILE_BINARY;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1895 setmode (phandles[1], _O_BINARY);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1896 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1897 #if (_MSC_VER == 900)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1898 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1899 _osfile[phandles[1]] |= 0x40;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1900 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1901
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1902 fd_info[phandles[1]].flags = flags;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1903 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1904
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1905 return rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1906 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1907
15249
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
1908 /* From ntproc.c */
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
1909 extern Lisp_Object Vwin32_pipe_read_delay;
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
1910
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1911 /* 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
1912 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
1913 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1914 _sys_read_ahead (int fd)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1915 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1916 child_process * cp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1917 int rc;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1918
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1919 if (fd < 0 || fd >= MAXDESC)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1920 return STATUS_READ_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1921
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1922 cp = fd_info[fd].cp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1923
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1924 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
1925 return STATUS_READ_ERROR;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1926
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1927 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
1928 || (fd_info[fd].flags & FILE_READ) == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1929 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1930 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
1931 abort ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1932 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1933
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1934 cp->status = STATUS_READ_IN_PROGRESS;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1935
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1936 if (fd_info[fd].flags & FILE_PIPE)
15249
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
1937 {
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
1938 /* Use read to get CRLF translation */
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
1939 rc = _read (fd, &cp->chr, sizeof (char));
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
1940
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
1941 /* Give subprocess time to buffer some more output for us before
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
1942 reporting that input is available; we need this because Win95
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
1943 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
1944 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
1945 write to stdout without buffering, ie. one character at a
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
1946 time. Even some Win32 programs do this - "dir" in a command
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
1947 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
1948 if (rc > 0)
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
1949 {
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
1950 int wait = XINT (Vwin32_pipe_read_delay);
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
1951
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
1952 if (wait > 0)
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
1953 Sleep (wait);
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
1954 else if (wait < 0)
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
1955 while (++wait <= 0)
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
1956 /* 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
1957 temporary priority boost to the child process. */
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
1958 Sleep (0);
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
1959 }
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
1960 }
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1961 #ifdef HAVE_SOCKETS
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1962 else if (fd_info[fd].flags & FILE_SOCKET)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1963 rc = pfn_recv (SOCK_HANDLE (fd), &cp->chr, sizeof (char), 0);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1964 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1965
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1966 if (rc == sizeof (char))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1967 cp->status = STATUS_READ_SUCCEEDED;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1968 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1969 cp->status = STATUS_READ_FAILED;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1970
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1971 return cp->status;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1972 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1973
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1974 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1975 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
1976 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1977 int nchars;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1978 int extra = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1979 int to_read;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1980 DWORD waiting;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1981
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1982 if (fd < 0 || fd >= MAXDESC)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1983 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1984 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1985 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1986 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1987
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1988 if (fd_info[fd].flags & (FILE_PIPE | FILE_SOCKET))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1989 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1990 child_process *cp = fd_info[fd].cp;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1991
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1992 if ((fd_info[fd].flags & FILE_READ) == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1993 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1994 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1995 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1996 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1997
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
1998 /* 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
1999 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
2000 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
2001 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
2002 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
2003 if (cp)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2004 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2005 int current_status = cp->status;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2006
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2007 switch (current_status)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2008 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2009 case STATUS_READ_FAILED:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2010 case STATUS_READ_ERROR:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2011 /* report normal EOF */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2012 return 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2013
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2014 case STATUS_READ_READY:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2015 case STATUS_READ_IN_PROGRESS:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2016 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
2017 errno = EWOULDBLOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2018 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2019
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2020 case STATUS_READ_SUCCEEDED:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2021 /* consume read-ahead char */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2022 *buffer++ = cp->chr;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2023 count--;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2024 extra = 1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2025 cp->status = STATUS_READ_ACKNOWLEDGED;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2026 ResetEvent (cp->char_avail);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2027
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2028 case STATUS_READ_ACKNOWLEDGED:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2029 break;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2030
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2031 default:
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2032 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
2033 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2034 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2035 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2036
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2037 if (fd_info[fd].flags & FILE_PIPE)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2038 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2039 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
2040 to_read = min (waiting, (DWORD) count);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2041
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2042 /* Use read to get CRLF translation */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2043 nchars = _read (fd, buffer, to_read);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2044 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2045 #ifdef HAVE_SOCKETS
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2046 else /* FILE_SOCKET */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2047 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
2048 if (winsock_lib == NULL) abort ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2049
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2050 /* 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
2051 pfn_ioctlsocket (SOCK_HANDLE (fd), FIONREAD, &waiting);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2052 if (waiting == 0 && extra == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2053 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2054 h_errno = errno = EWOULDBLOCK;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2055 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2056 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2057
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2058 nchars = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2059 if (waiting)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2060 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2061 /* always use binary mode for sockets */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2062 nchars = pfn_recv (SOCK_HANDLE (fd), buffer, count, 0);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2063 if (nchars == SOCKET_ERROR)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2064 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2065 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
2066 pfn_WSAGetLastError (), SOCK_HANDLE (fd)));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2067 if (extra == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2068 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2069 set_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2070 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2071 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2072 nchars = 0;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2073 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2074 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2075 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2076 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2077 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2078 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2079 nchars = _read (fd, buffer, count);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2080 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2081 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2082 nchars = _read (fd, buffer, count);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2083
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2084 return nchars + extra;
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
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2087 /* 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
2088 int
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2089 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
2090 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2091 int nchars;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2092
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2093 if (fd < 0 || fd >= MAXDESC)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2094 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2095 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2096 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2097 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2098
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2099 if (fd_info[fd].flags & (FILE_PIPE | FILE_SOCKET))
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2100 if ((fd_info[fd].flags & FILE_WRITE) == 0)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2101 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2102 errno = EBADF;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2103 return -1;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2104 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2105 #ifdef HAVE_SOCKETS
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2106 if (fd_info[fd].flags & FILE_SOCKET)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2107 {
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
2108 if (winsock_lib == NULL) abort ();
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2109 nchars = pfn_send (SOCK_HANDLE (fd), buffer, count, 0);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2110 if (nchars == SOCKET_ERROR)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2111 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2112 DebPrint(("sys_read.send 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
2113 pfn_WSAGetLastError (), SOCK_HANDLE (fd)));
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2114 set_errno ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2115 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2116 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2117 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2118 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2119 nchars = _write (fd, buffer, count);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2120
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2121 return nchars;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2122 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2123
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 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2126 term_ntproc ()
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2127 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2128 #ifdef HAVE_SOCKETS
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2129 /* shutdown the socket interface if necessary */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2130 term_winsock ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2131 #endif
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2132 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2133
15249
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
2134 extern BOOL dos_process_running;
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
2135
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2136 void
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2137 init_ntproc ()
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2138 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2139 #ifdef HAVE_SOCKETS
15357
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
2140 /* 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
2141 the user by defining PRELOAD_WINSOCK; otherwise loading will be
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
2142 delayed until open-network-stream is called (win32-has-winsock can
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
2143 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
2144
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
2145 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
2146 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
2147
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
2148 /* Always initialize this correctly. */
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
2149 winsock_lib = NULL;
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
2150
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
2151 if (getenv ("PRELOAD_WINSOCK") != NULL)
6686192ea2b3 (init_environment): Read PRELOAD_WINSOCK from registry if
Richard M. Stallman <rms@gnu.org>
parents: 15354
diff changeset
2152 init_winsock (TRUE);
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2153 #endif
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 /* 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
2156 handles with non-inheritable versions. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2157 {
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2158 HANDLE parent;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2159 HANDLE stdin_save = INVALID_HANDLE_VALUE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2160 HANDLE stdout_save = INVALID_HANDLE_VALUE;
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2161 HANDLE stderr_save = INVALID_HANDLE_VALUE;
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 parent = GetCurrentProcess ();
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2164
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2165 /* 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
2166 handles will be invalid when running as a gui program. */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2167 DuplicateHandle (parent,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2168 GetStdHandle (STD_INPUT_HANDLE),
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2169 parent,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2170 &stdin_save,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2171 0,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2172 FALSE,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2173 DUPLICATE_SAME_ACCESS);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2174
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2175 DuplicateHandle (parent,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2176 GetStdHandle (STD_OUTPUT_HANDLE),
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2177 parent,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2178 &stdout_save,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2179 0,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2180 FALSE,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2181 DUPLICATE_SAME_ACCESS);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2182
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2183 DuplicateHandle (parent,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2184 GetStdHandle (STD_ERROR_HANDLE),
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2185 parent,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2186 &stderr_save,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2187 0,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2188 FALSE,
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2189 DUPLICATE_SAME_ACCESS);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2190
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2191 fclose (stdin);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2192 fclose (stdout);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2193 fclose (stderr);
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 if (stdin_save != INVALID_HANDLE_VALUE)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2196 _open_osfhandle ((long) stdin_save, O_TEXT);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2197 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2198 open ("nul", O_TEXT | O_NOINHERIT | O_RDONLY);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2199 fdopen (0, "r");
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2200
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2201 if (stdout_save != INVALID_HANDLE_VALUE)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2202 _open_osfhandle ((long) stdout_save, O_TEXT);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2203 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2204 open ("nul", O_TEXT | O_NOINHERIT | O_WRONLY);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2205 fdopen (1, "w");
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2206
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2207 if (stderr_save != INVALID_HANDLE_VALUE)
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2208 _open_osfhandle ((long) stderr_save, O_TEXT);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2209 else
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2210 open ("nul", O_TEXT | O_NOINHERIT | O_WRONLY);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2211 fdopen (2, "w");
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2212 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2213
15418
6344f92ddba2 Delete restrict_dos_process.
Richard M. Stallman <rms@gnu.org>
parents: 15414
diff changeset
2214 /* Restrict Emacs to running only one DOS program at a time (with any
6344f92ddba2 Delete restrict_dos_process.
Richard M. Stallman <rms@gnu.org>
parents: 15414
diff changeset
2215 number of Win32 programs). This is to prevent the user from
6344f92ddba2 Delete restrict_dos_process.
Richard M. Stallman <rms@gnu.org>
parents: 15414
diff changeset
2216 running into problems with DOS programs being run in the same VDM
6344f92ddba2 Delete restrict_dos_process.
Richard M. Stallman <rms@gnu.org>
parents: 15414
diff changeset
2217 under both Windows 95 and Windows NT.
15414
81cf9a7fd6ca (restrict_dos_process): Renamed from can_run_dos_process.
Richard M. Stallman <rms@gnu.org>
parents: 15357
diff changeset
2218
81cf9a7fd6ca (restrict_dos_process): Renamed from can_run_dos_process.
Richard M. Stallman <rms@gnu.org>
parents: 15357
diff changeset
2219 Note that it is possible for Emacs to run DOS programs in separate
15418
6344f92ddba2 Delete restrict_dos_process.
Richard M. Stallman <rms@gnu.org>
parents: 15414
diff changeset
2220 VDMs, but unfortunately the pipe implementation on Windows 95 then
15414
81cf9a7fd6ca (restrict_dos_process): Renamed from can_run_dos_process.
Richard M. Stallman <rms@gnu.org>
parents: 15357
diff changeset
2221 fails to report when the DOS process exits (which is supposed to
81cf9a7fd6ca (restrict_dos_process): Renamed from can_run_dos_process.
Richard M. Stallman <rms@gnu.org>
parents: 15357
diff changeset
2222 break the pipe). Until this bug is fixed, or we can devise a
81cf9a7fd6ca (restrict_dos_process): Renamed from can_run_dos_process.
Richard M. Stallman <rms@gnu.org>
parents: 15357
diff changeset
2223 work-around, we must try to avoid letting the user start more than
81cf9a7fd6ca (restrict_dos_process): Renamed from can_run_dos_process.
Richard M. Stallman <rms@gnu.org>
parents: 15357
diff changeset
2224 one DOS program if possible. */
81cf9a7fd6ca (restrict_dos_process): Renamed from can_run_dos_process.
Richard M. Stallman <rms@gnu.org>
parents: 15357
diff changeset
2225
15249
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
2226 dos_process_running = FALSE;
53bb2499db2a (_sys_read_ahead): Handle sleep here.
Karl Heuer <kwzh@gnu.org>
parents: 15237
diff changeset
2227
15141
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2228 /* unfortunately, atexit depends on implementation of malloc */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2229 /* atexit (term_ntproc); */
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2230 signal (SIGABRT, term_ntproc);
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2231 }
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2232
6565b268b12a (nt_stat, nt_ctime): Functions deleted.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14912
diff changeset
2233 /* end of nt.c */