octave-nkf: src/sighandlers.cc annotate

annotate src/sighandlers.cc @ 14861:f7afecdd87ef

maint: Use Octave coding conventions for cuddling parentheses in src/ directory * bitfcns.cc, comment-list.cc, data.cc, defun.cc, error.cc, gl-render.cc, graphics.cc, graphics.in.h, load-path.cc, load-path.h, load-save.cc, ls-hdf5.cc, ls-mat4.cc, ls-mat5.cc, ls-oct-ascii.cc, mappers.cc, mex.cc, oct-map.cc, oct-obj.cc, ov-base-int.cc, ov-base-mat.h, ov-base-sparse.cc, ov-bool-mat.cc, ov-bool-sparse.cc, ov-cell.cc, ov-class.cc, ov-complex.cc, ov-cx-mat.cc, ov-cx-sparse.cc, ov-fcn-handle.cc, ov-flt-cx-mat.cc, ov-flt-re-mat.cc, ov-re-mat.cc, ov-re-sparse.cc, ov-scalar.cc, ov-str-mat.cc, ov-struct.cc, ov-usr-fcn.cc, ov.cc, pr-output.cc, procstream.h, sighandlers.cc, sparse-xdiv.cc, sparse-xpow.cc, sparse.cc, symtab.cc, syscalls.cc, sysdep.cc, txt-eng-ft.cc, variables.cc, zfstream.cc, zfstream.h: Use Octave coding conventions for cuddling parentheses.

author	Rik <octave@nomad.inbox5.com>
date	Sat, 14 Jul 2012 06:22:56 -0700
parents	47fba1dc31b8
children	577df411e0c7

