Mercurial > emacs
annotate src/syswait.h @ 48630:edd0dd275f1f
(Fcall_interactively): Use next_event only if less
than key_count.
author | Andreas Schwab <schwab@suse.de> |
---|---|
date | Mon, 02 Dec 2002 23:30:54 +0000 |
parents | 971ae7795f13 |
children | 23a1cea22d13 |
rev | line source |
---|---|
4626 | 1 /* Define wait system call interface for Emacs. |
30066
0c8b413f3f35
Use the autoconf recommended approach. Old code #if'd out in case we
Dave Love <fx@gnu.org>
parents:
16220
diff
changeset
|
2 Copyright (C) 1993, 1994, 1995, 2000 Free Software Foundation, Inc. |
4626 | 3 |
4 This file is part of GNU Emacs. | |
5 | |
6 GNU Emacs is free software; you can redistribute it and/or modify | |
7 it under the terms of the GNU General Public License as published by | |
8 the Free Software Foundation; either version 2, or (at your option) | |
9 any later version. | |
10 | |
11 GNU Emacs is distributed in the hope that it will be useful, | |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 GNU General Public License for more details. | |
15 | |
16 You should have received a copy of the GNU General Public License | |
17 along with GNU Emacs; see the file COPYING. If not, write to | |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
11235
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:
11235
diff
changeset
|
19 Boston, MA 02111-1307, USA. */ |
4626 | 20 |
21 /* Define the structure that the wait system call stores. | |
22 On many systems, there is a structure defined for this. | |
23 But on vanilla-ish USG systems there is not. */ | |
24 | |
30066
0c8b413f3f35
Use the autoconf recommended approach. Old code #if'd out in case we
Dave Love <fx@gnu.org>
parents:
16220
diff
changeset
|
25 #ifndef EMACS_SYSWAIT_H |
0c8b413f3f35
Use the autoconf recommended approach. Old code #if'd out in case we
Dave Love <fx@gnu.org>
parents:
16220
diff
changeset
|
26 #define EMACS_SYSWAIT_H |
0c8b413f3f35
Use the autoconf recommended approach. Old code #if'd out in case we
Dave Love <fx@gnu.org>
parents:
16220
diff
changeset
|
27 |
4626 | 28 #ifndef VMS |
30066
0c8b413f3f35
Use the autoconf recommended approach. Old code #if'd out in case we
Dave Love <fx@gnu.org>
parents:
16220
diff
changeset
|
29 |
46865
971ae7795f13
Only the include of sys/wait.h tests HAVE_SYS_WAIT_H.
Richard M. Stallman <rms@gnu.org>
parents:
41185
diff
changeset
|
30 /* This is now really the approach recommended by Autoconf. If this |
971ae7795f13
Only the include of sys/wait.h tests HAVE_SYS_WAIT_H.
Richard M. Stallman <rms@gnu.org>
parents:
41185
diff
changeset
|
31 doesn't cause trouble anywhere, remove the original code, which is |
971ae7795f13
Only the include of sys/wait.h tests HAVE_SYS_WAIT_H.
Richard M. Stallman <rms@gnu.org>
parents:
41185
diff
changeset
|
32 #if'd out below. */ |
30066
0c8b413f3f35
Use the autoconf recommended approach. Old code #if'd out in case we
Dave Love <fx@gnu.org>
parents:
16220
diff
changeset
|
33 |
0c8b413f3f35
Use the autoconf recommended approach. Old code #if'd out in case we
Dave Love <fx@gnu.org>
parents:
16220
diff
changeset
|
34 #if 1 |
30465 | 35 #include <sys/types.h> |
30066
0c8b413f3f35
Use the autoconf recommended approach. Old code #if'd out in case we
Dave Love <fx@gnu.org>
parents:
16220
diff
changeset
|
36 |
41185
d12c8d3334f4
Delete conditionals for HPUX7, ISC 4.1, and convex.
Richard M. Stallman <rms@gnu.org>
parents:
41138
diff
changeset
|
37 #ifdef HAVE_SYS_WAIT_H /* We have sys/wait.h with POSIXoid definitions. */ |
46865
971ae7795f13
Only the include of sys/wait.h tests HAVE_SYS_WAIT_H.
Richard M. Stallman <rms@gnu.org>
parents:
41185
diff
changeset
|
38 #include <sys/wait.h> |
971ae7795f13
Only the include of sys/wait.h tests HAVE_SYS_WAIT_H.
Richard M. Stallman <rms@gnu.org>
parents:
41185
diff
changeset
|
39 #endif /* !HAVE_SYS_WAIT_H */ |
30465 | 40 |
41 #ifndef WCOREDUMP /* not POSIX */ | |
42 #define WCOREDUMP(status) ((status) & 0x80) | |
30066
0c8b413f3f35
Use the autoconf recommended approach. Old code #if'd out in case we
Dave Love <fx@gnu.org>
parents:
16220
diff
changeset
|
43 #endif |
46865
971ae7795f13
Only the include of sys/wait.h tests HAVE_SYS_WAIT_H.
Richard M. Stallman <rms@gnu.org>
parents:
41185
diff
changeset
|
44 #ifndef WEXITSTATUS |
30465 | 45 #define WEXITSTATUS(status) (((status) & 0xff00) >> 8) |
46865
971ae7795f13
Only the include of sys/wait.h tests HAVE_SYS_WAIT_H.
Richard M. Stallman <rms@gnu.org>
parents:
41185
diff
changeset
|
46 #endif |
971ae7795f13
Only the include of sys/wait.h tests HAVE_SYS_WAIT_H.
Richard M. Stallman <rms@gnu.org>
parents:
41185
diff
changeset
|
47 #ifndef WIFEXITED |
30465 | 48 #define WIFEXITED(status) (WTERMSIG(status) == 0) |
46865
971ae7795f13
Only the include of sys/wait.h tests HAVE_SYS_WAIT_H.
Richard M. Stallman <rms@gnu.org>
parents:
41185
diff
changeset
|
49 #endif |
971ae7795f13
Only the include of sys/wait.h tests HAVE_SYS_WAIT_H.
Richard M. Stallman <rms@gnu.org>
parents:
41185
diff
changeset
|
50 #ifndef WIFSTOPPED |
30465 | 51 #define WIFSTOPPED(status) (((status) & 0xff) == 0x7f) |
46865
971ae7795f13
Only the include of sys/wait.h tests HAVE_SYS_WAIT_H.
Richard M. Stallman <rms@gnu.org>
parents:
41185
diff
changeset
|
52 #endif |
971ae7795f13
Only the include of sys/wait.h tests HAVE_SYS_WAIT_H.
Richard M. Stallman <rms@gnu.org>
parents:
41185
diff
changeset
|
53 #ifndef WIFSIGNALED |
30465 | 54 #define WIFSIGNALED(status) (!WIFSTOPPED(status) && !WIFEXITED(status)) |
46865
971ae7795f13
Only the include of sys/wait.h tests HAVE_SYS_WAIT_H.
Richard M. Stallman <rms@gnu.org>
parents:
41185
diff
changeset
|
55 #endif |
971ae7795f13
Only the include of sys/wait.h tests HAVE_SYS_WAIT_H.
Richard M. Stallman <rms@gnu.org>
parents:
41185
diff
changeset
|
56 #ifndef WSTOPSIG |
30465 | 57 #define WSTOPSIG(status) WEXITSTATUS(status) |
46865
971ae7795f13
Only the include of sys/wait.h tests HAVE_SYS_WAIT_H.
Richard M. Stallman <rms@gnu.org>
parents:
41185
diff
changeset
|
58 #endif |
971ae7795f13
Only the include of sys/wait.h tests HAVE_SYS_WAIT_H.
Richard M. Stallman <rms@gnu.org>
parents:
41185
diff
changeset
|
59 #ifndef WTERMSIG |
30465 | 60 #define WTERMSIG(status) ((status) & 0x7f) |
46865
971ae7795f13
Only the include of sys/wait.h tests HAVE_SYS_WAIT_H.
Richard M. Stallman <rms@gnu.org>
parents:
41185
diff
changeset
|
61 #endif |
30465 | 62 |
63 #undef WAITTYPE | |
64 #define WAITTYPE int | |
65 #undef WRETCODE | |
66 #define WRETCODE(status) WEXITSTATUS (status) | |
30066
0c8b413f3f35
Use the autoconf recommended approach. Old code #if'd out in case we
Dave Love <fx@gnu.org>
parents:
16220
diff
changeset
|
67 |
46865
971ae7795f13
Only the include of sys/wait.h tests HAVE_SYS_WAIT_H.
Richard M. Stallman <rms@gnu.org>
parents:
41185
diff
changeset
|
68 #else /* 0 */ |
30066
0c8b413f3f35
Use the autoconf recommended approach. Old code #if'd out in case we
Dave Love <fx@gnu.org>
parents:
16220
diff
changeset
|
69 |
4626 | 70 #ifndef WAITTYPE |
10773
d8bc42dd7235
New alternative specified by WAIT_USE_INT.
Richard M. Stallman <rms@gnu.org>
parents:
10715
diff
changeset
|
71 |
d8bc42dd7235
New alternative specified by WAIT_USE_INT.
Richard M. Stallman <rms@gnu.org>
parents:
10715
diff
changeset
|
72 #ifdef WAIT_USE_INT |
d8bc42dd7235
New alternative specified by WAIT_USE_INT.
Richard M. Stallman <rms@gnu.org>
parents:
10715
diff
changeset
|
73 /* Some systems have union wait in their header, but we should use |
d8bc42dd7235
New alternative specified by WAIT_USE_INT.
Richard M. Stallman <rms@gnu.org>
parents:
10715
diff
changeset
|
74 int regardless of that. */ |
d8bc42dd7235
New alternative specified by WAIT_USE_INT.
Richard M. Stallman <rms@gnu.org>
parents:
10715
diff
changeset
|
75 #include <sys/wait.h> |
d8bc42dd7235
New alternative specified by WAIT_USE_INT.
Richard M. Stallman <rms@gnu.org>
parents:
10715
diff
changeset
|
76 #define WAITTYPE int |
d8bc42dd7235
New alternative specified by WAIT_USE_INT.
Richard M. Stallman <rms@gnu.org>
parents:
10715
diff
changeset
|
77 #define WRETCODE(w) WEXITSTATUS (w) |
d8bc42dd7235
New alternative specified by WAIT_USE_INT.
Richard M. Stallman <rms@gnu.org>
parents:
10715
diff
changeset
|
78 |
d8bc42dd7235
New alternative specified by WAIT_USE_INT.
Richard M. Stallman <rms@gnu.org>
parents:
10715
diff
changeset
|
79 #else /* not WAIT_USE_INT */ |
d8bc42dd7235
New alternative specified by WAIT_USE_INT.
Richard M. Stallman <rms@gnu.org>
parents:
10715
diff
changeset
|
80 |
16220
02044b05d8e0
Replaced symbol BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents:
15000
diff
changeset
|
81 #if (!defined (BSD_SYSTEM) && !defined (UNIPLUS) && !defined (STRIDE) && !(defined (HPUX) && !defined (NOMULTIPLEJOBS)) && !defined (HAVE_WAIT_HEADER)) |
4626 | 82 #define WAITTYPE int |
83 #define WIFSTOPPED(w) ((w&0377) == 0177) | |
84 #define WIFSIGNALED(w) ((w&0377) != 0177 && (w&~0377) == 0) | |
85 #define WIFEXITED(w) ((w&0377) == 0) | |
86 #define WRETCODE(w) (w >> 8) | |
87 #define WSTOPSIG(w) (w >> 8) | |
30465 | 88 #define WTERMSIG(w) (w & 0177) |
4626 | 89 #ifndef WCOREDUMP |
90 #define WCOREDUMP(w) ((w&0200) != 0) | |
91 #endif | |
10773
d8bc42dd7235
New alternative specified by WAIT_USE_INT.
Richard M. Stallman <rms@gnu.org>
parents:
10715
diff
changeset
|
92 |
4626 | 93 #else |
10773
d8bc42dd7235
New alternative specified by WAIT_USE_INT.
Richard M. Stallman <rms@gnu.org>
parents:
10715
diff
changeset
|
94 |
4626 | 95 #ifdef BSD4_1 |
96 #include <wait.h> | |
97 #else | |
98 #include <sys/wait.h> | |
99 #endif /* not BSD 4.1 */ | |
100 | |
101 #define WAITTYPE union wait | |
102 #define WRETCODE(w) w.w_retcode | |
6015
1a2b17eab8d9
[BSD]: #undef WCOREDUMP before defining it.
Roland McGrath <roland@gnu.org>
parents:
4955
diff
changeset
|
103 #undef WCOREDUMP /* Later BSDs define this name differently. */ |
4626 | 104 #define WCOREDUMP(w) w.w_coredump |
105 | |
4955 | 106 #if defined (HPUX) || defined (convex) |
4626 | 107 /* HPUX version 7 has broken definitions of these. */ |
4955 | 108 /* pvogel@convex.com says the convex does too. */ |
4626 | 109 #undef WTERMSIG |
110 #undef WSTOPSIG | |
111 #undef WIFSTOPPED | |
112 #undef WIFSIGNALED | |
113 #undef WIFEXITED | |
4955 | 114 #endif /* HPUX | convex */ |
4626 | 115 |
116 #ifndef WTERMSIG | |
117 #define WTERMSIG(w) w.w_termsig | |
118 #endif | |
119 #ifndef WSTOPSIG | |
120 #define WSTOPSIG(w) w.w_stopsig | |
121 #endif | |
122 #ifndef WIFSTOPPED | |
123 #define WIFSTOPPED(w) (WTERMSIG (w) == 0177) | |
124 #endif | |
125 #ifndef WIFSIGNALED | |
126 #define WIFSIGNALED(w) (WTERMSIG (w) != 0177 && (WSTOPSIG (w)) == 0) | |
127 #endif | |
128 #ifndef WIFEXITED | |
129 #define WIFEXITED(w) (WTERMSIG (w) == 0) | |
130 #endif | |
16220
02044b05d8e0
Replaced symbol BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents:
15000
diff
changeset
|
131 #endif /* BSD_SYSTEM || UNIPLUS || STRIDE || HPUX */ |
10773
d8bc42dd7235
New alternative specified by WAIT_USE_INT.
Richard M. Stallman <rms@gnu.org>
parents:
10715
diff
changeset
|
132 #endif /* not WAIT_USE_INT */ |
4626 | 133 #endif /* no WAITTYPE */ |
10773
d8bc42dd7235
New alternative specified by WAIT_USE_INT.
Richard M. Stallman <rms@gnu.org>
parents:
10715
diff
changeset
|
134 |
46865
971ae7795f13
Only the include of sys/wait.h tests HAVE_SYS_WAIT_H.
Richard M. Stallman <rms@gnu.org>
parents:
41185
diff
changeset
|
135 #endif /* 0 */ |
30066
0c8b413f3f35
Use the autoconf recommended approach. Old code #if'd out in case we
Dave Love <fx@gnu.org>
parents:
16220
diff
changeset
|
136 |
4626 | 137 #else /* VMS */ |
10773
d8bc42dd7235
New alternative specified by WAIT_USE_INT.
Richard M. Stallman <rms@gnu.org>
parents:
10715
diff
changeset
|
138 |
4626 | 139 #define WAITTYPE int |
140 #define WIFSTOPPED(w) 0 | |
141 #define WIFSIGNALED(w) 0 | |
142 #define WIFEXITED(w) ((w) != -1) | |
143 #define WRETCODE(w) (w) | |
144 #define WSTOPSIG(w) (w) | |
145 #define WCOREDUMP(w) 0 | |
146 #define WTERMSIG(w) (w) | |
147 #include <ssdef.h> | |
148 #include <iodef.h> | |
149 #include <clidef.h> | |
150 #include "vmsproc.h" | |
10773
d8bc42dd7235
New alternative specified by WAIT_USE_INT.
Richard M. Stallman <rms@gnu.org>
parents:
10715
diff
changeset
|
151 |
4626 | 152 #endif /* VMS */ |
30066
0c8b413f3f35
Use the autoconf recommended approach. Old code #if'd out in case we
Dave Love <fx@gnu.org>
parents:
16220
diff
changeset
|
153 |
0c8b413f3f35
Use the autoconf recommended approach. Old code #if'd out in case we
Dave Love <fx@gnu.org>
parents:
16220
diff
changeset
|
154 #endif /* EMACS_SYSWAIT_H */ |