(cperl-info-on-command): Use goto-char instead of beginning-of-buffer.
[emacs.git] / msdos / sigaction.c
blob0f4f09b2a9928b667e7a5802c37a5068b7e86245
1 /* Copyright (C) 1995 DJ Delorie, see COPYING.DJ for details */
2 #include <signal.h>
3 #include <errno.h>
5 int
6 sigaction(int _sig, const struct sigaction *_act, struct sigaction *_oact)
8 int retval = 0;
10 if (_oact)
12 void (*installed_sig)(int) = signal (_sig, SIG_IGN);
14 /* FIXME */
15 if (installed_sig == SIG_ERR)
17 retval = -1;
18 errno = EINVAL;
20 else
21 signal (_sig, installed_sig);
22 _oact->sa_handler = installed_sig;
23 retval = sigemptyset (&_oact->sa_mask);
24 _oact->sa_flags = 0;
26 if (_act)
28 if (signal (_sig, _act->sa_handler) == SIG_ERR)
30 retval = -1;
31 errno = EINVAL;
34 return 0;
39 /* arch-tag: 39526405-3d3a-44fe-af28-82a515e0c8e8
40 (do not change this comment) */