rev	line source
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	1 /*
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	2
14138 72c96de7a403 maint: update copyright notices for 2012 John W. Eaton <jwe@octave.org> parents: 13983 diff changeset	3 Copyright (C) 1993-2012 John W. Eaton
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	4
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	5 This file is part of Octave.
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	6
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	7 Octave is free software; you can redistribute it and/or modify it
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	8 under the terms of the GNU General Public License as published by the
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6653 diff changeset	9 Free Software Foundation; either version 3 of the License, or (at your
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6653 diff changeset	10 option) any later version.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	11
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	12 Octave is distributed in the hope that it will be useful, but WITHOUT
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	15 for more details.
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	16
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	17 You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6653 diff changeset	18 along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6653 diff changeset	19 <http://www.gnu.org/licenses/>.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	20
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	21 */
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	22
240 a99f28f5e351 [project @ 1993-11-30 20:24:36 by jwe] jwe parents: 1 diff changeset	23 #ifdef HAVE_CONFIG_H
1230 92609e161b29 [project @ 1995-04-10 01:08:57 by jwe] jwe parents: 1009 diff changeset	24 #include <config.h>
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	25 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	26
2536 1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	27 #include <cstdlib>
1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	28
3503 d14c483b3c12 [project @ 2000-02-01 04:06:07 by jwe] jwe parents: 3343 diff changeset	29 #include <iostream>
1344 c2ca372d3279 [project @ 1995-09-04 00:50:16 by jwe] jwe parents: 1343 diff changeset	30 #include <new>
c2ca372d3279 [project @ 1995-09-04 00:50:16 by jwe] jwe parents: 1343 diff changeset	31
834 44ce29d8cb7b [project @ 1994-10-19 18:17:44 by jwe] jwe parents: 635 diff changeset	32 #include <sys/types.h>
44ce29d8cb7b [project @ 1994-10-19 18:17:44 by jwe] jwe parents: 635 diff changeset	33 #include <unistd.h>
1343 94bedeb289e5 [project @ 1995-09-04 00:29:21 by jwe] jwe parents: 1315 diff changeset	34
3281 aaaa20d31a5f [project @ 1999-10-13 07:02:46 by jwe] jwe parents: 3252 diff changeset	35 #include "cmd-edit.h"
5453 89f5979e8552 [project @ 2005-09-17 00:50:58 by jwe] jwe parents: 5451 diff changeset	36 #include "oct-syscalls.h"
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4092 diff changeset	37 #include "quit.h"
13983 7dd7cccf0757 clean up memory allocated for singletons before exit John W. Eaton <jwe@octave.org> parents: 13951 diff changeset	38 #include "singleton-cleanup.h"
3281 aaaa20d31a5f [project @ 1999-10-13 07:02:46 by jwe] jwe parents: 3252 diff changeset	39
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 7481 diff changeset	40 #include "debug.h"
4185 8f6d418d31c3 [project @ 2002-11-15 23:22:03 by jwe] jwe parents: 4182 diff changeset	41 #include "defun.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1350 diff changeset	42 #include "error.h"
10194 d4f813c3f5ed more debug mode fixes John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	43 #include "input.h"
1373 cea4101a2f18 [project @ 1995-09-07 07:19:58 by jwe] jwe parents: 1358 diff changeset	44 #include "load-save.h"
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	45 #include "oct-map.h"
2091 60f5e1c20815 [project @ 1996-04-28 08:32:39 by jwe] jwe parents: 2016 diff changeset	46 #include "pager.h"
4185 8f6d418d31c3 [project @ 2002-11-15 23:22:03 by jwe] jwe parents: 4182 diff changeset	47 #include "pt-bp.h"
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 7481 diff changeset	48 #include "pt-eval.h"
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	49 #include "sighandlers.h"
4787 02c748eb2ddc [project @ 2004-02-18 21:20:26 by jwe] jwe parents: 4675 diff changeset	50 #include "sysdep.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1350 diff changeset	51 #include "syswait.h"
2091 60f5e1c20815 [project @ 1996-04-28 08:32:39 by jwe] jwe parents: 2016 diff changeset	52 #include "toplev.h"
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	53 #include "utils.h"
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	54 #include "variables.h"
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	55
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	56 // Nonzero means we have already printed a message for this series of
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	57 // SIGPIPES. We assume that the writer will eventually give up.
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	58 int pipe_handler_error_count = 0;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	59
3018 5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe] jwe parents: 2931 diff changeset	60 // TRUE means we can be interrupted.
5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe] jwe parents: 2931 diff changeset	61 bool can_interrupt = false;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	62
4185 8f6d418d31c3 [project @ 2002-11-15 23:22:03 by jwe] jwe parents: 4182 diff changeset	63 // TRUE means we should try to enter the debugger on SIGINT.
8f6d418d31c3 [project @ 2002-11-15 23:22:03 by jwe] jwe parents: 4182 diff changeset	64 static bool Vdebug_on_interrupt = false;
8f6d418d31c3 [project @ 2002-11-15 23:22:03 by jwe] jwe parents: 4182 diff changeset	65
4449 e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	66 // Allow users to avoid writing octave-core for SIGHUP (sent by
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	67 // closing gnome-terminal, for example). Note that this variable has
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	68 // no effect if Vcrash_dumps_octave_core is FALSE.
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	69 static bool Vsighup_dumps_octave_core = true;
4449 e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	70
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	71 // Similar to Vsighup_dumps_octave_core, but for SIGTERM signal.
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	72 static bool Vsigterm_dumps_octave_core = true;
4449 e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	73
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	74 // List of signals we have caught since last call to octave_signal_handler.
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	75 static bool octave_signals_caught[NSIG];
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	76
11525 ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	77 // Signal handler return type.
ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	78 #ifndef BADSIG
ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	79 #define BADSIG (void (*)(int))-1
ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	80 #endif
ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	81
14338 1ecfba4427ff workaround for apparent bug in GCC 4.1.2 (bug #30685) John W. Eaton <jwe@octave.org> parents: 14154 diff changeset	82 // The following is a workaround for an apparent bug in GCC 4.1.2 and
1ecfba4427ff workaround for apparent bug in GCC 4.1.2 (bug #30685) John W. Eaton <jwe@octave.org> parents: 14154 diff changeset	83 // possibly earlier versions. See Octave bug report #30685 for details.
1ecfba4427ff workaround for apparent bug in GCC 4.1.2 (bug #30685) John W. Eaton <jwe@octave.org> parents: 14154 diff changeset	84 #if defined (__GNUC__)
1ecfba4427ff workaround for apparent bug in GCC 4.1.2 (bug #30685) John W. Eaton <jwe@octave.org> parents: 14154 diff changeset	85 # if ! (__GNUC__ > 4 \
1ecfba4427ff workaround for apparent bug in GCC 4.1.2 (bug #30685) John W. Eaton <jwe@octave.org> parents: 14154 diff changeset	86 \|\| (__GNUC__ == 4 && (__GNUC_MINOR__ > 1 \
1ecfba4427ff workaround for apparent bug in GCC 4.1.2 (bug #30685) John W. Eaton <jwe@octave.org> parents: 14154 diff changeset	87 \|\| (__GNUC_MINOR__ == 1 && __GNUC_PATCHLEVEL__ > 2))))
1ecfba4427ff workaround for apparent bug in GCC 4.1.2 (bug #30685) John W. Eaton <jwe@octave.org> parents: 14154 diff changeset	88 # undef GNULIB_NAMESPACE
1ecfba4427ff workaround for apparent bug in GCC 4.1.2 (bug #30685) John W. Eaton <jwe@octave.org> parents: 14154 diff changeset	89 # define GNULIB_NAMESPACE
1ecfba4427ff workaround for apparent bug in GCC 4.1.2 (bug #30685) John W. Eaton <jwe@octave.org> parents: 14154 diff changeset	90 # warning "disabling GNULIB_NAMESPACE for signal functions -- consider upgrading to a current version of GCC"
1ecfba4427ff workaround for apparent bug in GCC 4.1.2 (bug #30685) John W. Eaton <jwe@octave.org> parents: 14154 diff changeset	91 # endif
1ecfba4427ff workaround for apparent bug in GCC 4.1.2 (bug #30685) John W. Eaton <jwe@octave.org> parents: 14154 diff changeset	92 #endif
1ecfba4427ff workaround for apparent bug in GCC 4.1.2 (bug #30685) John W. Eaton <jwe@octave.org> parents: 14154 diff changeset	93
11525 ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	94 #define BLOCK_SIGNAL(sig, nvar, ovar) \
ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	95 do \
ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	96 { \
14338 1ecfba4427ff workaround for apparent bug in GCC 4.1.2 (bug #30685) John W. Eaton <jwe@octave.org> parents: 14154 diff changeset	97 GNULIB_NAMESPACE::sigemptyset (&nvar); \
1ecfba4427ff workaround for apparent bug in GCC 4.1.2 (bug #30685) John W. Eaton <jwe@octave.org> parents: 14154 diff changeset	98 GNULIB_NAMESPACE::sigaddset (&nvar, sig); \
1ecfba4427ff workaround for apparent bug in GCC 4.1.2 (bug #30685) John W. Eaton <jwe@octave.org> parents: 14154 diff changeset	99 GNULIB_NAMESPACE::sigemptyset (&ovar); \
1ecfba4427ff workaround for apparent bug in GCC 4.1.2 (bug #30685) John W. Eaton <jwe@octave.org> parents: 14154 diff changeset	100 GNULIB_NAMESPACE::sigprocmask (SIG_BLOCK, &nvar, &ovar); \
11525 ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	101 } \
ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	102 while (0)
ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	103
ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	104 #if !defined (SIGCHLD) && defined (SIGCLD)
ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	105 #define SIGCHLD SIGCLD
ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	106 #endif
ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	107
ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	108 #define BLOCK_CHILD(nvar, ovar) BLOCK_SIGNAL (SIGCHLD, nvar, ovar)
14338 1ecfba4427ff workaround for apparent bug in GCC 4.1.2 (bug #30685) John W. Eaton <jwe@octave.org> parents: 14154 diff changeset	109 #define UNBLOCK_CHILD(ovar) GNULIB_NAMESPACE::sigprocmask (SIG_SETMASK, &ovar, 0)
11525 ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	110
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 8920 diff changeset	111 // Called from octave_quit () to actually do something about the signals
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	112 // we have caught.
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	113
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	114 void
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	115 octave_signal_handler (void)
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	116 {
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	117 // The list of signals is relatively short, so we will just go
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	118 // linearly through the list.
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	119
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	120 for (int i = 0; i < NSIG; i++)
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	121 {
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	122 if (octave_signals_caught[i])
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	123 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	124 octave_signals_caught[i] = false;
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	125
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	126 switch (i)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	127 {
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	128 #ifdef SIGCHLD
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	129 case SIGCHLD:
11555 f359cfc6e24d sighandlers.cc: wait for children in octave_signal_handler, not sigchld_handler John W. Eaton <jwe@octave.org> parents: 11525 diff changeset	130 {
f359cfc6e24d sighandlers.cc: wait for children in octave_signal_handler, not sigchld_handler John W. Eaton <jwe@octave.org> parents: 11525 diff changeset	131 volatile octave_interrupt_handler saved_interrupt_handler
f359cfc6e24d sighandlers.cc: wait for children in octave_signal_handler, not sigchld_handler John W. Eaton <jwe@octave.org> parents: 11525 diff changeset	132 = octave_ignore_interrupts ();
f359cfc6e24d sighandlers.cc: wait for children in octave_signal_handler, not sigchld_handler John W. Eaton <jwe@octave.org> parents: 11525 diff changeset	133
f359cfc6e24d sighandlers.cc: wait for children in octave_signal_handler, not sigchld_handler John W. Eaton <jwe@octave.org> parents: 11525 diff changeset	134 sigset_t set, oset;
f359cfc6e24d sighandlers.cc: wait for children in octave_signal_handler, not sigchld_handler John W. Eaton <jwe@octave.org> parents: 11525 diff changeset	135
f359cfc6e24d sighandlers.cc: wait for children in octave_signal_handler, not sigchld_handler John W. Eaton <jwe@octave.org> parents: 11525 diff changeset	136 BLOCK_CHILD (set, oset);
f359cfc6e24d sighandlers.cc: wait for children in octave_signal_handler, not sigchld_handler John W. Eaton <jwe@octave.org> parents: 11525 diff changeset	137
f359cfc6e24d sighandlers.cc: wait for children in octave_signal_handler, not sigchld_handler John W. Eaton <jwe@octave.org> parents: 11525 diff changeset	138 octave_child_list::wait ();
f359cfc6e24d sighandlers.cc: wait for children in octave_signal_handler, not sigchld_handler John W. Eaton <jwe@octave.org> parents: 11525 diff changeset	139
f359cfc6e24d sighandlers.cc: wait for children in octave_signal_handler, not sigchld_handler John W. Eaton <jwe@octave.org> parents: 11525 diff changeset	140 octave_set_interrupt_handler (saved_interrupt_handler);
f359cfc6e24d sighandlers.cc: wait for children in octave_signal_handler, not sigchld_handler John W. Eaton <jwe@octave.org> parents: 11525 diff changeset	141
f359cfc6e24d sighandlers.cc: wait for children in octave_signal_handler, not sigchld_handler John W. Eaton <jwe@octave.org> parents: 11525 diff changeset	142 UNBLOCK_CHILD (oset);
f359cfc6e24d sighandlers.cc: wait for children in octave_signal_handler, not sigchld_handler John W. Eaton <jwe@octave.org> parents: 11525 diff changeset	143
f359cfc6e24d sighandlers.cc: wait for children in octave_signal_handler, not sigchld_handler John W. Eaton <jwe@octave.org> parents: 11525 diff changeset	144 octave_child_list::reap ();
f359cfc6e24d sighandlers.cc: wait for children in octave_signal_handler, not sigchld_handler John W. Eaton <jwe@octave.org> parents: 11525 diff changeset	145 }
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	146 break;
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	147 #endif
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	148
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	149 case SIGFPE:
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	150 std::cerr << "warning: floating point exception -- trying to return to prompt" << std::endl;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	151 break;
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	152
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	153 #ifdef SIGPIPE
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	154 case SIGPIPE:
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	155 std::cerr << "warning: broken pipe -- some output may be lost" << std::endl;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	156 break;
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	157 #endif
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	158 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	159 }
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	160 }
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	161 }
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	162
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	163 static void
4787 02c748eb2ddc [project @ 2004-02-18 21:20:26 by jwe] jwe parents: 4675 diff changeset	164 my_friendly_exit (const char *sig_name, int sig_number,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	165 bool save_vars = true)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	166 {
2536 1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	167 static bool been_there_done_that = false;
1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	168
1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	169 if (been_there_done_that)
1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	170 {
2554 f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	171 #if defined (SIGABRT)
2536 1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	172 octave_set_signal_handler (SIGABRT, SIG_DFL);
1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	173 #endif
1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	174
3644 9add655e8b8c [project @ 2000-03-24 11:58:50 by jwe] jwe parents: 3566 diff changeset	175 std::cerr << "panic: attempted clean up apparently failed -- aborting...\n";
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	176
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	177 MINGW_SIGNAL_CLEANUP ();
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	178
2536 1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	179 abort ();
1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	180 }
1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	181 else
1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	182 {
1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	183 been_there_done_that = true;
1373 cea4101a2f18 [project @ 1995-09-07 07:19:58 by jwe] jwe parents: 1358 diff changeset	184
3644 9add655e8b8c [project @ 2000-03-24 11:58:50 by jwe] jwe parents: 3566 diff changeset	185 std::cerr << "panic: " << sig_name << " -- stopping myself...\n";
2536 1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	186
4787 02c748eb2ddc [project @ 2004-02-18 21:20:26 by jwe] jwe parents: 4675 diff changeset	187 if (save_vars)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	188 dump_octave_core ();
2536 1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	189
3162 7c96e85c76db [project @ 1998-04-08 18:19:35 by jwe] jwe parents: 3018 diff changeset	190 if (sig_number < 0)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	191 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	192 MINGW_SIGNAL_CLEANUP ();
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	193
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	194 exit (1);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	195 }
3162 7c96e85c76db [project @ 1998-04-08 18:19:35 by jwe] jwe parents: 3018 diff changeset	196 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	197 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	198 octave_set_signal_handler (sig_number, SIG_DFL);
3162 7c96e85c76db [project @ 1998-04-08 18:19:35 by jwe] jwe parents: 3018 diff changeset	199
14338 1ecfba4427ff workaround for apparent bug in GCC 4.1.2 (bug #30685) John W. Eaton <jwe@octave.org> parents: 14154 diff changeset	200 GNULIB_NAMESPACE::raise (sig_number);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	201 }
2536 1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	202 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	203 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	204
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	205 sig_handler *
5770 6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5453 diff changeset	206 octave_set_signal_handler (int sig, sig_handler *handler,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	207 bool restart_syscalls)
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	208 {
5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	209 struct sigaction act, oact;
5144 25b090e1be9f [project @ 2005-02-15 12:06:05 by jwe] jwe parents: 5142 diff changeset	210
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	211 act.sa_handler = handler;
5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	212 act.sa_flags = 0;
5144 25b090e1be9f [project @ 2005-02-15 12:06:05 by jwe] jwe parents: 5142 diff changeset	213
10344 65974373505a Do not use SIGALRM unconditinally. Michael Goffioul <michael.goffioul@gmail.com> parents: 10315 diff changeset	214 #if defined (SIGALRM)
5144 25b090e1be9f [project @ 2005-02-15 12:06:05 by jwe] jwe parents: 5142 diff changeset	215 if (sig == SIGALRM)
25b090e1be9f [project @ 2005-02-15 12:06:05 by jwe] jwe parents: 5142 diff changeset	216 {
25b090e1be9f [project @ 2005-02-15 12:06:05 by jwe] jwe parents: 5142 diff changeset	217 #if defined (SA_INTERRUPT)
25b090e1be9f [project @ 2005-02-15 12:06:05 by jwe] jwe parents: 5142 diff changeset	218 act.sa_flags \|= SA_INTERRUPT;
25b090e1be9f [project @ 2005-02-15 12:06:05 by jwe] jwe parents: 5142 diff changeset	219 #endif
25b090e1be9f [project @ 2005-02-15 12:06:05 by jwe] jwe parents: 5142 diff changeset	220 }
10344 65974373505a Do not use SIGALRM unconditinally. Michael Goffioul <michael.goffioul@gmail.com> parents: 10315 diff changeset	221 #endif
5144 25b090e1be9f [project @ 2005-02-15 12:06:05 by jwe] jwe parents: 5142 diff changeset	222 #if defined (SA_RESTART)
10344 65974373505a Do not use SIGALRM unconditinally. Michael Goffioul <michael.goffioul@gmail.com> parents: 10315 diff changeset	223 #if defined (SIGALRM)
65974373505a Do not use SIGALRM unconditinally. Michael Goffioul <michael.goffioul@gmail.com> parents: 10315 diff changeset	224 else
65974373505a Do not use SIGALRM unconditinally. Michael Goffioul <michael.goffioul@gmail.com> parents: 10315 diff changeset	225 #endif
5775 ace8d8d26933 [project @ 2006-04-24 19:13:06 by jwe] jwe parents: 5770 diff changeset	226 // FIXME -- Do we also need to explicitly disable SA_RESTART?
10344 65974373505a Do not use SIGALRM unconditinally. Michael Goffioul <michael.goffioul@gmail.com> parents: 10315 diff changeset	227 if (restart_syscalls)
5770 6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5453 diff changeset	228 act.sa_flags \|= SA_RESTART;
5144 25b090e1be9f [project @ 2005-02-15 12:06:05 by jwe] jwe parents: 5142 diff changeset	229 #endif
25b090e1be9f [project @ 2005-02-15 12:06:05 by jwe] jwe parents: 5142 diff changeset	230
14338 1ecfba4427ff workaround for apparent bug in GCC 4.1.2 (bug #30685) John W. Eaton <jwe@octave.org> parents: 14154 diff changeset	231 GNULIB_NAMESPACE::sigemptyset (&act.sa_mask);
1ecfba4427ff workaround for apparent bug in GCC 4.1.2 (bug #30685) John W. Eaton <jwe@octave.org> parents: 14154 diff changeset	232 GNULIB_NAMESPACE::sigemptyset (&oact.sa_mask);
5144 25b090e1be9f [project @ 2005-02-15 12:06:05 by jwe] jwe parents: 5142 diff changeset	233
14338 1ecfba4427ff workaround for apparent bug in GCC 4.1.2 (bug #30685) John W. Eaton <jwe@octave.org> parents: 14154 diff changeset	234 GNULIB_NAMESPACE::sigaction (sig, &act, &oact);
5144 25b090e1be9f [project @ 2005-02-15 12:06:05 by jwe] jwe parents: 5142 diff changeset	235
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	236 return oact.sa_handler;
5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	237 }
5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	238
10246 f751dae7aab8 use gnulib signal modules John W. Eaton <jwe@octave.org> parents: 10194 diff changeset	239 static void
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	240 generic_sig_handler (int sig)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	241 {
5844 034cdbd34c0a [project @ 2006-06-07 15:38:58 by jwe] jwe parents: 5823 diff changeset	242 my_friendly_exit (strsignal (sig), sig);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	243 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	244
2091 60f5e1c20815 [project @ 1996-04-28 08:32:39 by jwe] jwe parents: 2016 diff changeset	245 // Handle SIGCHLD.
1230 92609e161b29 [project @ 1995-04-10 01:08:57 by jwe] jwe parents: 1009 diff changeset	246
4064 b4fa31442a78 [project @ 2002-09-26 21:10:45 by jwe] jwe parents: 3644 diff changeset	247 #ifdef SIGCHLD
10246 f751dae7aab8 use gnulib signal modules John W. Eaton <jwe@octave.org> parents: 10194 diff changeset	248 static void
2092 a938192ff632 [project @ 1996-04-28 08:36:22 by jwe] jwe parents: 2091 diff changeset	249 sigchld_handler (int /* sig */)
1230 92609e161b29 [project @ 1995-04-10 01:08:57 by jwe] jwe parents: 1009 diff changeset	250 {
11555 f359cfc6e24d sighandlers.cc: wait for children in octave_signal_handler, not sigchld_handler John W. Eaton <jwe@octave.org> parents: 11525 diff changeset	251 octave_signal_caught = 1;
2626 b35a5cd8107f [project @ 1997-01-27 01:41:30 by jwe] jwe parents: 2600 diff changeset	252
11555 f359cfc6e24d sighandlers.cc: wait for children in octave_signal_handler, not sigchld_handler John W. Eaton <jwe@octave.org> parents: 11525 diff changeset	253 octave_signals_caught[SIGCHLD] = true;
1230 92609e161b29 [project @ 1995-04-10 01:08:57 by jwe] jwe parents: 1009 diff changeset	254 }
14861 f7afecdd87ef maint: Use Octave coding conventions for cuddling parentheses in src/ directory Rik <octave@nomad.inbox5.com> parents: 14443 diff changeset	255 #endif /* defined (SIGCHLD) */
1230 92609e161b29 [project @ 1995-04-10 01:08:57 by jwe] jwe parents: 1009 diff changeset	256
4064 b4fa31442a78 [project @ 2002-09-26 21:10:45 by jwe] jwe parents: 3644 diff changeset	257 #ifdef SIGFPE
1373 cea4101a2f18 [project @ 1995-09-07 07:19:58 by jwe] jwe parents: 1358 diff changeset	258 #if defined (__alpha__)
10246 f751dae7aab8 use gnulib signal modules John W. Eaton <jwe@octave.org> parents: 10194 diff changeset	259 static void
1488 89c587478067 [project @ 1995-09-26 22:49:48 by jwe] jwe parents: 1446 diff changeset	260 sigfpe_handler (int /* sig */)
1373 cea4101a2f18 [project @ 1995-09-07 07:19:58 by jwe] jwe parents: 1358 diff changeset	261 {
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	262 if (can_interrupt && octave_interrupt_state >= 0)
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	263 {
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	264 octave_signal_caught = 1;
1373 cea4101a2f18 [project @ 1995-09-07 07:19:58 by jwe] jwe parents: 1358 diff changeset	265
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	266 octave_signals_caught[SIGFPE] = true;
4182 4d1d7c51205c [project @ 2002-11-15 20:33:47 by jwe] jwe parents: 4181 diff changeset	267
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	268 octave_interrupt_state++;
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	269 }
1373 cea4101a2f18 [project @ 1995-09-07 07:19:58 by jwe] jwe parents: 1358 diff changeset	270 }
14861 f7afecdd87ef maint: Use Octave coding conventions for cuddling parentheses in src/ directory Rik <octave@nomad.inbox5.com> parents: 14443 diff changeset	271 #endif /* defined (__alpha__) */
f7afecdd87ef maint: Use Octave coding conventions for cuddling parentheses in src/ directory Rik <octave@nomad.inbox5.com> parents: 14443 diff changeset	272 #endif /* defined (SIGFPE) */
1373 cea4101a2f18 [project @ 1995-09-07 07:19:58 by jwe] jwe parents: 1358 diff changeset	273
4449 e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	274 #if defined (SIGHUP) \|\| defined (SIGTERM)
10246 f751dae7aab8 use gnulib signal modules John W. Eaton <jwe@octave.org> parents: 10194 diff changeset	275 static void
4449 e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	276 sig_hup_or_term_handler (int sig)
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	277 {
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	278 switch (sig)
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	279 {
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	280 #if defined (SIGHUP)
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	281 case SIGHUP:
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	282 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	283 if (Vsighup_dumps_octave_core)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	284 dump_octave_core ();
4449 e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	285 }
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	286 break;
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	287 #endif
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	288
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	289 #if defined (SIGTERM)
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	290 case SIGTERM:
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	291 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	292 if (Vsigterm_dumps_octave_core)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	293 dump_octave_core ();
4449 e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	294 }
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	295 break;
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	296 #endif
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	297
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	298 default:
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	299 break;
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	300 }
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	301
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	302 clean_up_and_exit (0);
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	303 }
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	304 #endif
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	305
3343 466d7a1cac01 [project @ 1999-11-05 19:34:29 by jwe] jwe parents: 3281 diff changeset	306 #if 0
3281 aaaa20d31a5f [project @ 1999-10-13 07:02:46 by jwe] jwe parents: 3252 diff changeset	307 #if defined (SIGWINCH)
10246 f751dae7aab8 use gnulib signal modules John W. Eaton <jwe@octave.org> parents: 10194 diff changeset	308 static void
3281 aaaa20d31a5f [project @ 1999-10-13 07:02:46 by jwe] jwe parents: 3252 diff changeset	309 sigwinch_handler (int /* sig */)
aaaa20d31a5f [project @ 1999-10-13 07:02:46 by jwe] jwe parents: 3252 diff changeset	310 {
aaaa20d31a5f [project @ 1999-10-13 07:02:46 by jwe] jwe parents: 3252 diff changeset	311 command_editor::resize_terminal ();
aaaa20d31a5f [project @ 1999-10-13 07:02:46 by jwe] jwe parents: 3252 diff changeset	312 }
aaaa20d31a5f [project @ 1999-10-13 07:02:46 by jwe] jwe parents: 3252 diff changeset	313 #endif
3343 466d7a1cac01 [project @ 1999-11-05 19:34:29 by jwe] jwe parents: 3281 diff changeset	314 #endif
3281 aaaa20d31a5f [project @ 1999-10-13 07:02:46 by jwe] jwe parents: 3252 diff changeset	315
635 5338832d2cf6 [project @ 1994-08-23 17:57:20 by jwe] jwe parents: 529 diff changeset	316 // Handle SIGINT by restarting the parser (see octave.cc).
2554 f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	317 //
f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	318 // This also has to work for SIGBREAK (on systems that have it), so we
f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	319 // use the value of sig, instead of just assuming that it is called
f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	320 // for SIGINT only.
635 5338832d2cf6 [project @ 1994-08-23 17:57:20 by jwe] jwe parents: 529 diff changeset	321
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 7481 diff changeset	322 static void
73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 7481 diff changeset	323 user_abort (const char *sig_name, int sig_number)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	324 {
4172 2e94b2abfe6d [project @ 2002-11-12 21:14:04 by jwe] jwe parents: 4153 diff changeset	325 if (! octave_initialized)
2e94b2abfe6d [project @ 2002-11-12 21:14:04 by jwe] jwe parents: 4153 diff changeset	326 exit (1);
2e94b2abfe6d [project @ 2002-11-12 21:14:04 by jwe] jwe parents: 4153 diff changeset	327
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	328 if (can_interrupt)
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	329 {
4185 8f6d418d31c3 [project @ 2002-11-15 23:22:03 by jwe] jwe parents: 4182 diff changeset	330 if (Vdebug_on_interrupt)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	331 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	332 if (! octave_debug_on_interrupt_state)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	333 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	334 tree_evaluator::debug_mode = true;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	335 octave_debug_on_interrupt_state = true;
4185 8f6d418d31c3 [project @ 2002-11-15 23:22:03 by jwe] jwe parents: 4182 diff changeset	336
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	337 return;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	338 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	339 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	340 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	341 // Clear the flag and do normal interrupt stuff.
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 7481 diff changeset	342
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	343 tree_evaluator::debug_mode
10194 d4f813c3f5ed more debug mode fixes John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	344 = bp_table::have_breakpoints () \|\| Vdebugging;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	345 octave_debug_on_interrupt_state = false;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	346 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	347 }
4185 8f6d418d31c3 [project @ 2002-11-15 23:22:03 by jwe] jwe parents: 4182 diff changeset	348
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4092 diff changeset	349 if (octave_interrupt_immediately)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	350 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	351 if (octave_interrupt_state == 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	352 octave_interrupt_state = 1;
7481 78f3811155f7 use exceptions in liboctave error handler John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	353
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	354 octave_jump_to_enclosing_context ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	355 }
4429 c1f6200b5f0e [project @ 2003-06-17 04:36:08 by jwe] jwe parents: 4294 diff changeset	356 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	357 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	358 // If we are already cleaning up from a previous interrupt,
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	359 // take note of the fact that another interrupt signal has
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	360 // arrived.
4793 a62215ab8a03 [project @ 2004-02-20 20:59:34 by jwe] jwe parents: 4791 diff changeset	361
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	362 if (octave_interrupt_state < 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	363 octave_interrupt_state = 0;
4793 a62215ab8a03 [project @ 2004-02-20 20:59:34 by jwe] jwe parents: 4791 diff changeset	364
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	365 octave_signal_caught = 1;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	366 octave_interrupt_state++;
4787 02c748eb2ddc [project @ 2004-02-18 21:20:26 by jwe] jwe parents: 4675 diff changeset	367
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	368 if (interactive && octave_interrupt_state == 2)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	369 std::cerr << "Press Control-C again to abort." << std::endl;
4787 02c748eb2ddc [project @ 2004-02-18 21:20:26 by jwe] jwe parents: 4675 diff changeset	370
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	371 if (octave_interrupt_state >= 3)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	372 my_friendly_exit (sig_name, sig_number, true);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	373 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	374 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	375
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	376 }
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	377
10246 f751dae7aab8 use gnulib signal modules John W. Eaton <jwe@octave.org> parents: 10194 diff changeset	378 static void
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	379 sigint_handler (int sig)
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	380 {
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	381 #ifdef USE_W32_SIGINT
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	382 if (w32_in_main_thread ())
5844 034cdbd34c0a [project @ 2006-06-07 15:38:58 by jwe] jwe parents: 5823 diff changeset	383 user_abort (strsignal (sig), sig);
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	384 else
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	385 w32_raise (sig);
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	386 #else
5844 034cdbd34c0a [project @ 2006-06-07 15:38:58 by jwe] jwe parents: 5823 diff changeset	387 user_abort (strsignal (sig), sig);
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	388 #endif
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	389 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	390
4064 b4fa31442a78 [project @ 2002-09-26 21:10:45 by jwe] jwe parents: 3644 diff changeset	391 #ifdef SIGPIPE
10246 f751dae7aab8 use gnulib signal modules John W. Eaton <jwe@octave.org> parents: 10194 diff changeset	392 static void
1488 89c587478067 [project @ 1995-09-26 22:49:48 by jwe] jwe parents: 1446 diff changeset	393 sigpipe_handler (int /* sig */)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	394 {
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	395 octave_signal_caught = 1;
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	396
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	397 octave_signals_caught[SIGPIPE] = true;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	398
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	399 // Don't loop forever on account of this.
dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	400
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	401 if (pipe_handler_error_count++ > 100 && octave_interrupt_state >= 0)
4787 02c748eb2ddc [project @ 2004-02-18 21:20:26 by jwe] jwe parents: 4675 diff changeset	402 octave_interrupt_state++;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	403 }
14861 f7afecdd87ef maint: Use Octave coding conventions for cuddling parentheses in src/ directory Rik <octave@nomad.inbox5.com> parents: 14443 diff changeset	404 #endif /* defined (SIGPIPE) */
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	405
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	406 #ifdef USE_W32_SIGINT
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	407 static BOOL CALLBACK
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	408 w32_sigint_handler (DWORD sig)
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	409 {
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	410 const char *sig_name;
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	411
14861 f7afecdd87ef maint: Use Octave coding conventions for cuddling parentheses in src/ directory Rik <octave@nomad.inbox5.com> parents: 14443 diff changeset	412 switch (sig)
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	413 {
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11555 diff changeset	414 case CTRL_BREAK_EVENT:
12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11555 diff changeset	415 sig_name = "Ctrl-Break";
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	416 break;
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	417 case CTRL_C_EVENT:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	418 sig_name = "Ctrl-C";
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	419 break;
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	420 case CTRL_CLOSE_EVENT:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	421 sig_name = "close console";
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	422 break;
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	423 case CTRL_LOGOFF_EVENT:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	424 sig_name = "logoff";
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	425 break;
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	426 case CTRL_SHUTDOWN_EVENT:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	427 sig_name = "shutdown";
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	428 break;
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	429 default:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	430 sig_name = "unknown console event";
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	431 break;
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	432 }
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	433
14861 f7afecdd87ef maint: Use Octave coding conventions for cuddling parentheses in src/ directory Rik <octave@nomad.inbox5.com> parents: 14443 diff changeset	434 switch (sig)
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	435 {
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	436 case CTRL_BREAK_EVENT:
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	437 case CTRL_C_EVENT:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	438 w32_raise (SIGINT);
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	439 break;
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	440
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	441 case CTRL_CLOSE_EVENT:
14443 47fba1dc31b8 Fix closing window bug on MinGW (bug #33798) Tatsuro MATSUOKA <tmacchant@yahoo.co.jp> parents: 14429 diff changeset	442 clean_up_and_exit (0);
47fba1dc31b8 Fix closing window bug on MinGW (bug #33798) Tatsuro MATSUOKA <tmacchant@yahoo.co.jp> parents: 14429 diff changeset	443 break;
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	444 case CTRL_LOGOFF_EVENT:
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	445 case CTRL_SHUTDOWN_EVENT:
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	446 default:
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	447 // We should do the following:
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	448 // clean_up_and_exit (0);
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	449 // We can't because we aren't running in the normal Octave thread.
14861 f7afecdd87ef maint: Use Octave coding conventions for cuddling parentheses in src/ directory Rik <octave@nomad.inbox5.com> parents: 14443 diff changeset	450 user_abort (sig_name, sig);
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	451 break;
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	452 }
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	453
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11555 diff changeset	454 // Return TRUE if the event was handled, or FALSE if another handler
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	455 // should be called.
5775 ace8d8d26933 [project @ 2006-04-24 19:13:06 by jwe] jwe parents: 5770 diff changeset	456 // FIXME check that windows terminates the thread.
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	457 return TRUE;
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	458 }
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	459 #endif /* w32_sigint_handler */
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	460
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	461
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	462 octave_interrupt_handler
2554 f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	463 octave_catch_interrupts (void)
f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	464 {
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	465 octave_interrupt_handler retval;
2554 f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	466
f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	467 #ifdef SIGINT
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	468 retval.int_handler = octave_set_signal_handler (SIGINT, sigint_handler);
2554 f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	469 #endif
f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	470
f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	471 #ifdef SIGBREAK
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	472 retval.brk_handler = octave_set_signal_handler (SIGBREAK, sigint_handler);
2554 f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	473 #endif
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	474
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	475 #ifdef USE_W32_SIGINT
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	476
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	477 // Intercept windows console control events.
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11555 diff changeset	478 // Note that the windows console signal handlers chain, so if
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	479 // install_signal_handlers is called more than once in the same program,
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	480 // then first call the following to avoid duplicates:
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	481 //
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	482 // SetConsoleCtrlHandler (w32_sigint_handler, FALSE);
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	483
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	484 if (! SetConsoleCtrlHandler (w32_sigint_handler, TRUE))
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	485 error ("SetConsoleCtrlHandler failed with %ld\n", GetLastError ());
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	486
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	487 w32_set_quiet_shutdown ();
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	488
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	489 #endif
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	490
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	491 return retval;
2554 f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	492 }
f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	493
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	494 octave_interrupt_handler
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	495 octave_ignore_interrupts (void)
2554 f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	496 {
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	497 octave_interrupt_handler retval;
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	498
2554 f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	499 #ifdef SIGINT
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	500 retval.int_handler = octave_set_signal_handler (SIGINT, SIG_IGN);
2554 f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	501 #endif
f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	502
f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	503 #ifdef SIGBREAK
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	504 retval.brk_handler = octave_set_signal_handler (SIGBREAK, SIG_IGN);
2554 f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	505 #endif
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	506
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	507 return retval;
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	508 }
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	509
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	510 octave_interrupt_handler
5770 6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5453 diff changeset	511 octave_set_interrupt_handler (const volatile octave_interrupt_handler& h,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	512 bool restart_syscalls)
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	513 {
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	514 octave_interrupt_handler retval;
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	515
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	516 #ifdef SIGINT
5770 6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5453 diff changeset	517 retval.int_handler = octave_set_signal_handler (SIGINT, h.int_handler,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	518 restart_syscalls);
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	519 #endif
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	520
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	521 #ifdef SIGBREAK
5770 6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5453 diff changeset	522 retval.brk_handler = octave_set_signal_handler (SIGBREAK, h.brk_handler,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	523 restart_syscalls);
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	524 #endif
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	525
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	526 return retval;
1651 e846e361a265 [project @ 1995-12-20 06:59:12 by jwe] jwe parents: 1618 diff changeset	527 }
e846e361a265 [project @ 1995-12-20 06:59:12 by jwe] jwe parents: 1618 diff changeset	528
635 5338832d2cf6 [project @ 1994-08-23 17:57:20 by jwe] jwe parents: 529 diff changeset	529 // Install all the handlers for the signals we might care about.
5338832d2cf6 [project @ 1994-08-23 17:57:20 by jwe] jwe parents: 529 diff changeset	530
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	531 void
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	532 install_signal_handlers (void)
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	533 {
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	534 for (int i = 0; i < NSIG; i++)
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	535 octave_signals_caught[i] = false;
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	536
2554 f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	537 octave_catch_interrupts ();
f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	538
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	539 #ifdef SIGABRT
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	540 octave_set_signal_handler (SIGABRT, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	541 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	542
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	543 #ifdef SIGALRM
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	544 octave_set_signal_handler (SIGALRM, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	545 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	546
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	547 #ifdef SIGBUS
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	548 octave_set_signal_handler (SIGBUS, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	549 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	550
1230 92609e161b29 [project @ 1995-04-10 01:08:57 by jwe] jwe parents: 1009 diff changeset	551 #ifdef SIGCHLD
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	552 octave_set_signal_handler (SIGCHLD, sigchld_handler);
1230 92609e161b29 [project @ 1995-04-10 01:08:57 by jwe] jwe parents: 1009 diff changeset	553 #endif
92609e161b29 [project @ 1995-04-10 01:08:57 by jwe] jwe parents: 1009 diff changeset	554
3174 390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	555 // SIGCLD
390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	556 // SIGCONT
390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	557
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	558 #ifdef SIGEMT
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	559 octave_set_signal_handler (SIGEMT, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	560 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	561
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	562 #ifdef SIGFPE
1373 cea4101a2f18 [project @ 1995-09-07 07:19:58 by jwe] jwe parents: 1358 diff changeset	563 #if defined (__alpha__)
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	564 octave_set_signal_handler (SIGFPE, sigfpe_handler);
1373 cea4101a2f18 [project @ 1995-09-07 07:19:58 by jwe] jwe parents: 1358 diff changeset	565 #else
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	566 octave_set_signal_handler (SIGFPE, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	567 #endif
1373 cea4101a2f18 [project @ 1995-09-07 07:19:58 by jwe] jwe parents: 1358 diff changeset	568 #endif
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	569
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	570 #ifdef SIGHUP
4449 e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	571 octave_set_signal_handler (SIGHUP, sig_hup_or_term_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	572 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	573
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	574 #ifdef SIGILL
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	575 octave_set_signal_handler (SIGILL, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	576 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	577
3174 390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	578 // SIGINFO
390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	579 // SIGINT
390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	580
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	581 #ifdef SIGIOT
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	582 octave_set_signal_handler (SIGIOT, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	583 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	584
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	585 #ifdef SIGLOST
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	586 octave_set_signal_handler (SIGLOST, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	587 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	588
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	589 #ifdef SIGPIPE
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	590 octave_set_signal_handler (SIGPIPE, sigpipe_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	591 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	592
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	593 #ifdef SIGPOLL
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	594 octave_set_signal_handler (SIGPOLL, SIG_IGN);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	595 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	596
5866 f9ac7ebf0e19 [project @ 2006-06-28 16:05:22 by jwe] jwe parents: 5844 diff changeset	597 // SIGPROF
3174 390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	598 // SIGPWR
390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	599
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	600 #ifdef SIGQUIT
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	601 octave_set_signal_handler (SIGQUIT, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	602 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	603
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	604 #ifdef SIGSEGV
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	605 octave_set_signal_handler (SIGSEGV, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	606 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	607
3174 390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	608 // SIGSTOP
390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	609
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	610 #ifdef SIGSYS
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	611 octave_set_signal_handler (SIGSYS, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	612 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	613
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	614 #ifdef SIGTERM
4449 e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	615 octave_set_signal_handler (SIGTERM, sig_hup_or_term_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	616 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	617
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	618 #ifdef SIGTRAP
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	619 octave_set_signal_handler (SIGTRAP, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	620 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	621
3174 390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	622 // SIGTSTP
390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	623 // SIGTTIN
390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	624 // SIGTTOU
390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	625 // SIGURG
390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	626
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	627 #ifdef SIGUSR1
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	628 octave_set_signal_handler (SIGUSR1, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	629 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	630
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	631 #ifdef SIGUSR2
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	632 octave_set_signal_handler (SIGUSR2, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	633 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	634
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	635 #ifdef SIGVTALRM
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	636 octave_set_signal_handler (SIGVTALRM, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	637 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	638
895 05654cdcfc95 [project @ 1994-11-09 15:30:06 by jwe] jwe parents: 886 diff changeset	639 #ifdef SIGIO
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	640 octave_set_signal_handler (SIGIO, SIG_IGN);
895 05654cdcfc95 [project @ 1994-11-09 15:30:06 by jwe] jwe parents: 886 diff changeset	641 #endif
05654cdcfc95 [project @ 1994-11-09 15:30:06 by jwe] jwe parents: 886 diff changeset	642
3343 466d7a1cac01 [project @ 1999-11-05 19:34:29 by jwe] jwe parents: 3281 diff changeset	643 #if 0
3281 aaaa20d31a5f [project @ 1999-10-13 07:02:46 by jwe] jwe parents: 3252 diff changeset	644 #ifdef SIGWINCH
aaaa20d31a5f [project @ 1999-10-13 07:02:46 by jwe] jwe parents: 3252 diff changeset	645 octave_set_signal_handler (SIGWINCH, sigwinch_handler);
aaaa20d31a5f [project @ 1999-10-13 07:02:46 by jwe] jwe parents: 3252 diff changeset	646 #endif
3343 466d7a1cac01 [project @ 1999-11-05 19:34:29 by jwe] jwe parents: 3281 diff changeset	647 #endif
3174 390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	648
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	649 #ifdef SIGXCPU
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	650 octave_set_signal_handler (SIGXCPU, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	651 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	652
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	653 #ifdef SIGXFSZ
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	654 octave_set_signal_handler (SIGXFSZ, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	655 #endif
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	656
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	657 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	658
11066 e678346a47d9 toplev.cc, sighandlers.cc, utils.cc, octave.cc, pt-eval.cc pt-idx.cc: Octave_map to octave_map and octave_scalar_map conversion John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	659 static octave_scalar_map
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	660 make_sig_struct (void)
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	661 {
11066 e678346a47d9 toplev.cc, sighandlers.cc, utils.cc, octave.cc, pt-eval.cc pt-idx.cc: Octave_map to octave_map and octave_scalar_map conversion John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	662 octave_scalar_map m;
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	663
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	664 #ifdef SIGABRT
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	665 m.assign ("ABRT", SIGABRT);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	666 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	667
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	668 #ifdef SIGALRM
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	669 m.assign ("ALRM", SIGALRM);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	670 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	671
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	672 #ifdef SIGBUS
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	673 m.assign ("BUS", SIGBUS);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	674 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	675
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	676 #ifdef SIGCHLD
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	677 m.assign ("CHLD", SIGCHLD);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	678 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	679
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	680 #ifdef SIGCLD
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	681 m.assign ("CLD", SIGCLD);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	682 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	683
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	684 #ifdef SIGCONT
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	685 m.assign ("CONT", SIGCONT);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	686 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	687
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	688 #ifdef SIGEMT
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	689 m.assign ("EMT", SIGEMT);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	690 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	691
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	692 #ifdef SIGFPE
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	693 m.assign ("FPE", SIGFPE);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	694 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	695
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	696 #ifdef SIGHUP
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	697 m.assign ("HUP", SIGHUP);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	698 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	699
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	700 #ifdef SIGILL
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	701 m.assign ("ILL", SIGILL);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	702 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	703
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	704 #ifdef SIGINFO
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	705 m.assign ("INFO", SIGINFO);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	706 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	707
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	708 #ifdef SIGINT
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	709 m.assign ("INT", SIGINT);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	710 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	711
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	712 #ifdef SIGIOT
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	713 m.assign ("IOT", SIGIOT);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	714 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	715
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	716 #ifdef SIGLOST
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	717 m.assign ("LOST", SIGLOST);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	718 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	719
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	720 #ifdef SIGPIPE
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	721 m.assign ("PIPE", SIGPIPE);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	722 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	723
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	724 #ifdef SIGPOLL
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	725 m.assign ("POLL", SIGPOLL);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	726 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	727
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	728 #ifdef SIGPROF
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	729 m.assign ("PROF", SIGPROF);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	730 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	731
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	732 #ifdef SIGPWR
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	733 m.assign ("PWR", SIGPWR);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	734 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	735
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	736 #ifdef SIGQUIT
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	737 m.assign ("QUIT", SIGQUIT);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	738 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	739
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	740 #ifdef SIGSEGV
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	741 m.assign ("SEGV", SIGSEGV);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	742 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	743
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	744 #ifdef SIGSTOP
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	745 m.assign ("STOP", SIGSTOP);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	746 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	747
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	748 #ifdef SIGSYS
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	749 m.assign ("SYS", SIGSYS);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	750 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	751
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	752 #ifdef SIGTERM
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	753 m.assign ("TERM", SIGTERM);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	754 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	755
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	756 #ifdef SIGTRAP
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	757 m.assign ("TRAP", SIGTRAP);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	758 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	759
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	760 #ifdef SIGTSTP
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	761 m.assign ("TSTP", SIGTSTP);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	762 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	763
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	764 #ifdef SIGTTIN
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	765 m.assign ("TTIN", SIGTTIN);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	766 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	767
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	768 #ifdef SIGTTOU
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	769 m.assign ("TTOU", SIGTTOU);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	770 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	771
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	772 #ifdef SIGURG
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	773 m.assign ("URG", SIGURG);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	774 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	775
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	776 #ifdef SIGUSR1
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	777 m.assign ("USR1", SIGUSR1);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	778 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	779
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	780 #ifdef SIGUSR2
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	781 m.assign ("USR2", SIGUSR2);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	782 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	783
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	784 #ifdef SIGVTALRM
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	785 m.assign ("VTALRM", SIGVTALRM);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	786 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	787
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	788 #ifdef SIGIO
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	789 m.assign ("IO", SIGIO);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	790 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	791
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	792 #ifdef SIGWINCH
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	793 m.assign ("WINCH", SIGWINCH);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	794 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	795
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	796 #ifdef SIGXCPU
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	797 m.assign ("XCPU", SIGXCPU);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	798 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	799
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	800 #ifdef SIGXFSZ
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	801 m.assign ("XFSZ", SIGXFSZ);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	802 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	803
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	804 return m;
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	805 }
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	806
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	807 octave_child_list::octave_child_list_rep *octave_child_list::instance = 0;
5128 2c4b08ace285 [project @ 2005-02-04 21:41:38 by jwe] jwe parents: 4793 diff changeset	808
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	809 bool
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	810 octave_child_list::instance_ok (void)
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	811 {
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	812 bool retval = true;
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	813
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	814 if (! instance)
13983 7dd7cccf0757 clean up memory allocated for singletons before exit John W. Eaton <jwe@octave.org> parents: 13951 diff changeset	815 {
7dd7cccf0757 clean up memory allocated for singletons before exit John W. Eaton <jwe@octave.org> parents: 13951 diff changeset	816 instance = new octave_child_list_rep ();
7dd7cccf0757 clean up memory allocated for singletons before exit John W. Eaton <jwe@octave.org> parents: 13951 diff changeset	817
7dd7cccf0757 clean up memory allocated for singletons before exit John W. Eaton <jwe@octave.org> parents: 13951 diff changeset	818 if (instance)
7dd7cccf0757 clean up memory allocated for singletons before exit John W. Eaton <jwe@octave.org> parents: 13951 diff changeset	819 singleton_cleanup_list::add (cleanup_instance);
7dd7cccf0757 clean up memory allocated for singletons before exit John W. Eaton <jwe@octave.org> parents: 13951 diff changeset	820 }
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	821
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	822 if (! instance)
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	823 {
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	824 ::error ("unable to create child list object!");
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	825
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	826 retval = false;
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	827 }
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	828
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	829 return retval;
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	830 }
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	831
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	832 void
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	833 octave_child_list::insert (pid_t pid, octave_child::child_event_handler f)
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	834 {
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	835 if (instance_ok ())
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	836 instance->insert (pid, f);
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	837 }
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	838
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	839 void
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	840 octave_child_list::reap (void)
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	841 {
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	842 if (instance_ok ())
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	843 instance->reap ();
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	844 }
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	845
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	846 bool
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	847 octave_child_list::wait (void)
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	848 {
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	849 return (instance_ok ()) ? instance->wait () : false;
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	850 }
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	851
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	852 class pid_equal
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	853 {
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	854 public:
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	855
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	856 pid_equal (pid_t v) : val (v) { }
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	857
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	858 bool operator () (const octave_child& oc) const { return oc.pid == val; }
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	859
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	860 private:
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	861
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	862 pid_t val;
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	863 };
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	864
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	865 void
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	866 octave_child_list::remove (pid_t pid)
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	867 {
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	868 if (instance_ok ())
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	869 instance->remove_if (pid_equal (pid));
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	870 }
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	871
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	872 #define OCL_REP octave_child_list::octave_child_list_rep
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	873
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	874 void
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	875 OCL_REP::insert (pid_t pid, octave_child::child_event_handler f)
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	876 {
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	877 append (octave_child (pid, f));
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	878 }
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	879
2209 859030f15706 [project @ 1996-05-15 11:46:43 by jwe] jwe parents: 2206 diff changeset	880 void
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	881 OCL_REP::reap (void)
2209 859030f15706 [project @ 1996-05-15 11:46:43 by jwe] jwe parents: 2206 diff changeset	882 {
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	883 // Mark the record for PID invalid.
2209 859030f15706 [project @ 1996-05-15 11:46:43 by jwe] jwe parents: 2206 diff changeset	884
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	885 for (iterator p = begin (); p != end (); p++)
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	886 {
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	887 // The call to the octave_child::child_event_handler might
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	888 // invalidate the iterator (for example, by calling
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	889 // octave_child_list::remove), so we increment the iterator
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	890 // here.
2209 859030f15706 [project @ 1996-05-15 11:46:43 by jwe] jwe parents: 2206 diff changeset	891
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	892 octave_child& oc = *p;
2209 859030f15706 [project @ 1996-05-15 11:46:43 by jwe] jwe parents: 2206 diff changeset	893
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	894 if (oc.have_status)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	895 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	896 oc.have_status = 0;
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	897
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	898 octave_child::child_event_handler f = oc.handler;
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	899
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	900 if (f && f (oc.pid, oc.status))
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	901 oc.pid = -1;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	902 }
2209 859030f15706 [project @ 1996-05-15 11:46:43 by jwe] jwe parents: 2206 diff changeset	903 }
859030f15706 [project @ 1996-05-15 11:46:43 by jwe] jwe parents: 2206 diff changeset	904
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	905 remove_if (pid_equal (-1));
2209 859030f15706 [project @ 1996-05-15 11:46:43 by jwe] jwe parents: 2206 diff changeset	906 }
859030f15706 [project @ 1996-05-15 11:46:43 by jwe] jwe parents: 2206 diff changeset	907
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	908 // Wait on our children and record any changes in their status.
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	909
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	910 bool
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	911 OCL_REP::wait (void)
2210 a3e39f8efed2 [project @ 1996-05-15 12:55:55 by jwe] jwe parents: 2209 diff changeset	912 {
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	913 bool retval = false;
2210 a3e39f8efed2 [project @ 1996-05-15 12:55:55 by jwe] jwe parents: 2209 diff changeset	914
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	915 for (iterator p = begin (); p != end (); p++)
2210 a3e39f8efed2 [project @ 1996-05-15 12:55:55 by jwe] jwe parents: 2209 diff changeset	916 {
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	917 octave_child& oc = *p;
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	918
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	919 pid_t pid = oc.pid;
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	920
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	921 if (pid > 0)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	922 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	923 int status;
2210 a3e39f8efed2 [project @ 1996-05-15 12:55:55 by jwe] jwe parents: 2209 diff changeset	924
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	925 if (octave_syscalls::waitpid (pid, &status, WNOHANG) > 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	926 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	927 oc.have_status = 1;
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	928
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	929 oc.status = status;
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	930
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	931 retval = true;
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	932
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	933 break;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	934 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	935 }
2210 a3e39f8efed2 [project @ 1996-05-15 12:55:55 by jwe] jwe parents: 2209 diff changeset	936 }
a3e39f8efed2 [project @ 1996-05-15 12:55:55 by jwe] jwe parents: 2209 diff changeset	937
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	938 return retval;
2210 a3e39f8efed2 [project @ 1996-05-15 12:55:55 by jwe] jwe parents: 2209 diff changeset	939 }
a3e39f8efed2 [project @ 1996-05-15 12:55:55 by jwe] jwe parents: 2209 diff changeset	940
5780 cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	941 DEFUN (SIG, args, ,
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	942 "-- texinfo --\n\
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	943 @deftypefn {Built-in Function} {} SIG ()\n\
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	944 Return a structure containing Unix signal names and their defined values.\n\
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	945 @end deftypefn")
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	946 {
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	947 octave_value retval;
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	948
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	949 if (args.length () == 0)
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	950 {
11066 e678346a47d9 toplev.cc, sighandlers.cc, utils.cc, octave.cc, pt-eval.cc pt-idx.cc: Octave_map to octave_map and octave_scalar_map conversion John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	951 static octave_scalar_map m = make_sig_struct ();
5780 cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	952
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	953 retval = m;
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	954 }
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	955 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5794 diff changeset	956 print_usage ();
5780 cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	957
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	958 return retval;
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	959 }
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	960
12827 8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	961 /*
14429 eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14338 diff changeset	962 %!assert (isstruct (SIG ()))
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14338 diff changeset	963 %!assert (! isempty (SIG ()))
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14338 diff changeset	964
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14338 diff changeset	965 %!error SIG (1)
12827 8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	966 */
8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	967
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	968 DEFUN (debug_on_interrupt, args, nargout,
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	969 "-- texinfo --\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10411 diff changeset	970 @deftypefn {Built-in Function} {@var{val} =} debug_on_interrupt ()\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	971 @deftypefnx {Built-in Function} {@var{old_val} =} debug_on_interrupt (@var{new_val})\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12832 diff changeset	972 @deftypefnx {Built-in Function} {} debug_on_interrupt (@var{new_val}, \"local\")\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	973 Query or set the internal variable that controls whether Octave will try\n\
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	974 to enter debugging mode when it receives an interrupt signal (typically\n\
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	975 generated with @kbd{C-c}). If a second interrupt signal is received\n\
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	976 before reaching the debugging mode, a normal interrupt will occur.\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12832 diff changeset	977 \n\
79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12832 diff changeset	978 When called from inside a function with the \"local\" option, the variable is\n\
79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12832 diff changeset	979 changed locally for the function and any subroutines it calls. The original\n\
79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12832 diff changeset	980 variable value is restored when exiting the function.\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	981 @end deftypefn")
4449 e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	982 {
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	983 return SET_INTERNAL_VARIABLE (debug_on_interrupt);
4449 e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	984 }
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	985
12827 8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	986 /*
8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	987 %!test
12832 03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	988 %! orig_val = debug_on_interrupt ();
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	989 %! old_val = debug_on_interrupt (! orig_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	990 %! assert (orig_val, old_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	991 %! assert (debug_on_interrupt (), ! orig_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	992 %! debug_on_interrupt (orig_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	993 %! assert (debug_on_interrupt (), orig_val);
14429 eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14338 diff changeset	994
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14338 diff changeset	995 %!error (debug_on_interrupt (1, 2))
12827 8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	996 */
8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	997
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	998 DEFUN (sighup_dumps_octave_core, args, nargout,
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	999 "-- texinfo --\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10411 diff changeset	1000 @deftypefn {Built-in Function} {@var{val} =} sighup_dumps_octave_core ()\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	1001 @deftypefnx {Built-in Function} {@var{old_val} =} sighup_dumps_octave_core (@var{new_val})\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12832 diff changeset	1002 @deftypefnx {Built-in Function} {} sighup_dumps_octave_core (@var{new_val}, \"local\")\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	1003 Query or set the internal variable that controls whether Octave tries\n\
6653 673686daec87 [project @ 2007-05-22 15:36:09 by jwe] jwe parents: 6098 diff changeset	1004 to save all current variables to the file \"octave-core\" if it receives\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	1005 a hangup signal.\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12832 diff changeset	1006 \n\
79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12832 diff changeset	1007 When called from inside a function with the \"local\" option, the variable is\n\
79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12832 diff changeset	1008 changed locally for the function and any subroutines it calls. The original\n\
79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12832 diff changeset	1009 variable value is restored when exiting the function.\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	1010 @end deftypefn")
4185 8f6d418d31c3 [project @ 2002-11-15 23:22:03 by jwe] jwe parents: 4182 diff changeset	1011 {
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	1012 return SET_INTERNAL_VARIABLE (sighup_dumps_octave_core);
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	1013 }
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	1014
12827 8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	1015 /*
8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	1016 %!test
12832 03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1017 %! orig_val = sighup_dumps_octave_core ();
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1018 %! old_val = sighup_dumps_octave_core (! orig_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1019 %! assert (orig_val, old_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1020 %! assert (sighup_dumps_octave_core (), ! orig_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1021 %! sighup_dumps_octave_core (orig_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1022 %! assert (sighup_dumps_octave_core (), orig_val);
14429 eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14338 diff changeset	1023
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14338 diff changeset	1024 %!error (sighup_dumps_octave_core (1, 2))
12827 8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	1025 */
8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	1026
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	1027 DEFUN (sigterm_dumps_octave_core, args, nargout,
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	1028 "-- texinfo --\n\
10840 89f4d7e294cc Grammarcheck .cc files Rik <octave@nomad.inbox5.com> parents: 10411 diff changeset	1029 @deftypefn {Built-in Function} {@var{val} =} sigterm_dumps_octave_core ()\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	1030 @deftypefnx {Built-in Function} {@var{old_val} =} sigterm_dumps_octave_core (@var{new_val})\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12832 diff changeset	1031 @deftypefnx {Built-in Function} {} sigterm_dumps_octave_core (@var{new_val}, \"local\")\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	1032 Query or set the internal variable that controls whether Octave tries\n\
6653 673686daec87 [project @ 2007-05-22 15:36:09 by jwe] jwe parents: 6098 diff changeset	1033 to save all current variables to the file \"octave-core\" if it receives\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	1034 a terminate signal.\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12832 diff changeset	1035 \n\
79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12832 diff changeset	1036 When called from inside a function with the \"local\" option, the variable is\n\
79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12832 diff changeset	1037 changed locally for the function and any subroutines it calls. The original\n\
79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12832 diff changeset	1038 variable value is restored when exiting the function.\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	1039 @end deftypefn")
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	1040 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	1041 return SET_INTERNAL_VARIABLE (sigterm_dumps_octave_core);
4185 8f6d418d31c3 [project @ 2002-11-15 23:22:03 by jwe] jwe parents: 4182 diff changeset	1042 }
12827 8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	1043
8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	1044 /*
8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	1045 %!test
12832 03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1046 %! orig_val = sigterm_dumps_octave_core ();
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1047 %! old_val = sigterm_dumps_octave_core (! orig_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1048 %! assert (orig_val, old_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1049 %! assert (sigterm_dumps_octave_core (), ! orig_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1050 %! sigterm_dumps_octave_core (orig_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1051 %! assert (sigterm_dumps_octave_core (), orig_val);
14429 eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14338 diff changeset	1052
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14338 diff changeset	1053 %!error (sigterm_dumps_octave_core (1, 2))
12827 8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	1054 */

Mercurial > hg > octave-nkf

annotate src/sighandlers.cc @ 14861:f7afecdd87ef