annotate msdos/sigaction.c @ 26742:936b39bd05b4

* editfns.c (Fdelete_and_extract_region): New function. (syms_of_editfns): register it. * insdel.c (del_range): update del_range_1 call. (del_range_1, del_range_2): Add a ret_string argument to request that the deleted text be returned. (del_range_byte, del_range_both): Update del_range_2 call. * lisp.h (del_range_1, del_range_2): change prototype * casefiddle.c (casify_region): Update del_range_1 call. * coding.c (code_convert_region): Update del_range_2 call. * fileio.c (Finsert_file_contents): Update del_range_2 call.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 07 Dec 1999 04:42:40 +0000
parents 354e0c45cedf
children 695cf19ef79e
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