annotate msdos/sigaction.c @ 71822:7b7a32c8c767

(CHECK_TYPE): New macro for generic type checking. (CAR_SAFE, CDR_SAFE): New macros. (ARRAYP, CHECK_ARRAY): New macros. (CHECK_VECTOR_OR_STRING, CHECK_SUBR): New macros. (CHECK_WINDOW_CONFIGURATION): New macro. (CHECK_LIST_CONS, CHECK_LIST_END): New checks for list traversal. (CHECK_STRING_OR_BUFFER, CHECK_HASH_TABLE, CHECK_LIST) (CHECK_STRING, CHECK_STRING_CAR, CHECK_CONS, CHECK_SYMBOL) (CHECK_CHAR_TABLE, CHECK_VECTOR, CHECK_VECTOR_OR_CHAR_TABLE) (CHECK_BUFFER, CHECK_WINDOW, CHECK_LIVE_WINDOW, CHECK_PROCESS) (CHECK_NUMBER, CHECK_NATNUM, CHECK_MARKER, CHECK_OVERLAY) (CHECK_NUMBER_COERCE_MARKER, CHECK_FLOAT, CHECK_NUMBER_OR_FLOAT) (CHECK_NUMBER_OR_FLOAT_COERCE_MARKER): Use CHECK_TYPE.
author Kim F. Storm <storm@cua.dk>
date Wed, 12 Jul 2006 13:13:44 +0000
parents 695cf19ef79e
children 60ed74508594 375f2633d815
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
25856
Dave Love <fx@gnu.org>
parents:
diff changeset
1 /* Copyright (C) 1995 DJ Delorie, see COPYING.DJ for details */
Dave Love <fx@gnu.org>
parents:
diff changeset
2 #include <signal.h>
Dave Love <fx@gnu.org>
parents:
diff changeset
3 #include <errno.h>
Dave Love <fx@gnu.org>
parents:
diff changeset
4
Dave Love <fx@gnu.org>
parents:
diff changeset
5 int
Dave Love <fx@gnu.org>
parents:
diff changeset
6 sigaction(int _sig, const struct sigaction *_act, struct sigaction *_oact)
Dave Love <fx@gnu.org>
parents:
diff changeset
7 {
Dave Love <fx@gnu.org>
parents:
diff changeset
8 int retval = 0;
Dave Love <fx@gnu.org>
parents:
diff changeset
9
Dave Love <fx@gnu.org>
parents:
diff changeset
10 if (_oact)
Dave Love <fx@gnu.org>
parents:
diff changeset
11 {
Dave Love <fx@gnu.org>
parents:
diff changeset
12 void (*installed_sig)(int) = signal (_sig, SIG_IGN);
Dave Love <fx@gnu.org>
parents:
diff changeset
13
Dave Love <fx@gnu.org>
parents:
diff changeset
14 /* FIXME */
Dave Love <fx@gnu.org>
parents:
diff changeset
15 if (installed_sig == SIG_ERR)
Dave Love <fx@gnu.org>
parents:
diff changeset
16 {
Dave Love <fx@gnu.org>
parents:
diff changeset
17 retval = -1;
Dave Love <fx@gnu.org>
parents:
diff changeset
18 errno = EINVAL;
Dave Love <fx@gnu.org>
parents:
diff changeset
19 }
Dave Love <fx@gnu.org>
parents:
diff changeset
20 else
Dave Love <fx@gnu.org>
parents:
diff changeset
21 signal (_sig, installed_sig);
Dave Love <fx@gnu.org>
parents:
diff changeset
22 _oact->sa_handler = installed_sig;
Dave Love <fx@gnu.org>
parents:
diff changeset
23 retval = sigemptyset (&_oact->sa_mask);
Dave Love <fx@gnu.org>
parents:
diff changeset
24 _oact->sa_flags = 0;
Dave Love <fx@gnu.org>
parents:
diff changeset
25 }
Dave Love <fx@gnu.org>
parents:
diff changeset
26 if (_act)
Dave Love <fx@gnu.org>
parents:
diff changeset
27 {
Dave Love <fx@gnu.org>
parents:
diff changeset
28 if (signal (_sig, _act->sa_handler) == SIG_ERR)
Dave Love <fx@gnu.org>
parents:
diff changeset
29 {
Dave Love <fx@gnu.org>
parents:
diff changeset
30 retval = -1;
Dave Love <fx@gnu.org>
parents:
diff changeset
31 errno = EINVAL;
Dave Love <fx@gnu.org>
parents:
diff changeset
32 }
Dave Love <fx@gnu.org>
parents:
diff changeset
33 }
Dave Love <fx@gnu.org>
parents:
diff changeset
34 return 0;
Dave Love <fx@gnu.org>
parents:
diff changeset
35 }
Dave Love <fx@gnu.org>
parents:
diff changeset
36
Dave Love <fx@gnu.org>
parents:
diff changeset
37
Dave Love <fx@gnu.org>
parents:
diff changeset
38
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 25856
diff changeset
39 /* arch-tag: 39526405-3d3a-44fe-af28-82a515e0c8e8
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 25856
diff changeset
40 (do not change this comment) */