Don't require `cl'.
[emacs.git] / src / w32.h
blob0c9c3ae3d5b7b3843b46ae238830776e97dc14d5
1 #ifndef EMACS_W32_H
2 #define EMACS_W32_H
4 /* Support routines for the NT version of Emacs.
5 Copyright (C) 1994, 2001, 2002, 2003, 2004, 2005,
6 2006, 2007 Free Software Foundation, Inc.
8 This file is part of GNU Emacs.
10 GNU Emacs is free software; you can redistribute it and/or modify
11 it under the terms of the GNU General Public License as published by
12 the Free Software Foundation; either version 3, or (at your option)
13 any later version.
15 GNU Emacs is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
20 You should have received a copy of the GNU General Public License
21 along with GNU Emacs; see the file COPYING. If not, write to
22 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
23 Boston, MA 02110-1301, USA. */
26 /* File descriptor set emulation. */
28 /* MSVC runtime library has limit of 64 descriptors by default */
29 #define FD_SETSIZE 64
30 typedef struct {
31 unsigned int bits[FD_SETSIZE / 32];
32 } fd_set;
34 /* standard access macros */
35 #define FD_SET(n, p) \
36 do { \
37 if ((n) < FD_SETSIZE) { \
38 (p)->bits[(n)/32] |= (1 << (n)%32); \
39 } \
40 } while (0)
41 #define FD_CLR(n, p) \
42 do { \
43 if ((n) < FD_SETSIZE) { \
44 (p)->bits[(n)/32] &= ~(1 << (n)%32); \
45 } \
46 } while (0)
47 #define FD_ISSET(n, p) ((n) < FD_SETSIZE ? ((p)->bits[(n)/32] & (1 << (n)%32)) : 0)
48 #define FD_ZERO(p) memset((p), 0, sizeof(fd_set))
50 #define SELECT_TYPE fd_set
52 /* ------------------------------------------------------------------------- */
54 /* child_process.status values */
55 enum {
56 STATUS_READ_ERROR = -1,
57 STATUS_READ_READY,
58 STATUS_READ_IN_PROGRESS,
59 STATUS_READ_FAILED,
60 STATUS_READ_SUCCEEDED,
61 STATUS_READ_ACKNOWLEDGED
64 /* This structure is used for both pipes and sockets; for
65 a socket, the process handle in pi is NULL. */
66 typedef struct _child_process
68 int fd;
69 int pid;
70 HANDLE char_avail;
71 HANDLE char_consumed;
72 HANDLE thrd;
73 HWND hwnd;
74 PROCESS_INFORMATION procinfo;
75 volatile int status;
76 char chr;
77 } child_process;
79 #define MAXDESC FD_SETSIZE
80 #define MAX_CHILDREN MAXDESC/2
81 #define CHILD_ACTIVE(cp) ((cp)->char_avail != NULL)
83 /* parallel array of private info on file handles */
84 typedef struct
86 unsigned flags;
87 HANDLE hnd;
88 child_process * cp;
89 } filedesc;
91 extern filedesc fd_info [ MAXDESC ];
93 /* fd_info flag definitions */
94 #define FILE_READ 0x0001
95 #define FILE_WRITE 0x0002
96 #define FILE_LISTEN 0x0004
97 #define FILE_BINARY 0x0010
98 #define FILE_LAST_CR 0x0020
99 #define FILE_AT_EOF 0x0040
100 #define FILE_SEND_SIGCHLD 0x0080
101 #define FILE_PIPE 0x0100
102 #define FILE_SOCKET 0x0200
103 #define FILE_NDELAY 0x0400
105 extern child_process * new_child (void);
106 extern void delete_child (child_process *cp);
108 /* ------------------------------------------------------------------------- */
110 /* Equivalent of strerror for W32 error codes. */
111 extern char * w32_strerror (int error_no);
113 /* Validate a pointer. */
114 extern int w32_valid_pointer_p (void *, int);
116 /* Get long (aka "true") form of file name, if it exists. */
117 extern BOOL w32_get_long_filename (char * name, char * buf, int size);
119 /* Prepare our standard handles for proper inheritance by child processes. */
120 extern void prepare_standard_handles (int in, int out,
121 int err, HANDLE handles[4]);
123 /* Reset our standard handles to their original state. */
124 extern void reset_standard_handles (int in, int out,
125 int err, HANDLE handles[4]);
127 /* Return the string resource associated with KEY of type TYPE. */
128 extern LPBYTE w32_get_resource (char * key, LPDWORD type);
130 extern void init_ntproc (void);
131 extern void term_ntproc (void);
132 extern void globals_of_w32 (void);
133 extern void syms_of_w32term (void);
134 extern void syms_of_w32fns (void);
135 extern void globals_of_w32fns (void);
136 extern void syms_of_w32select (void);
137 extern void globals_of_w32select (void);
138 extern void term_w32select (void);
139 extern void syms_of_w32menu (void);
140 extern void globals_of_w32menu (void);
141 extern void syms_of_fontset (void);
143 extern int _sys_read_ahead (int fd);
144 extern int _sys_wait_accept (int fd);
146 #endif /* EMACS_W32_H */
148 /* arch-tag: 02c36b00-312b-4c4d-a1d9-f905c5e968f0
149 (do not change this comment) */