octave: libinterp/corefcn/sighandlers.cc annotate

annotate libinterp/corefcn/sighandlers.cc @ 21938:da9b960b1b2d

use gnulib strsignal module * bootstrap.conf: Use gnulib strsignal module. * liboctave/wrappers/signal-wrappers.c, liboctave/wrappers/signal-wrappers.h: New files. * liboctave/wrappers/module.mk: Update. * sighandlers.cc, octave.cc: Don't include siglist.h. * octave.cc (octave_initialize_interpreter): Don't call init_signals. * sighandlers.cc: Include signal-wrappers.h. Use octave_strsignal_wrapper function. * siglist.c, siglist.h: Delete. * libinterp/corefcn/module.mk: Update.

author	John W. Eaton <jwe@octave.org>
date	Fri, 17 Jun 2016 06:42:28 -0400
parents	45c5f4426289
children	1d23b75cbcd1

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
19697 4197fc428c7d maint: Update copyright notices for 2015. John W. Eaton <jwe@octave.org> parents: 18461 diff changeset	3 Copyright (C) 1993-2015 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
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	23 #if defined (HAVE_CONFIG_H)
21301 40de9f8f23a6 Use '#include "config.h"' rather than <config.h>. Rik <rik@octave.org> parents: 21200 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
3281 aaaa20d31a5f [project @ 1999-10-13 07:02:46 by jwe] jwe parents: 3252 diff changeset	32 #include "cmd-edit.h"
5453 89f5979e8552 [project @ 2005-09-17 00:50:58 by jwe] jwe parents: 5451 diff changeset	33 #include "oct-syscalls.h"
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4092 diff changeset	34 #include "quit.h"
13983 7dd7cccf0757 clean up memory allocated for singletons before exit John W. Eaton <jwe@octave.org> parents: 13951 diff changeset	35 #include "singleton-cleanup.h"
21938 da9b960b1b2d use gnulib strsignal module John W. Eaton <jwe@octave.org> parents: 21936 diff changeset	36 #include "signal-wrappers.h"
3281 aaaa20d31a5f [project @ 1999-10-13 07:02:46 by jwe] jwe parents: 3252 diff changeset	37
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 7481 diff changeset	38 #include "debug.h"
4185 8f6d418d31c3 [project @ 2002-11-15 23:22:03 by jwe] jwe parents: 4182 diff changeset	39 #include "defun.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1350 diff changeset	40 #include "error.h"
10194 d4f813c3f5ed more debug mode fixes John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	41 #include "input.h"
1373 cea4101a2f18 [project @ 1995-09-07 07:19:58 by jwe] jwe parents: 1358 diff changeset	42 #include "load-save.h"
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	43 #include "oct-map.h"
2091 60f5e1c20815 [project @ 1996-04-28 08:32:39 by jwe] jwe parents: 2016 diff changeset	44 #include "pager.h"
4185 8f6d418d31c3 [project @ 2002-11-15 23:22:03 by jwe] jwe parents: 4182 diff changeset	45 #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	46 #include "pt-eval.h"
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	47 #include "sighandlers.h"
4787 02c748eb2ddc [project @ 2004-02-18 21:20:26 by jwe] jwe parents: 4675 diff changeset	48 #include "sysdep.h"
2091 60f5e1c20815 [project @ 1996-04-28 08:32:39 by jwe] jwe parents: 2016 diff changeset	49 #include "toplev.h"
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	50 #include "utils.h"
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	51 #include "variables.h"
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	52
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	53 // 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	54 // SIGPIPES. We assume that the writer will eventually give up.
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	55 int pipe_handler_error_count = 0;
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	56
3018 5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe] jwe parents: 2931 diff changeset	57 // TRUE means we can be interrupted.
5708b8bb4f06 [project @ 1997-06-03 21:48:05 by jwe] jwe parents: 2931 diff changeset	58 bool can_interrupt = false;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	59
4185 8f6d418d31c3 [project @ 2002-11-15 23:22:03 by jwe] jwe parents: 4182 diff changeset	60 // TRUE means we should try to enter the debugger on SIGINT.
15595 6e780fb15c14 Make Vdebug_on_interrupt not be static Max Brister <max@2bass.com> parents: 15195 diff changeset	61 bool Vdebug_on_interrupt = false;
4185 8f6d418d31c3 [project @ 2002-11-15 23:22:03 by jwe] jwe parents: 4182 diff changeset	62
14889 577df411e0c7 rename octave-core file to octave-workspace John W. Eaton <jwe@octave.org> parents: 14861 diff changeset	63 // Allow users to avoid writing octave-workspace for SIGHUP (sent by
4449 e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	64 // 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	65 // 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	66 static bool Vsighup_dumps_octave_core = true;
4449 e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	67
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	68 // 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	69 static bool Vsigterm_dumps_octave_core = true;
4449 e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	70
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	71 // 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	72 static bool octave_signals_caught[NSIG];
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	73
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	74 // Forward declaration.
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	75 static void user_abort (const char *sig_name, int sig_number);
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	76
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	77 #if defined (__WIN32__) && ! defined (__CYGWIN__)
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	78
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	79 #define WIN32_LEAN_AND_MEAN
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	80 #include <windows.h>
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	81
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	82 class
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	83 w32_interrupt_manager
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	84 {
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	85 public:
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	86 ~w32_interrupt_manager (void)
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	87 {
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	88 if (thread)
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	89 CloseHandle (thread);
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	90 }
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	91
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	92 static bool init (void) { return instance_ok (); }
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	93
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	94 static void octave_jump_to_enclosing_context (void)
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	95 {
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	96 if (instance_ok ())
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	97 instance->do_octave_jump_to_enclosing_context ();
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	98 }
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	99
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	100 static void user_abort (const char *sig_name, int sig_number)
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	101 {
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	102 if (instance_ok ())
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	103 instance->do_user_abort (sig_name, sig_number);
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	104 }
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	105
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	106 static void raise_sigint (void)
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	107 {
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	108 if (instance_ok ())
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	109 instance->do_raise_sigint ();
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	110 }
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	111
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	112 private:
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	113 w32_interrupt_manager (void)
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	114 : thread (0), thread_id (0)
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	115 {
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	116 thread_id = GetCurrentThreadId ();
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	117
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	118 DuplicateHandle (GetCurrentProcess (), GetCurrentThread (),
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	119 GetCurrentProcess (), &thread, 0, FALSE,
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	120 DUPLICATE_SAME_ACCESS);
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	121 }
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	122
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	123 static void octave_jump_to_enclosing_context_sync (void)
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	124 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	125 #if defined (_MSC_VER)
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	126 _fpreset ();
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	127 #endif
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	128 ::octave_jump_to_enclosing_context ();
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	129 }
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	130
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	131 void do_octave_jump_to_enclosing_context (void)
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	132 {
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	133 bool is_interrupt_thread = (GetCurrentThreadId () == thread_id);
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	134
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	135 if (is_interrupt_thread)
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	136 octave_jump_to_enclosing_context_sync ();
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	137 else
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	138 {
18461 9cfba3616503 allow sighandlers.cc to compile on 64-bit Windows systems John W. Eaton <jwe@octave.org> parents: 17958 diff changeset	139 // 64-bit Windows does not appear to have threadContext.Eip.
9cfba3616503 allow sighandlers.cc to compile on 64-bit Windows systems John W. Eaton <jwe@octave.org> parents: 17958 diff changeset	140 // Something else must be done here to allow interrupts to
9cfba3616503 allow sighandlers.cc to compile on 64-bit Windows systems John W. Eaton <jwe@octave.org> parents: 17958 diff changeset	141 // properly work across threads.
9cfba3616503 allow sighandlers.cc to compile on 64-bit Windows systems John W. Eaton <jwe@octave.org> parents: 17958 diff changeset	142
9cfba3616503 allow sighandlers.cc to compile on 64-bit Windows systems John W. Eaton <jwe@octave.org> parents: 17958 diff changeset	143 #if ! (defined (__MINGW64__) \|\| defined (_WIN64))
9cfba3616503 allow sighandlers.cc to compile on 64-bit Windows systems John W. Eaton <jwe@octave.org> parents: 17958 diff changeset	144
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	145 CONTEXT threadContext;
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	146
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	147 SuspendThread (thread);
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	148 threadContext.ContextFlags = CONTEXT_CONTROL;
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	149 GetThreadContext (thread, &threadContext);
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	150 threadContext.Eip = (DWORD) octave_jump_to_enclosing_context_sync;
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	151 SetThreadContext (thread, &threadContext);
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	152 ResumeThread (thread);
18461 9cfba3616503 allow sighandlers.cc to compile on 64-bit Windows systems John W. Eaton <jwe@octave.org> parents: 17958 diff changeset	153 #endif
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	154 }
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	155 }
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	156
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	157 void do_user_abort (const char *sig_name, int sig_number)
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	158 {
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	159 bool is_interrupt_thread = (GetCurrentThreadId () == thread_id);
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	160
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	161 if (is_interrupt_thread)
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	162 ::user_abort (sig_name, sig_number);
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	163 else
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	164 {
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	165 SuspendThread (thread);
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	166 ::user_abort (sig_name, sig_number);
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	167 ResumeThread (thread);
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	168 }
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	169 }
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	170
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	171 void do_raise_sigint (void)
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	172 {
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	173 bool is_interrupt_thread = (GetCurrentThreadId () == thread_id);
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	174
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	175 if (is_interrupt_thread)
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	176 ::raise (SIGINT);
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	177 else
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	178 {
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	179 SuspendThread (thread);
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	180 ::raise (SIGINT);
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	181 ResumeThread (thread);
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	182 }
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	183 }
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	184
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	185 static bool instance_ok (void)
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	186 {
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	187 bool retval = true;
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	188
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	189 if (! instance)
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	190 {
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	191 instance = new w32_interrupt_manager ();
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	192
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	193 if (instance)
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	194 singleton_cleanup_list::add (cleanup_instance);
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	195 }
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	196
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	197 if (! instance)
20956 850e3d2533d4 maint: Eliminate more useless statements after error(). Rik <rik@octave.org> parents: 20945 diff changeset	198 error ("unable to create w32_interrupt_manager");
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	199
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	200 return retval;
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	201 }
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	202
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	203 static void cleanup_instance (void) { delete instance; instance = 0; }
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	204
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	205 private:
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	206 // A handle to the thread that is running the octave interpreter.
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	207 HANDLE thread;
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	208
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	209 // The ID of the thread that is running the octave interpreter.
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	210 DWORD thread_id;
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	211
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	212 static w32_interrupt_manager* instance;
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	213 };
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	214
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	215 w32_interrupt_manager* w32_interrupt_manager::instance = 0;
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	216
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	217 void w32_raise_sigint (void)
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	218 {
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	219 w32_interrupt_manager::raise_sigint ();
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	220 }
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	221
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	222 #endif
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	223
11525 ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	224 // Signal handler return type.
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	225 #if ! defined (BADSIG)
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21192 diff changeset	226 # define BADSIG (void (*)(int))-1
11525 ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	227 #endif
ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	228
ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	229 #define BLOCK_SIGNAL(sig, nvar, ovar) \
ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	230 do \
ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	231 { \
21918 e4a53d9b28bd remove code specific to obsolete version of GCC John W. Eaton <jwe@octave.org> parents: 21852 diff changeset	232 gnulib::sigemptyset (&nvar); \
e4a53d9b28bd remove code specific to obsolete version of GCC John W. Eaton <jwe@octave.org> parents: 21852 diff changeset	233 gnulib::sigaddset (&nvar, sig); \
e4a53d9b28bd remove code specific to obsolete version of GCC John W. Eaton <jwe@octave.org> parents: 21852 diff changeset	234 gnulib::sigemptyset (&ovar); \
e4a53d9b28bd remove code specific to obsolete version of GCC John W. Eaton <jwe@octave.org> parents: 21852 diff changeset	235 gnulib::sigprocmask (SIG_BLOCK, &nvar, &ovar); \
11525 ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	236 } \
ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	237 while (0)
ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	238
20791 f7084eae3318 maint: Use Octave coding conventions for #if statements. Rik <rik@octave.org> parents: 20428 diff changeset	239 #if ! defined (SIGCHLD) && defined (SIGCLD)
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21192 diff changeset	240 # define SIGCHLD SIGCLD
11525 ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	241 #endif
ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	242
ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	243 #define BLOCK_CHILD(nvar, ovar) BLOCK_SIGNAL (SIGCHLD, nvar, ovar)
21918 e4a53d9b28bd remove code specific to obsolete version of GCC John W. Eaton <jwe@octave.org> parents: 21852 diff changeset	244 #define UNBLOCK_CHILD(ovar) gnulib::sigprocmask (SIG_SETMASK, &ovar, 0)
11525 ab231f944252 avoid exposing gnulib:: in header files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	245
10142 829e69ec3110 make OCTAVE_QUIT a function Jaroslav Hajek <highegg@gmail.com> parents: 8920 diff changeset	246 // 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	247 // we have caught.
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	248
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	249 void
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	250 octave_signal_handler (void)
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	251 {
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	252 // 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	253 // linearly through the list.
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	254
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	255 for (int i = 0; i < NSIG; i++)
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	256 {
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	257 if (octave_signals_caught[i])
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	258 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	259 octave_signals_caught[i] = false;
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	260
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	261 switch (i)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	262 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	263 #if defined (SIGCHLD)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	264 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	265 {
f359cfc6e24d sighandlers.cc: wait for children in octave_signal_handler, not sigchld_handler John W. Eaton <jwe@octave.org> parents: 11525 diff changeset	266 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	267 = 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	268
f359cfc6e24d sighandlers.cc: wait for children in octave_signal_handler, not sigchld_handler John W. Eaton <jwe@octave.org> parents: 11525 diff changeset	269 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	270
f359cfc6e24d sighandlers.cc: wait for children in octave_signal_handler, not sigchld_handler John W. Eaton <jwe@octave.org> parents: 11525 diff changeset	271 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	272
f359cfc6e24d sighandlers.cc: wait for children in octave_signal_handler, not sigchld_handler John W. Eaton <jwe@octave.org> parents: 11525 diff changeset	273 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	274
f359cfc6e24d sighandlers.cc: wait for children in octave_signal_handler, not sigchld_handler John W. Eaton <jwe@octave.org> parents: 11525 diff changeset	275 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	276
f359cfc6e24d sighandlers.cc: wait for children in octave_signal_handler, not sigchld_handler John W. Eaton <jwe@octave.org> parents: 11525 diff changeset	277 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	278
f359cfc6e24d sighandlers.cc: wait for children in octave_signal_handler, not sigchld_handler John W. Eaton <jwe@octave.org> parents: 11525 diff changeset	279 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	280 }
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	281 break;
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	282 #endif
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	283
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	284 case SIGFPE:
14893 55d0f8d70fe9 shorten signal warnings John W. Eaton <jwe@octave.org> parents: 14889 diff changeset	285 std::cerr << "warning: floating point exception" << std::endl;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	286 break;
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	287
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	288 #if defined (SIGPIPE)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	289 case SIGPIPE:
14893 55d0f8d70fe9 shorten signal warnings John W. Eaton <jwe@octave.org> parents: 14889 diff changeset	290 std::cerr << "warning: broken pipe" << std::endl;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	291 break;
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	292 #endif
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	293 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	294 }
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	295 }
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	296 }
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	297
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	298 static void
4787 02c748eb2ddc [project @ 2004-02-18 21:20:26 by jwe] jwe parents: 4675 diff changeset	299 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	300 bool save_vars = true)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	301 {
2536 1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	302 static bool been_there_done_that = false;
1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	303
1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	304 if (been_there_done_that)
1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	305 {
2554 f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	306 #if defined (SIGABRT)
2536 1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	307 octave_set_signal_handler (SIGABRT, SIG_DFL);
1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	308 #endif
1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	309
3644 9add655e8b8c [project @ 2000-03-24 11:58:50 by jwe] jwe parents: 3566 diff changeset	310 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	311
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	312 MINGW_SIGNAL_CLEANUP ();
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	313
2536 1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	314 abort ();
1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	315 }
1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	316 else
1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	317 {
1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	318 been_there_done_that = true;
1373 cea4101a2f18 [project @ 1995-09-07 07:19:58 by jwe] jwe parents: 1358 diff changeset	319
3644 9add655e8b8c [project @ 2000-03-24 11:58:50 by jwe] jwe parents: 3566 diff changeset	320 std::cerr << "panic: " << sig_name << " -- stopping myself...\n";
2536 1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	321
4787 02c748eb2ddc [project @ 2004-02-18 21:20:26 by jwe] jwe parents: 4675 diff changeset	322 if (save_vars)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	323 dump_octave_core ();
2536 1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	324
3162 7c96e85c76db [project @ 1998-04-08 18:19:35 by jwe] jwe parents: 3018 diff changeset	325 if (sig_number < 0)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	326 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	327 MINGW_SIGNAL_CLEANUP ();
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	328
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	329 exit (1);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	330 }
3162 7c96e85c76db [project @ 1998-04-08 18:19:35 by jwe] jwe parents: 3018 diff changeset	331 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	332 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	333 octave_set_signal_handler (sig_number, SIG_DFL);
3162 7c96e85c76db [project @ 1998-04-08 18:19:35 by jwe] jwe parents: 3018 diff changeset	334
21918 e4a53d9b28bd remove code specific to obsolete version of GCC John W. Eaton <jwe@octave.org> parents: 21852 diff changeset	335 gnulib::raise (sig_number);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	336 }
2536 1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	337 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	338 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	339
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	340 sig_handler *
5770 6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5453 diff changeset	341 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	342 bool restart_syscalls)
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	343 {
5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	344 struct sigaction act, oact;
5144 25b090e1be9f [project @ 2005-02-15 12:06:05 by jwe] jwe parents: 5142 diff changeset	345
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	346 act.sa_handler = handler;
5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	347 act.sa_flags = 0;
5144 25b090e1be9f [project @ 2005-02-15 12:06:05 by jwe] jwe parents: 5142 diff changeset	348
10344 65974373505a Do not use SIGALRM unconditinally. Michael Goffioul <michael.goffioul@gmail.com> parents: 10315 diff changeset	349 #if defined (SIGALRM)
5144 25b090e1be9f [project @ 2005-02-15 12:06:05 by jwe] jwe parents: 5142 diff changeset	350 if (sig == SIGALRM)
25b090e1be9f [project @ 2005-02-15 12:06:05 by jwe] jwe parents: 5142 diff changeset	351 {
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21192 diff changeset	352 # if defined (SA_INTERRUPT)
5144 25b090e1be9f [project @ 2005-02-15 12:06:05 by jwe] jwe parents: 5142 diff changeset	353 act.sa_flags \|= SA_INTERRUPT;
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21192 diff changeset	354 # endif
5144 25b090e1be9f [project @ 2005-02-15 12:06:05 by jwe] jwe parents: 5142 diff changeset	355 }
10344 65974373505a Do not use SIGALRM unconditinally. Michael Goffioul <michael.goffioul@gmail.com> parents: 10315 diff changeset	356 #endif
5144 25b090e1be9f [project @ 2005-02-15 12:06:05 by jwe] jwe parents: 5142 diff changeset	357 #if defined (SA_RESTART)
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21192 diff changeset	358 # if defined (SIGALRM)
10344 65974373505a Do not use SIGALRM unconditinally. Michael Goffioul <michael.goffioul@gmail.com> parents: 10315 diff changeset	359 else
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21192 diff changeset	360 # endif
17861 870f3e12e163 maint: Use phrase "FIXME:" for problem areas in code. Rik <rik@octave.org> parents: 17787 diff changeset	361 // 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	362 if (restart_syscalls)
5770 6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5453 diff changeset	363 act.sa_flags \|= SA_RESTART;
5144 25b090e1be9f [project @ 2005-02-15 12:06:05 by jwe] jwe parents: 5142 diff changeset	364 #endif
25b090e1be9f [project @ 2005-02-15 12:06:05 by jwe] jwe parents: 5142 diff changeset	365
21918 e4a53d9b28bd remove code specific to obsolete version of GCC John W. Eaton <jwe@octave.org> parents: 21852 diff changeset	366 gnulib::sigemptyset (&act.sa_mask);
e4a53d9b28bd remove code specific to obsolete version of GCC John W. Eaton <jwe@octave.org> parents: 21852 diff changeset	367 gnulib::sigemptyset (&oact.sa_mask);
5144 25b090e1be9f [project @ 2005-02-15 12:06:05 by jwe] jwe parents: 5142 diff changeset	368
21918 e4a53d9b28bd remove code specific to obsolete version of GCC John W. Eaton <jwe@octave.org> parents: 21852 diff changeset	369 gnulib::sigaction (sig, &act, &oact);
5144 25b090e1be9f [project @ 2005-02-15 12:06:05 by jwe] jwe parents: 5142 diff changeset	370
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	371 return oact.sa_handler;
5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	372 }
5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	373
10246 f751dae7aab8 use gnulib signal modules John W. Eaton <jwe@octave.org> parents: 10194 diff changeset	374 static void
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	375 generic_sig_handler (int sig)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	376 {
21938 da9b960b1b2d use gnulib strsignal module John W. Eaton <jwe@octave.org> parents: 21936 diff changeset	377 my_friendly_exit (octave_strsignal_wrapper (sig), sig);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	378 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	379
2091 60f5e1c20815 [project @ 1996-04-28 08:32:39 by jwe] jwe parents: 2016 diff changeset	380 // Handle SIGCHLD.
1230 92609e161b29 [project @ 1995-04-10 01:08:57 by jwe] jwe parents: 1009 diff changeset	381
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	382 #if defined (SIGCHLD)
10246 f751dae7aab8 use gnulib signal modules John W. Eaton <jwe@octave.org> parents: 10194 diff changeset	383 static void
2092 a938192ff632 [project @ 1996-04-28 08:36:22 by jwe] jwe parents: 2091 diff changeset	384 sigchld_handler (int /* sig */)
1230 92609e161b29 [project @ 1995-04-10 01:08:57 by jwe] jwe parents: 1009 diff changeset	385 {
11555 f359cfc6e24d sighandlers.cc: wait for children in octave_signal_handler, not sigchld_handler John W. Eaton <jwe@octave.org> parents: 11525 diff changeset	386 octave_signal_caught = 1;
2626 b35a5cd8107f [project @ 1997-01-27 01:41:30 by jwe] jwe parents: 2600 diff changeset	387
11555 f359cfc6e24d sighandlers.cc: wait for children in octave_signal_handler, not sigchld_handler John W. Eaton <jwe@octave.org> parents: 11525 diff changeset	388 octave_signals_caught[SIGCHLD] = true;
1230 92609e161b29 [project @ 1995-04-10 01:08:57 by jwe] jwe parents: 1009 diff changeset	389 }
20945 9d9270e2f98f eliminate comments after preprocessor conditionals John W. Eaton <jwe@octave.org> parents: 20939 diff changeset	390 #endif
1230 92609e161b29 [project @ 1995-04-10 01:08:57 by jwe] jwe parents: 1009 diff changeset	391
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21192 diff changeset	392 #if defined (SIGFPE) && defined (__alpha__)
10246 f751dae7aab8 use gnulib signal modules John W. Eaton <jwe@octave.org> parents: 10194 diff changeset	393 static void
1488 89c587478067 [project @ 1995-09-26 22:49:48 by jwe] jwe parents: 1446 diff changeset	394 sigfpe_handler (int /* sig */)
1373 cea4101a2f18 [project @ 1995-09-07 07:19:58 by jwe] jwe parents: 1358 diff changeset	395 {
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	396 if (can_interrupt && octave_interrupt_state >= 0)
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	397 {
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	398 octave_signal_caught = 1;
1373 cea4101a2f18 [project @ 1995-09-07 07:19:58 by jwe] jwe parents: 1358 diff changeset	399
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	400 octave_signals_caught[SIGFPE] = true;
4182 4d1d7c51205c [project @ 2002-11-15 20:33:47 by jwe] jwe parents: 4181 diff changeset	401
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	402 octave_interrupt_state++;
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	403 }
1373 cea4101a2f18 [project @ 1995-09-07 07:19:58 by jwe] jwe parents: 1358 diff changeset	404 }
20945 9d9270e2f98f eliminate comments after preprocessor conditionals John W. Eaton <jwe@octave.org> parents: 20939 diff changeset	405 #endif
1373 cea4101a2f18 [project @ 1995-09-07 07:19:58 by jwe] jwe parents: 1358 diff changeset	406
4449 e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	407 #if defined (SIGHUP) \|\| defined (SIGTERM)
10246 f751dae7aab8 use gnulib signal modules John W. Eaton <jwe@octave.org> parents: 10194 diff changeset	408 static void
4449 e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	409 sig_hup_or_term_handler (int sig)
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	410 {
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	411 switch (sig)
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	412 {
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	413 #if defined (SIGHUP)
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	414 case SIGHUP:
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	415 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	416 if (Vsighup_dumps_octave_core)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	417 dump_octave_core ();
4449 e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	418 }
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	419 break;
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	420 #endif
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	421
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	422 #if defined (SIGTERM)
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	423 case SIGTERM:
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	424 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	425 if (Vsigterm_dumps_octave_core)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	426 dump_octave_core ();
4449 e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	427 }
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	428 break;
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	429 #endif
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	430
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	431 default:
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	432 break;
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	433 }
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	434
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	435 clean_up_and_exit (0);
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	436 }
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	437 #endif
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	438
3343 466d7a1cac01 [project @ 1999-11-05 19:34:29 by jwe] jwe parents: 3281 diff changeset	439 #if 0
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21192 diff changeset	440 # if defined (SIGWINCH)
10246 f751dae7aab8 use gnulib signal modules John W. Eaton <jwe@octave.org> parents: 10194 diff changeset	441 static void
3281 aaaa20d31a5f [project @ 1999-10-13 07:02:46 by jwe] jwe parents: 3252 diff changeset	442 sigwinch_handler (int /* sig */)
aaaa20d31a5f [project @ 1999-10-13 07:02:46 by jwe] jwe parents: 3252 diff changeset	443 {
21748 176536b15d68 use namespace for command_editor and command_history classes John W. Eaton <jwe@octave.org> parents: 21727 diff changeset	444 octave::command_editor::resize_terminal ();
3281 aaaa20d31a5f [project @ 1999-10-13 07:02:46 by jwe] jwe parents: 3252 diff changeset	445 }
aaaa20d31a5f [project @ 1999-10-13 07:02:46 by jwe] jwe parents: 3252 diff changeset	446 #endif
3343 466d7a1cac01 [project @ 1999-11-05 19:34:29 by jwe] jwe parents: 3281 diff changeset	447 #endif
3281 aaaa20d31a5f [project @ 1999-10-13 07:02:46 by jwe] jwe parents: 3252 diff changeset	448
635 5338832d2cf6 [project @ 1994-08-23 17:57:20 by jwe] jwe parents: 529 diff changeset	449 // 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	450 //
f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	451 // 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	452 // 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	453 // for SIGINT only.
635 5338832d2cf6 [project @ 1994-08-23 17:57:20 by jwe] jwe parents: 529 diff changeset	454
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 7481 diff changeset	455 static void
73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 7481 diff changeset	456 user_abort (const char *sig_name, int sig_number)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	457 {
4172 2e94b2abfe6d [project @ 2002-11-12 21:14:04 by jwe] jwe parents: 4153 diff changeset	458 if (! octave_initialized)
2e94b2abfe6d [project @ 2002-11-12 21:14:04 by jwe] jwe parents: 4153 diff changeset	459 exit (1);
2e94b2abfe6d [project @ 2002-11-12 21:14:04 by jwe] jwe parents: 4153 diff changeset	460
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	461 if (can_interrupt)
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	462 {
4185 8f6d418d31c3 [project @ 2002-11-15 23:22:03 by jwe] jwe parents: 4182 diff changeset	463 if (Vdebug_on_interrupt)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	464 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	465 if (! octave_debug_on_interrupt_state)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	466 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	467 tree_evaluator::debug_mode = true;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	468 octave_debug_on_interrupt_state = true;
4185 8f6d418d31c3 [project @ 2002-11-15 23:22:03 by jwe] jwe parents: 4182 diff changeset	469
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	470 return;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	471 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	472 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	473 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	474 // 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	475
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	476 tree_evaluator::debug_mode
10194 d4f813c3f5ed more debug mode fixes John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	477 = bp_table::have_breakpoints () \|\| Vdebugging;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	478 octave_debug_on_interrupt_state = false;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	479 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	480 }
4185 8f6d418d31c3 [project @ 2002-11-15 23:22:03 by jwe] jwe parents: 4182 diff changeset	481
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4092 diff changeset	482 if (octave_interrupt_immediately)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	483 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	484 if (octave_interrupt_state == 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	485 octave_interrupt_state = 1;
7481 78f3811155f7 use exceptions in liboctave error handler John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	486
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	487 #if defined (__WIN32__) && ! defined (__CYGWIN__)
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	488 w32_interrupt_manager::octave_jump_to_enclosing_context ();
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	489 #else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	490 octave_jump_to_enclosing_context ();
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	491 #endif
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	492 }
4429 c1f6200b5f0e [project @ 2003-06-17 04:36:08 by jwe] jwe parents: 4294 diff changeset	493 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	494 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	495 // 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	496 // 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	497 // arrived.
4793 a62215ab8a03 [project @ 2004-02-20 20:59:34 by jwe] jwe parents: 4791 diff changeset	498
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	499 if (octave_interrupt_state < 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	500 octave_interrupt_state = 0;
4793 a62215ab8a03 [project @ 2004-02-20 20:59:34 by jwe] jwe parents: 4791 diff changeset	501
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	502 octave_signal_caught = 1;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	503 octave_interrupt_state++;
4787 02c748eb2ddc [project @ 2004-02-18 21:20:26 by jwe] jwe parents: 4675 diff changeset	504
19849 1c9ed5b4c73d input.h: change meaning of interactive and forced_interactive global variables. Carnë Draug <carandraug@octave.org> parents: 19697 diff changeset	505 if (interactive && ! forced_interactive
1c9ed5b4c73d input.h: change meaning of interactive and forced_interactive global variables. Carnë Draug <carandraug@octave.org> parents: 19697 diff changeset	506 && octave_interrupt_state == 2)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	507 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	508
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	509 if (octave_interrupt_state >= 3)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	510 my_friendly_exit (sig_name, sig_number, true);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	511 }
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	512 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	513
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	514 }
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	515
10246 f751dae7aab8 use gnulib signal modules John W. Eaton <jwe@octave.org> parents: 10194 diff changeset	516 static void
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	517 sigint_handler (int sig)
ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	518 {
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	519 #if defined (__WIN32__) && ! defined (__CYGWIN__)
21938 da9b960b1b2d use gnulib strsignal module John W. Eaton <jwe@octave.org> parents: 21936 diff changeset	520 w32_interrupt_manager::user_abort (octave_strsignal_wrapper (sig), sig);
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	521 #else
21938 da9b960b1b2d use gnulib strsignal module John W. Eaton <jwe@octave.org> parents: 21936 diff changeset	522 user_abort (octave_strsignal_wrapper (sig), sig);
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	523 #endif
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	524 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	525
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	526 #if defined (SIGPIPE)
10246 f751dae7aab8 use gnulib signal modules John W. Eaton <jwe@octave.org> parents: 10194 diff changeset	527 static void
1488 89c587478067 [project @ 1995-09-26 22:49:48 by jwe] jwe parents: 1446 diff changeset	528 sigpipe_handler (int /* sig */)
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	529 {
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	530 octave_signal_caught = 1;
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	531
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	532 octave_signals_caught[SIGPIPE] = true;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	533
1358 dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	534 // Don't loop forever on account of this.
dc9c01f66a19 [project @ 1995-09-05 21:10:01 by jwe] jwe parents: 1352 diff changeset	535
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	536 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	537 octave_interrupt_state++;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	538 }
20945 9d9270e2f98f eliminate comments after preprocessor conditionals John W. Eaton <jwe@octave.org> parents: 20939 diff changeset	539 #endif
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	540
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	541 octave_interrupt_handler
2554 f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	542 octave_catch_interrupts (void)
f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	543 {
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	544 octave_interrupt_handler retval;
2554 f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	545
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	546 #if defined (__WIN32__) && ! defined (__CYGWIN__)
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	547 w32_interrupt_manager::init ();
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	548 #endif
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	549
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	550 #if defined (SIGINT)
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	551 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	552 #endif
f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	553
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	554 #if defined (SIGBREAK)
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	555 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	556 #endif
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	557
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	558 return retval;
2554 f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	559 }
f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	560
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	561 octave_interrupt_handler
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	562 octave_ignore_interrupts (void)
2554 f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	563 {
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	564 octave_interrupt_handler retval;
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	565
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	566 #if defined (__WIN32__) && ! defined (__CYGWIN__)
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	567 w32_interrupt_manager::init ();
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	568 #endif
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	569
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	570 #if defined (SIGINT)
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	571 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	572 #endif
f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	573
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	574 #if defined (SIGBREAK)
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	575 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	576 #endif
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	577
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	578 return retval;
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	579 }
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	580
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	581 octave_interrupt_handler
5770 6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5453 diff changeset	582 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	583 bool restart_syscalls)
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	584 {
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	585 octave_interrupt_handler retval;
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	586
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	587 #if defined (__WIN32__) && ! defined (__CYGWIN__)
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	588 w32_interrupt_manager::init ();
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	589 #endif
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	590
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	591 #if defined (SIGINT)
5770 6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5453 diff changeset	592 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	593 restart_syscalls);
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	594 #endif
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	595
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	596 #if defined (SIGBREAK)
5770 6a9244f89a2a [project @ 2006-04-18 17:44:33 by jwe] jwe parents: 5453 diff changeset	597 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	598 restart_syscalls);
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	599 #endif
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	600
18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	601 return retval;
1651 e846e361a265 [project @ 1995-12-20 06:59:12 by jwe] jwe parents: 1618 diff changeset	602 }
e846e361a265 [project @ 1995-12-20 06:59:12 by jwe] jwe parents: 1618 diff changeset	603
635 5338832d2cf6 [project @ 1994-08-23 17:57:20 by jwe] jwe parents: 529 diff changeset	604 // 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	605
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	606 void
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	607 install_signal_handlers (void)
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	608 {
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	609 for (int i = 0; i < NSIG; i++)
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	610 octave_signals_caught[i] = false;
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	611
2554 f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	612 octave_catch_interrupts ();
f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	613
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	614 #if defined (SIGABRT)
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	615 octave_set_signal_handler (SIGABRT, generic_sig_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
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	618 #if defined (SIGALRM)
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	619 octave_set_signal_handler (SIGALRM, 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
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	622 #if defined (SIGBUS)
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	623 octave_set_signal_handler (SIGBUS, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	624 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	625
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	626 #if defined (SIGCHLD)
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	627 octave_set_signal_handler (SIGCHLD, sigchld_handler);
1230 92609e161b29 [project @ 1995-04-10 01:08:57 by jwe] jwe parents: 1009 diff changeset	628 #endif
92609e161b29 [project @ 1995-04-10 01:08:57 by jwe] jwe parents: 1009 diff changeset	629
3174 390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	630 // SIGCLD
390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	631 // SIGCONT
390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	632
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	633 #if defined (SIGEMT)
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	634 octave_set_signal_handler (SIGEMT, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	635 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	636
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	637 #if defined (SIGFPE)
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21192 diff changeset	638 # if defined (__alpha__)
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	639 octave_set_signal_handler (SIGFPE, sigfpe_handler);
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21192 diff changeset	640 # else
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	641 octave_set_signal_handler (SIGFPE, generic_sig_handler);
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21192 diff changeset	642 # endif
1373 cea4101a2f18 [project @ 1995-09-07 07:19:58 by jwe] jwe parents: 1358 diff changeset	643 #endif
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	644
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	645 #if defined (SIGHUP)
4449 e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	646 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	647 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	648
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	649 #if defined (SIGILL)
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	650 octave_set_signal_handler (SIGILL, 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
3174 390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	653 // SIGINFO
390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	654 // SIGINT
390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	655
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	656 #if defined (SIGIOT)
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	657 octave_set_signal_handler (SIGIOT, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	658 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	659
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	660 #if defined (SIGLOST)
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	661 octave_set_signal_handler (SIGLOST, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	662 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	663
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	664 #if defined (SIGPIPE)
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	665 octave_set_signal_handler (SIGPIPE, sigpipe_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	666 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	667
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	668 #if defined (SIGPOLL)
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	669 octave_set_signal_handler (SIGPOLL, SIG_IGN);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	670 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	671
5866 f9ac7ebf0e19 [project @ 2006-06-28 16:05:22 by jwe] jwe parents: 5844 diff changeset	672 // SIGPROF
3174 390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	673 // SIGPWR
390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	674
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	675 #if defined (SIGQUIT)
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	676 octave_set_signal_handler (SIGQUIT, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	677 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	678
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	679 #if defined (SIGSEGV)
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	680 octave_set_signal_handler (SIGSEGV, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	681 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	682
3174 390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	683 // SIGSTOP
390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	684
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	685 #if defined (SIGSYS)
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	686 octave_set_signal_handler (SIGSYS, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	687 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	688
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	689 #if defined (SIGTERM)
4449 e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	690 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	691 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	692
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	693 #if defined (SIGTRAP)
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	694 octave_set_signal_handler (SIGTRAP, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	695 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	696
3174 390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	697 // SIGTSTP
390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	698 // SIGTTIN
390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	699 // SIGTTOU
390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	700 // SIGURG
390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	701
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	702 #if defined (SIGUSR1)
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	703 octave_set_signal_handler (SIGUSR1, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	704 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	705
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	706 #if defined (SIGUSR2)
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	707 octave_set_signal_handler (SIGUSR2, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	708 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	709
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	710 #if defined (SIGVTALRM)
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	711 octave_set_signal_handler (SIGVTALRM, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	712 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	713
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	714 #if defined (SIGIO)
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	715 octave_set_signal_handler (SIGIO, SIG_IGN);
895 05654cdcfc95 [project @ 1994-11-09 15:30:06 by jwe] jwe parents: 886 diff changeset	716 #endif
05654cdcfc95 [project @ 1994-11-09 15:30:06 by jwe] jwe parents: 886 diff changeset	717
3343 466d7a1cac01 [project @ 1999-11-05 19:34:29 by jwe] jwe parents: 3281 diff changeset	718 #if 0
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	719 # if defined (SIGWINCH)
3281 aaaa20d31a5f [project @ 1999-10-13 07:02:46 by jwe] jwe parents: 3252 diff changeset	720 octave_set_signal_handler (SIGWINCH, sigwinch_handler);
aaaa20d31a5f [project @ 1999-10-13 07:02:46 by jwe] jwe parents: 3252 diff changeset	721 #endif
3343 466d7a1cac01 [project @ 1999-11-05 19:34:29 by jwe] jwe parents: 3281 diff changeset	722 #endif
3174 390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	723
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	724 #if defined (SIGXCPU)
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	725 octave_set_signal_handler (SIGXCPU, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	726 #endif
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	727
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	728 #if defined (SIGXFSZ)
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	729 octave_set_signal_handler (SIGXFSZ, generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	730 #endif
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	731
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	732 }
78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	733
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	734 static octave_scalar_map
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	735 make_sig_struct (void)
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	736 {
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	737 octave_scalar_map m;
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	738
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	739 #if defined (SIGABRT)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	740 m.assign ("ABRT", SIGABRT);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	741 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	742
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	743 #if defined (SIGALRM)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	744 m.assign ("ALRM", SIGALRM);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	745 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	746
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	747 #if defined (SIGBUS)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	748 m.assign ("BUS", SIGBUS);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	749 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	750
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	751 #if defined (SIGCHLD)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	752 m.assign ("CHLD", SIGCHLD);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	753 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	754
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	755 #if defined (SIGCLD)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	756 m.assign ("CLD", SIGCLD);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	757 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	758
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	759 #if defined (SIGCONT)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	760 m.assign ("CONT", SIGCONT);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	761 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	762
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	763 #if defined (SIGEMT)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	764 m.assign ("EMT", SIGEMT);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	765 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	766
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	767 #if defined (SIGFPE)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	768 m.assign ("FPE", SIGFPE);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	769 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	770
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	771 #if defined (SIGHUP)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	772 m.assign ("HUP", SIGHUP);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	773 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	774
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	775 #if defined (SIGILL)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	776 m.assign ("ILL", SIGILL);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	777 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	778
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	779 #if defined (SIGINFO)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	780 m.assign ("INFO", SIGINFO);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	781 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	782
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	783 #if defined (SIGINT)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	784 m.assign ("INT", SIGINT);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	785 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	786
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	787 #if defined (SIGIO)
16706 736dca8371ee include more signals in SIG function (bug #39089) Daniel J Sebald <daniel.sebald@ieee.org> parents: 16404 diff changeset	788 m.assign ("IO", SIGIO);
736dca8371ee include more signals in SIG function (bug #39089) Daniel J Sebald <daniel.sebald@ieee.org> parents: 16404 diff changeset	789 #endif
736dca8371ee include more signals in SIG function (bug #39089) Daniel J Sebald <daniel.sebald@ieee.org> parents: 16404 diff changeset	790
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	791 #if defined (SIGIOT)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	792 m.assign ("IOT", SIGIOT);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	793 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	794
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	795 #if defined (SIGKILL)
16706 736dca8371ee include more signals in SIG function (bug #39089) Daniel J Sebald <daniel.sebald@ieee.org> parents: 16404 diff changeset	796 m.assign ("KILL", SIGKILL);
736dca8371ee include more signals in SIG function (bug #39089) Daniel J Sebald <daniel.sebald@ieee.org> parents: 16404 diff changeset	797 #endif
736dca8371ee include more signals in SIG function (bug #39089) Daniel J Sebald <daniel.sebald@ieee.org> parents: 16404 diff changeset	798
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	799 #if defined (SIGLOST)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	800 m.assign ("LOST", SIGLOST);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	801 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	802
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	803 #if defined (SIGPIPE)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	804 m.assign ("PIPE", SIGPIPE);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	805 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	806
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	807 #if defined (SIGPOLL)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	808 m.assign ("POLL", SIGPOLL);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	809 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	810
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	811 #if defined (SIGPROF)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	812 m.assign ("PROF", SIGPROF);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	813 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	814
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	815 #if defined (SIGPWR)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	816 m.assign ("PWR", SIGPWR);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	817 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	818
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	819 #if defined (SIGQUIT)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	820 m.assign ("QUIT", SIGQUIT);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	821 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	822
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	823 #if defined (SIGSEGV)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	824 m.assign ("SEGV", SIGSEGV);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	825 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	826
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	827 #if defined (SIGSTKFLT)
16706 736dca8371ee include more signals in SIG function (bug #39089) Daniel J Sebald <daniel.sebald@ieee.org> parents: 16404 diff changeset	828 m.assign ("STKFLT", SIGSTKFLT);
736dca8371ee include more signals in SIG function (bug #39089) Daniel J Sebald <daniel.sebald@ieee.org> parents: 16404 diff changeset	829 #endif
736dca8371ee include more signals in SIG function (bug #39089) Daniel J Sebald <daniel.sebald@ieee.org> parents: 16404 diff changeset	830
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	831 #if defined (SIGSTOP)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	832 m.assign ("STOP", SIGSTOP);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	833 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	834
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	835 #if defined (SIGSYS)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	836 m.assign ("SYS", SIGSYS);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	837 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	838
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	839 #if defined (SIGTERM)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	840 m.assign ("TERM", SIGTERM);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	841 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	842
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	843 #if defined (SIGTRAP)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	844 m.assign ("TRAP", SIGTRAP);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	845 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	846
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	847 #if defined (SIGTSTP)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	848 m.assign ("TSTP", SIGTSTP);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	849 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	850
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	851 #if defined (SIGTTIN)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	852 m.assign ("TTIN", SIGTTIN);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	853 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	854
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	855 #if defined (SIGTTOU)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	856 m.assign ("TTOU", SIGTTOU);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	857 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	858
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	859 #if defined (SIGUNUSED)
16706 736dca8371ee include more signals in SIG function (bug #39089) Daniel J Sebald <daniel.sebald@ieee.org> parents: 16404 diff changeset	860 m.assign ("UNUSED", SIGUNUSED);
736dca8371ee include more signals in SIG function (bug #39089) Daniel J Sebald <daniel.sebald@ieee.org> parents: 16404 diff changeset	861 #endif
736dca8371ee include more signals in SIG function (bug #39089) Daniel J Sebald <daniel.sebald@ieee.org> parents: 16404 diff changeset	862
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	863 #if defined (SIGURG)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	864 m.assign ("URG", SIGURG);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	865 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	866
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	867 #if defined (SIGUSR1)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	868 m.assign ("USR1", SIGUSR1);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	869 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	870
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	871 #if defined (SIGUSR2)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	872 m.assign ("USR2", SIGUSR2);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	873 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	874
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	875 #if defined (SIGVTALRM)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	876 m.assign ("VTALRM", SIGVTALRM);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	877 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	878
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	879 #if defined (SIGWINCH)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	880 m.assign ("WINCH", SIGWINCH);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	881 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	882
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	883 #if defined (SIGXCPU)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	884 m.assign ("XCPU", SIGXCPU);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	885 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	886
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	887 #if defined (SIGXFSZ)
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4449 diff changeset	888 m.assign ("XFSZ", SIGXFSZ);
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	889 #endif
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	890
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	891 return m;
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	892 }
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	893
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	894 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	895
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	896 bool
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	897 octave_child_list::instance_ok (void)
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	898 {
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	899 bool retval = true;
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	900
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	901 if (! instance)
13983 7dd7cccf0757 clean up memory allocated for singletons before exit John W. Eaton <jwe@octave.org> parents: 13951 diff changeset	902 {
7dd7cccf0757 clean up memory allocated for singletons before exit John W. Eaton <jwe@octave.org> parents: 13951 diff changeset	903 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	904
7dd7cccf0757 clean up memory allocated for singletons before exit John W. Eaton <jwe@octave.org> parents: 13951 diff changeset	905 if (instance)
7dd7cccf0757 clean up memory allocated for singletons before exit John W. Eaton <jwe@octave.org> parents: 13951 diff changeset	906 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	907 }
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	908
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	909 if (! instance)
20956 850e3d2533d4 maint: Eliminate more useless statements after error(). Rik <rik@octave.org> parents: 20945 diff changeset	910 error ("unable to create child list object!");
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	911
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	912 return retval;
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	913 }
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	914
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	915 void
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	916 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	917 {
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	918 if (instance_ok ())
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	919 instance->insert (pid, f);
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
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	922 void
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	923 octave_child_list::reap (void)
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	924 {
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	925 if (instance_ok ())
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	926 instance->reap ();
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	927 }
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	928
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	929 bool
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	930 octave_child_list::wait (void)
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	931 {
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	932 return (instance_ok ()) ? instance->wait () : false;
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	933 }
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	934
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	935 class pid_equal
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	936 {
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	937 public:
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	938
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	939 pid_equal (pid_t v) : val (v) { }
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	940
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	941 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	942
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	943 private:
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	944
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	945 pid_t val;
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	946 };
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	947
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	948 void
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	949 octave_child_list::remove (pid_t pid)
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	950 {
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	951 if (instance_ok ())
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	952 instance->remove_if (pid_equal (pid));
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	953 }
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	954
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	955 #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	956
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	957 void
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	958 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	959 {
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	960 append (octave_child (pid, f));
2926 66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	961 }
66ef74ee5d9f [project @ 1997-05-05 03:20:52 by jwe] jwe parents: 2847 diff changeset	962
2209 859030f15706 [project @ 1996-05-15 11:46:43 by jwe] jwe parents: 2206 diff changeset	963 void
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	964 OCL_REP::reap (void)
2209 859030f15706 [project @ 1996-05-15 11:46:43 by jwe] jwe parents: 2206 diff changeset	965 {
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	966 // Mark the record for PID invalid.
2209 859030f15706 [project @ 1996-05-15 11:46:43 by jwe] jwe parents: 2206 diff changeset	967
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	968 for (iterator p = begin (); p != end (); p++)
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	969 {
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	970 // 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	971 // invalidate the iterator (for example, by calling
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	972 // octave_child_list::remove), so we increment the iterator
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	973 // here.
2209 859030f15706 [project @ 1996-05-15 11:46:43 by jwe] jwe parents: 2206 diff changeset	974
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	975 octave_child& oc = *p;
2209 859030f15706 [project @ 1996-05-15 11:46:43 by jwe] jwe parents: 2206 diff changeset	976
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	977 if (oc.have_status)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	978 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	979 oc.have_status = 0;
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	980
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	981 octave_child::child_event_handler f = oc.handler;
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	982
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	983 if (f && f (oc.pid, oc.status))
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	984 oc.pid = -1;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	985 }
2209 859030f15706 [project @ 1996-05-15 11:46:43 by jwe] jwe parents: 2206 diff changeset	986 }
859030f15706 [project @ 1996-05-15 11:46:43 by jwe] jwe parents: 2206 diff changeset	987
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	988 remove_if (pid_equal (-1));
2209 859030f15706 [project @ 1996-05-15 11:46:43 by jwe] jwe parents: 2206 diff changeset	989 }
859030f15706 [project @ 1996-05-15 11:46:43 by jwe] jwe parents: 2206 diff changeset	990
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	991 // 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	992
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	993 bool
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	994 OCL_REP::wait (void)
2210 a3e39f8efed2 [project @ 1996-05-15 12:55:55 by jwe] jwe parents: 2209 diff changeset	995 {
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	996 bool retval = false;
2210 a3e39f8efed2 [project @ 1996-05-15 12:55:55 by jwe] jwe parents: 2209 diff changeset	997
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	998 for (iterator p = begin (); p != end (); p++)
2210 a3e39f8efed2 [project @ 1996-05-15 12:55:55 by jwe] jwe parents: 2209 diff changeset	999 {
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	1000 octave_child& oc = *p;
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	1001
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	1002 pid_t pid = oc.pid;
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	1003
0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	1004 if (pid > 0)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	1005 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	1006 int status;
2210 a3e39f8efed2 [project @ 1996-05-15 12:55:55 by jwe] jwe parents: 2209 diff changeset	1007
21936 45c5f4426289 Use library wrapper for one more instance of WNOHANG (bug #48253) Mike Miller <mtmiller@octave.org> parents: 21921 diff changeset	1008 if (octave::sys::waitpid (pid, &status, octave::sys::wnohang ()) > 0)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	1009 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	1010 oc.have_status = 1;
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	1011
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	1012 oc.status = status;
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	1013
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	1014 retval = true;
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	1015
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	1016 break;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	1017 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10246 diff changeset	1018 }
2210 a3e39f8efed2 [project @ 1996-05-15 12:55:55 by jwe] jwe parents: 2209 diff changeset	1019 }
a3e39f8efed2 [project @ 1996-05-15 12:55:55 by jwe] jwe parents: 2209 diff changeset	1020
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	1021 return retval;
2210 a3e39f8efed2 [project @ 1996-05-15 12:55:55 by jwe] jwe parents: 2209 diff changeset	1022 }
a3e39f8efed2 [project @ 1996-05-15 12:55:55 by jwe] jwe parents: 2209 diff changeset	1023
5780 cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	1024 DEFUN (SIG, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17778 diff changeset	1025 "-- texinfo --\n\
20853 1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20801 diff changeset	1026 @deftypefn {} {} SIG ()\n\
5780 cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	1027 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	1028 @end deftypefn")
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	1029 {
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20791 diff changeset	1030 if (args.length () != 0)
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5794 diff changeset	1031 print_usage ();
5780 cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	1032
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20791 diff changeset	1033 static octave_scalar_map m = make_sig_struct ();
a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20791 diff changeset	1034
20939 b17fda023ca6 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20853 diff changeset	1035 return ovl (m);
5780 cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	1036 }
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	1037
12827 8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	1038 /*
14429 eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14338 diff changeset	1039 %!assert (isstruct (SIG ()))
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14338 diff changeset	1040 %!assert (! isempty (SIG ()))
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14338 diff changeset	1041
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14338 diff changeset	1042 %!error SIG (1)
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
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	1045 DEFUN (debug_on_interrupt, args, nargout,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17778 diff changeset	1046 "-- texinfo --\n\
20853 1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20801 diff changeset	1047 @deftypefn {} {@var{val} =} debug_on_interrupt ()\n\
1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20801 diff changeset	1048 @deftypefnx {} {@var{old_val} =} debug_on_interrupt (@var{new_val})\n\
1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20801 diff changeset	1049 @deftypefnx {} {} debug_on_interrupt (@var{new_val}, \"local\")\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	1050 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	1051 to enter debugging mode when it receives an interrupt signal (typically\n\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19849 diff changeset	1052 generated with @kbd{C-c}).\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19849 diff changeset	1053 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19849 diff changeset	1054 If a second interrupt signal is received before reaching the debugging mode,\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19849 diff changeset	1055 a normal interrupt will occur.\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12832 diff changeset	1056 \n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 16892 diff changeset	1057 When called from inside a function with the @qcode{\"local\"} option, the\n\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19849 diff changeset	1058 variable is changed locally for the function and any subroutines it calls.\n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 16892 diff changeset	1059 The original variable value is restored when exiting the function.\n\
15573 63d024333bee doc: Add seealso links between debug_on_XXX functions (bug #37576) Rik <rik@octave.org> parents: 14338 diff changeset	1060 @seealso{debug_on_error, debug_on_warning}\n\
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	1061 @end deftypefn")
4449 e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	1062 {
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	1063 return SET_INTERNAL_VARIABLE (debug_on_interrupt);
4449 e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	1064 }
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	1065
12827 8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	1066 /*
8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	1067 %!test
12832 03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1068 %! orig_val = debug_on_interrupt ();
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1069 %! old_val = debug_on_interrupt (! orig_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1070 %! assert (orig_val, old_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1071 %! assert (debug_on_interrupt (), ! orig_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1072 %! debug_on_interrupt (orig_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1073 %! 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	1074
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14338 diff changeset	1075 %!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	1076 */
8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	1077
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	1078 DEFUN (sighup_dumps_octave_core, args, nargout,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17778 diff changeset	1079 "-- texinfo --\n\
20853 1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20801 diff changeset	1080 @deftypefn {} {@var{val} =} sighup_dumps_octave_core ()\n\
1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20801 diff changeset	1081 @deftypefnx {} {@var{old_val} =} sighup_dumps_octave_core (@var{new_val})\n\
1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20801 diff changeset	1082 @deftypefnx {} {} 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	1083 Query or set the internal variable that controls whether Octave tries\n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 16892 diff changeset	1084 to save all current variables to the file @file{octave-workspace} if it\n\
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 16892 diff changeset	1085 receives a hangup signal.\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12832 diff changeset	1086 \n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 16892 diff changeset	1087 When called from inside a function with the @qcode{\"local\"} option, the\n\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19849 diff changeset	1088 variable is changed locally for the function and any subroutines it calls.\n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 16892 diff changeset	1089 The original 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	1090 @end deftypefn")
4185 8f6d418d31c3 [project @ 2002-11-15 23:22:03 by jwe] jwe parents: 4182 diff changeset	1091 {
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	1092 return SET_INTERNAL_VARIABLE (sighup_dumps_octave_core);
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	1093 }
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	1094
12827 8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	1095 /*
8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	1096 %!test
12832 03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1097 %! orig_val = sighup_dumps_octave_core ();
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1098 %! old_val = sighup_dumps_octave_core (! orig_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1099 %! assert (orig_val, old_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1100 %! assert (sighup_dumps_octave_core (), ! orig_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1101 %! sighup_dumps_octave_core (orig_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1102 %! 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	1103
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14338 diff changeset	1104 %!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	1105 */
8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	1106
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	1107 DEFUN (sigterm_dumps_octave_core, args, nargout,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17778 diff changeset	1108 "-- texinfo --\n\
20853 1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20801 diff changeset	1109 @deftypefn {} {@var{val} =} sigterm_dumps_octave_core ()\n\
1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20801 diff changeset	1110 @deftypefnx {} {@var{old_val} =} sigterm_dumps_octave_core (@var{new_val})\n\
1142cf6abc0d 2015 Code Sprint: remove class of function from docstring for all C++ files. Rik <rik@octave.org> parents: 20801 diff changeset	1111 @deftypefnx {} {} 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	1112 Query or set the internal variable that controls whether Octave tries\n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 16892 diff changeset	1113 to save all current variables to the file @file{octave-workspace} if it\n\
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 16892 diff changeset	1114 receives a terminate signal.\n\
13951 79aa00a94e9e doc: Document "local" option for configuration variables. Rik <octave@nomad.inbox5.com> parents: 12832 diff changeset	1115 \n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 16892 diff changeset	1116 When called from inside a function with the @qcode{\"local\"} option, the\n\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19849 diff changeset	1117 variable is changed locally for the function and any subroutines it calls.\n\
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 16892 diff changeset	1118 The original 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	1119 @end deftypefn")
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	1120 {
1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	1121 return SET_INTERNAL_VARIABLE (sigterm_dumps_octave_core);
4185 8f6d418d31c3 [project @ 2002-11-15 23:22:03 by jwe] jwe parents: 4182 diff changeset	1122 }
12827 8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	1123
8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	1124 /*
8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	1125 %!test
12832 03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1126 %! orig_val = sigterm_dumps_octave_core ();
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1127 %! old_val = sigterm_dumps_octave_core (! orig_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1128 %! assert (orig_val, old_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1129 %! assert (sigterm_dumps_octave_core (), ! orig_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1130 %! sigterm_dumps_octave_core (orig_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	1131 %! 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	1132
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14338 diff changeset	1133 %!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	1134 */

Mercurial > octave

annotate libinterp/corefcn/sighandlers.cc @ 21938:da9b960b1b2d