octave: libinterp/corefcn/sighandlers.cc annotate

annotate libinterp/corefcn/sighandlers.cc @ 23696:08036a7f3660

remove octave:: namespace tag from symbols used inside octave namespace * octave-gui.cc, dynamic-ld.h, ft-text-renderer.cc, gl-render.cc, gl-render.h, gl2ps-print.cc, input.cc, input.h, interpreter.cc, load-path.cc, load-path.h, oct-stream.cc, sighandlers.cc, symtab.cc, symtab.h, __ode15__.cc, gzip.cc, octave.cc, lex.ll, oct-parse.in.yy, parse.h, pt-arg-list.cc, pt-arg-list.h, pt-array-list.h, pt-classdef.h, pt-decl.h, pt-eval.cc, pt-eval.h, pt-exp.h, pt-fcn-handle.cc, pt-idx.cc, pt-misc.h, pt-select.h, pt-stmt.h, pt-tm-const.cc, pt-tm-const.h, pt.cc, aepbalance.cc, chol.cc, gepbalance.cc, gsvd.cc, hess.cc, lo-mappers.h, lo-specfun.cc, lu.cc, qr.cc, qrp.cc, schur.cc, sparse-chol.cc, sparse-lu.cc, sparse-qr.cc, svd.cc, child-list.cc, dir-ops.cc, file-ops.cc, file-stat.cc, file-stat.h, lo-sysdep.cc, oct-env.cc, oct-syscalls.cc, cmd-edit.cc, cmd-hist.cc, oct-glob.cc, oct-locbuf.cc, oct-mutex.cc, oct-mutex.h, oct-shlib.cc, oct-shlib.h, pathsearch.cc, url-transfer.cc, url-transfer.h: Remove octave:: namespace tag from symbols used inside octave namespace. * oct-conf-post.in.h (OCTAVE_USE_DEPRECATED_FUNCTIONS): Don't define.

author	John W. Eaton <jwe@octave.org>
date	Mon, 26 Jun 2017 09:05:37 -0400
parents	21baad6b35c4
children	980f39c3ab90

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
23219 3ac9f9ecfae5 maint: Update copyright dates. John W. Eaton <jwe@octave.org> parents: 23083 diff changeset	3 Copyright (C) 1993-2017 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
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	8 under the terms of the GNU General Public License as published by
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	9 the Free Software Foundation; either version 3 of the License, or
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	10 (at your option) any later version.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	11
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	12 Octave is distributed in the hope that it will be useful, but
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	13 WITHOUT ANY WARRANTY; without even the implied warranty of
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22407 diff changeset	15 GNU General Public License for more details.
1 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
21941 1d23b75cbcd1 hide signal.h from C++ sources John W. Eaton <jwe@octave.org> parents: 21938 diff changeset	27 #include <csignal>
2536 1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	28 #include <cstdlib>
1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	29
3503 d14c483b3c12 [project @ 2000-02-01 04:06:07 by jwe] jwe parents: 3343 diff changeset	30 #include <iostream>
1344 c2ca372d3279 [project @ 1995-09-04 00:50:16 by jwe] jwe parents: 1343 diff changeset	31 #include <new>
c2ca372d3279 [project @ 1995-09-04 00:50:16 by jwe] jwe parents: 1343 diff changeset	32
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	33 #if defined (OCTAVE_USE_WINDOWS_API)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	34 # define WIN32_LEAN_AND_MEAN
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	35 # include <windows.h>
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	36 #endif
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	37
3281 aaaa20d31a5f [project @ 1999-10-13 07:02:46 by jwe] jwe parents: 3252 diff changeset	38 #include "cmd-edit.h"
5453 89f5979e8552 [project @ 2005-09-17 00:50:58 by jwe] jwe parents: 5451 diff changeset	39 #include "oct-syscalls.h"
4153 6b96ce9f5743 [project @ 2002-11-06 20:38:49 by jwe] jwe parents: 4092 diff changeset	40 #include "quit.h"
13983 7dd7cccf0757 clean up memory allocated for singletons before exit John W. Eaton <jwe@octave.org> parents: 13951 diff changeset	41 #include "singleton-cleanup.h"
21938 da9b960b1b2d use gnulib strsignal module John W. Eaton <jwe@octave.org> parents: 21936 diff changeset	42 #include "signal-wrappers.h"
3281 aaaa20d31a5f [project @ 1999-10-13 07:02:46 by jwe] jwe parents: 3252 diff changeset	43
23137 334119c390b3 move bp_table class to separate file John W. Eaton <jwe@octave.org> parents: 23101 diff changeset	44 #include "bp-table.h"
4185 8f6d418d31c3 [project @ 2002-11-15 23:22:03 by jwe] jwe parents: 4182 diff changeset	45 #include "defun.h"
1352 19c10b8657d5 [project @ 1995-09-05 08:11:57 by jwe] jwe parents: 1350 diff changeset	46 #include "error.h"
10194 d4f813c3f5ed more debug mode fixes John W. Eaton <jwe@octave.org> parents: 10182 diff changeset	47 #include "input.h"
22094 9203833cab7d move new interpreter class to separate file John W. Eaton <jwe@octave.org> parents: 22089 diff changeset	48 #include "interpreter.h"
1373 cea4101a2f18 [project @ 1995-09-07 07:19:58 by jwe] jwe parents: 1358 diff changeset	49 #include "load-save.h"
22089 c2c668b3051b use classes for octave application and interpreter John W. Eaton <jwe@octave.org> parents: 22051 diff changeset	50 #include "octave.h"
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	51 #include "oct-map.h"
2091 60f5e1c20815 [project @ 1996-04-28 08:32:39 by jwe] jwe parents: 2016 diff changeset	52 #include "pager.h"
4185 8f6d418d31c3 [project @ 2002-11-15 23:22:03 by jwe] jwe parents: 4182 diff changeset	53 #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	54 #include "pt-eval.h"
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	55 #include "sighandlers.h"
4787 02c748eb2ddc [project @ 2004-02-18 21:20:26 by jwe] jwe parents: 4675 diff changeset	56 #include "sysdep.h"
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	57 #include "utils.h"
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	58 #include "variables.h"
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	59
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	60 namespace octave
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	61 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	62 // Nonzero means we have already printed a message for this series of
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	63 // SIGPIPES. We assume that the writer will eventually give up.
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	64 int pipe_handler_error_count = 0;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	65
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	66 // TRUE means we can be interrupted.
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	67 bool can_interrupt = false;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	68
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	69 // TRUE means we should try to enter the debugger on SIGINT.
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	70 bool Vdebug_on_interrupt = false;
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	71
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	72 // Allow users to avoid writing octave-workspace for SIGHUP (sent by
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	73 // closing gnome-terminal, for example). Note that this variable has
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	74 // no effect if Vcrash_dumps_octave_core is FALSE.
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	75 static bool Vsighup_dumps_octave_core = true;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	76
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	77 // Similar to Vsighup_dumps_octave_core, but for SIGTERM signal.
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	78 static bool Vsigterm_dumps_octave_core = true;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	79
23696 08036a7f3660 remove octave:: namespace tag from symbols used inside octave namespace John W. Eaton <jwe@octave.org> parents: 23457 diff changeset	80 // List of signals we have caught since last call to signal_handler.
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23449 diff changeset	81 static bool *signals_caught = nullptr;
4185 8f6d418d31c3 [project @ 2002-11-15 23:22:03 by jwe] jwe parents: 4182 diff changeset	82
23096 b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	83 // Forward declarations.
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	84 static void user_terminate (int sig_number);
23101 86376c04cb66 generate signal name from number when needed in signal handler functions John W. Eaton <jwe@octave.org> parents: 23096 diff changeset	85 static void user_abort (int sig_number);
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	86
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	87 class
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	88 base_interrupt_manager
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	89 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	90 public:
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	91
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	92 base_interrupt_manager (void) { }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	93
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	94 // No copying!
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	95
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	96 base_interrupt_manager (const base_interrupt_manager&) = delete;
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	97
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	98 base_interrupt_manager& operator = (const base_interrupt_manager&) = delete;
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	99
22868 87e3163f6c87 use c++11 "= default" syntax for declaration of trivial destructors John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	100 virtual ~base_interrupt_manager (void) = default;
4449 e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	101
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	102 virtual void do_jump_to_enclosing_context (void) = 0;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	103
23096 b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	104 virtual void do_user_terminate (int sig_number) = 0;
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	105
23101 86376c04cb66 generate signal name from number when needed in signal handler functions John W. Eaton <jwe@octave.org> parents: 23096 diff changeset	106 virtual void do_user_abort (int sig_number) = 0;
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	107
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	108 virtual void do_raise_sigint (void) = 0;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	109 };
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	110
21979 d04da18a407a use OCTAVE_USE_WINDOWS_API more consistently John W. Eaton <jwe@octave.org> parents: 21966 diff changeset	111 #if defined (OCTAVE_USE_WINDOWS_API)
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	112
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	113 class
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	114 w32_interrupt_manager : public base_interrupt_manager
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	115 {
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	116 public:
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	117
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	118 w32_interrupt_manager (void)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	119 : thread (0), thread_id (0)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	120 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	121 thread_id = GetCurrentThreadId ();
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	122
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	123 DuplicateHandle (GetCurrentProcess (), GetCurrentThread (),
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	124 GetCurrentProcess (), &thread, 0, FALSE,
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	125 DUPLICATE_SAME_ACCESS);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	126 }
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	127
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	128 // No copying!
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	129
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	130 w32_interrupt_manager (const w32_interrupt_manager&) = delete;
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	131
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	132 w32_interrupt_manager& operator = (const w32_interrupt_manager&) = delete;
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	133
22868 87e3163f6c87 use c++11 "= default" syntax for declaration of trivial destructors John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	134 ~w32_interrupt_manager (void) = default;
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	135
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	136 static void jump_to_enclosing_context_sync (void)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	137 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21609 diff changeset	138 #if defined (_MSC_VER)
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	139 _fpreset ();
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	140 #endif
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	141 ::octave_jump_to_enclosing_context ();
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	142 }
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	143
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	144 void do_jump_to_enclosing_context (void)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	145 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	146 bool is_interrupt_thread = (GetCurrentThreadId () == thread_id);
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	147
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	148 if (is_interrupt_thread)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	149 jump_to_enclosing_context_sync ();
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	150 else
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	151 {
18461 9cfba3616503 allow sighandlers.cc to compile on 64-bit Windows systems John W. Eaton <jwe@octave.org> parents: 17958 diff changeset	152
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	153 CONTEXT threadContext;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	154
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	155 SuspendThread (thread);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	156 threadContext.ContextFlags = CONTEXT_CONTROL;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	157 GetThreadContext (thread, &threadContext);
22382 07eb510d8800 For win64 signal handling, use context Rip value John D parents: 22323 diff changeset	158
07eb510d8800 For win64 signal handling, use context Rip value John D parents: 22323 diff changeset	159 #if (defined (__MINGW64__) \|\| defined (_WIN64))
07eb510d8800 For win64 signal handling, use context Rip value John D parents: 22323 diff changeset	160 threadContext.Rip = (DWORD64) jump_to_enclosing_context_sync;
07eb510d8800 For win64 signal handling, use context Rip value John D parents: 22323 diff changeset	161 #else
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	162 threadContext.Eip = (DWORD) jump_to_enclosing_context_sync;
22382 07eb510d8800 For win64 signal handling, use context Rip value John D parents: 22323 diff changeset	163 #endif
07eb510d8800 For win64 signal handling, use context Rip value John D parents: 22323 diff changeset	164
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	165 SetThreadContext (thread, &threadContext);
22382 07eb510d8800 For win64 signal handling, use context Rip value John D parents: 22323 diff changeset	166
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	167 ResumeThread (thread);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	168 }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	169 }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	170
23096 b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	171 void do_user_terminate (int sig_number)
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	172 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	173 bool is_interrupt_thread = (GetCurrentThreadId () == thread_id);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	174
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	175 if (is_interrupt_thread)
23696 08036a7f3660 remove octave:: namespace tag from symbols used inside octave namespace John W. Eaton <jwe@octave.org> parents: 23457 diff changeset	176 user_terminate (sig_number);
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	177 else
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	178 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	179 SuspendThread (thread);
23696 08036a7f3660 remove octave:: namespace tag from symbols used inside octave namespace John W. Eaton <jwe@octave.org> parents: 23457 diff changeset	180 user_terminate (sig_number);
23096 b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	181 ResumeThread (thread);
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	182 }
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	183 }
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	184
23101 86376c04cb66 generate signal name from number when needed in signal handler functions John W. Eaton <jwe@octave.org> parents: 23096 diff changeset	185 void do_user_abort (int sig_number)
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	186 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	187 bool is_interrupt_thread = (GetCurrentThreadId () == thread_id);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	188
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	189 if (is_interrupt_thread)
23696 08036a7f3660 remove octave:: namespace tag from symbols used inside octave namespace John W. Eaton <jwe@octave.org> parents: 23457 diff changeset	190 user_abort (sig_number);
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	191 else
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	192 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	193 SuspendThread (thread);
23696 08036a7f3660 remove octave:: namespace tag from symbols used inside octave namespace John W. Eaton <jwe@octave.org> parents: 23457 diff changeset	194 user_abort (sig_number);
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	195 ResumeThread (thread);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	196 }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	197 }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	198
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	199 void do_raise_sigint (void)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	200 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	201 bool is_interrupt_thread = (GetCurrentThreadId () == thread_id);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	202
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	203 if (is_interrupt_thread)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	204 octave_raise_wrapper (SIGINT);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	205 else
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	206 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	207 SuspendThread (thread);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	208 octave_raise_wrapper (SIGINT);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	209 ResumeThread (thread);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	210 }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	211 }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	212
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	213 private:
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	214
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	215 // A handle to the thread that is running the octave interpreter.
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	216 HANDLE thread;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	217
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	218 // The ID of the thread that is running the octave interpreter.
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	219 DWORD thread_id;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	220 };
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	221
18461 9cfba3616503 allow sighandlers.cc to compile on 64-bit Windows systems John W. Eaton <jwe@octave.org> parents: 17958 diff changeset	222 #endif
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	223
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	224 class
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	225 posix_interrupt_manager : public base_interrupt_manager
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	226 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	227 public:
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	228
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	229 posix_interrupt_manager (void)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	230 : base_interrupt_manager ()
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	231 { }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	232
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	233 // No copying!
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	234
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	235 posix_interrupt_manager (const posix_interrupt_manager&) = delete;
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	236
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	237 posix_interrupt_manager&
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	238 operator = (const posix_interrupt_manager&) = delete;
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	239
22868 87e3163f6c87 use c++11 "= default" syntax for declaration of trivial destructors John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	240 ~posix_interrupt_manager (void) = default;
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	241
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	242 void do_jump_to_enclosing_context (void)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	243 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	244 ::octave_jump_to_enclosing_context ();
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	245 }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	246
23096 b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	247 void do_user_terminate (int sig_number)
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	248 {
23696 08036a7f3660 remove octave:: namespace tag from symbols used inside octave namespace John W. Eaton <jwe@octave.org> parents: 23457 diff changeset	249 user_terminate (sig_number);
23096 b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	250 }
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	251
23101 86376c04cb66 generate signal name from number when needed in signal handler functions John W. Eaton <jwe@octave.org> parents: 23096 diff changeset	252 void do_user_abort (int sig_number)
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	253 {
23696 08036a7f3660 remove octave:: namespace tag from symbols used inside octave namespace John W. Eaton <jwe@octave.org> parents: 23457 diff changeset	254 user_abort (sig_number);
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	255 }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	256
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	257 void do_raise_sigint (void)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	258 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	259 octave_raise_wrapper (SIGINT);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	260 }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	261 };
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	262
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	263 class
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	264 interrupt_manager
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	265 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	266 public:
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	267
22868 87e3163f6c87 use c++11 "= default" syntax for declaration of trivial destructors John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	268 ~interrupt_manager (void) = default;
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	269
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	270 static bool init (void) { return instance_ok (); }
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	271
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	272 static void jump_to_enclosing_context (void)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	273 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	274 if (instance_ok ())
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	275 instance->do_jump_to_enclosing_context ();
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	276 }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	277
23096 b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	278 static void user_terminate (int sig_number)
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	279 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	280 if (instance_ok ())
23096 b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	281 instance->do_user_terminate (sig_number);
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	282 }
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	283
23101 86376c04cb66 generate signal name from number when needed in signal handler functions John W. Eaton <jwe@octave.org> parents: 23096 diff changeset	284 static void user_abort (int sig_number)
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	285 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	286 if (instance_ok ())
23101 86376c04cb66 generate signal name from number when needed in signal handler functions John W. Eaton <jwe@octave.org> parents: 23096 diff changeset	287 instance->do_user_abort (sig_number);
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	288 }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	289
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	290 static void raise_sigint (void)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	291 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	292 if (instance_ok ())
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	293 instance->do_raise_sigint ();
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	294 }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	295
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	296 private:
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	297
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	298 interrupt_manager (void) { }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	299
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	300 // No copying!
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	301
22865 89756f2f085b use c++11 style for deleting default copy constructor and assignment operator John W. Eaton <jwe@octave.org> parents: 22755 diff changeset	302 interrupt_manager (const interrupt_manager&) = delete;
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	303
22865 89756f2f085b use c++11 style for deleting default copy constructor and assignment operator John W. Eaton <jwe@octave.org> parents: 22755 diff changeset	304 interrupt_manager& operator = (const interrupt_manager&) = delete;
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	305
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	306 static bool instance_ok (void)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	307 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	308 bool retval = true;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	309
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	310 if (! instance)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	311 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	312 instance = create_instance ();
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	313
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	314 if (instance)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	315 singleton_cleanup_list::add (cleanup_instance);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	316 }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	317
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	318 if (! instance)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	319 error ("unable to create interrupt_manager");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	320
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	321 return retval;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	322 }
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	323
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23220 diff changeset	324 static base_interrupt_manager * create_instance (void)
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	325 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	326 #if defined (OCTAVE_USE_WINDOWS_API)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	327 return new w32_interrupt_manager ();
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	328 #else
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	329 return new posix_interrupt_manager ();
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	330 #endif
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	331 }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	332
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	333 static void cleanup_instance (void) { delete instance; instance = 0; }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	334
23449 c763214a8260 maint: Use convention 'int x' for naming pointers. Rik <rik@octave.org>* parents: 23446 diff changeset	335 static base_interrupt_manager *instance;
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	336 };
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	337
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23449 diff changeset	338 base_interrupt_manager *interrupt_manager::instance = nullptr;
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	339
23096 b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	340 static void
23101 86376c04cb66 generate signal name from number when needed in signal handler functions John W. Eaton <jwe@octave.org> parents: 23096 diff changeset	341 my_friendly_exit (int sig, bool save_vars = true)
23096 b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	342 {
23101 86376c04cb66 generate signal name from number when needed in signal handler functions John W. Eaton <jwe@octave.org> parents: 23096 diff changeset	343 std::cerr << "fatal: caught signal "
86376c04cb66 generate signal name from number when needed in signal handler functions John W. Eaton <jwe@octave.org> parents: 23096 diff changeset	344 << octave_strsignal_wrapper (sig)
23096 b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	345 << " -- stopping myself..." << std::endl;
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	346
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	347 if (save_vars)
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	348 dump_octave_core ();
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	349
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	350 sysdep_cleanup ();
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	351
23696 08036a7f3660 remove octave:: namespace tag from symbols used inside octave namespace John W. Eaton <jwe@octave.org> parents: 23457 diff changeset	352 throw exit_exception (1);
23096 b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	353 }
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	354
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	355 // Called from octave_quit () to actually do something about the signals
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	356 // we have caught.
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	357
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	358 void
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	359 signal_handler (void)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	360 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	361 // The list of signals is relatively short, so we will just go
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	362 // linearly through the list.
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	363
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	364 static int sigchld;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	365 static int sigfpe;
23096 b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	366 static int sighup;
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	367 static int sigterm;
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	368 static int sigpipe;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	369
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	370 static const bool have_sigchld = octave_get_sig_number ("SIGCHLD", &sigchld);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	371 static const bool have_sigfpe = octave_get_sig_number ("SIGFPE", &sigfpe);
23096 b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	372 static const bool have_sighup = octave_get_sig_number ("SIGHUP", &sighup);
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	373 static const bool have_sigterm = octave_get_sig_number ("SIGTERM", &sigterm);
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	374 static const bool have_sigpipe = octave_get_sig_number ("SIGPIPE", &sigpipe);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	375
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	376 for (int i = 0; i < octave_num_signals (); i++)
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	377 {
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	378 if (signals_caught[i])
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	379 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	380 signals_caught[i] = false;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	381
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	382 if (have_sigchld && i == sigchld)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	383 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	384 volatile interrupt_handler saved_interrupt_handler
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	385 = ignore_interrupts ();
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	386
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	387 void *context = octave_block_child ();
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	388
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	389 child_list::wait ();
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	390
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	391 set_interrupt_handler (saved_interrupt_handler);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	392
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	393 octave_unblock_child (context);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	394
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	395 child_list::reap ();
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	396 }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	397 else if (have_sigfpe && i == sigfpe)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	398 std::cerr << "warning: floating point exception" << std::endl;
23096 b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	399 else if (have_sighup && i == sighup)
23101 86376c04cb66 generate signal name from number when needed in signal handler functions John W. Eaton <jwe@octave.org> parents: 23096 diff changeset	400 my_friendly_exit (sighup, Vsighup_dumps_octave_core);
23096 b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	401 else if (have_sigterm && i == sigterm)
23101 86376c04cb66 generate signal name from number when needed in signal handler functions John W. Eaton <jwe@octave.org> parents: 23096 diff changeset	402 my_friendly_exit (sigterm, Vsigterm_dumps_octave_core);
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	403 else if (have_sigpipe && i == sigpipe)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	404 std::cerr << "warning: broken pipe" << std::endl;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	405 }
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	406 }
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	407 }
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	408
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	409 sig_handler *
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	410 set_signal_handler (int sig, sig_handler *handler, bool restart_syscalls)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	411 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	412 return octave_set_signal_handler_internal (sig, handler, restart_syscalls);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	413 }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	414
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	415 sig_handler *
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	416 set_signal_handler (const char signame, sig_handler handler,
22407 34ce5be04942 maint: Style check C++ code in libinterp/. Rik <rik@octave.org> parents: 22382 diff changeset	417 bool restart_syscalls)
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	418 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	419 return octave_set_signal_handler_by_name (signame, handler,
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	420 restart_syscalls);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	421 }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	422
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	423 static void
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	424 generic_sig_handler (int sig)
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	425 {
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	426 octave_signal_caught = 1;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	427
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	428 signals_caught[sig] = true;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	429 }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	430
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	431 #if defined (__alpha__)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	432 static void
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	433 sigfpe_handler (int sig)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	434 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	435 if (can_interrupt && octave_interrupt_state >= 0)
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	436 {
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	437 octave_signal_caught = 1;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	438
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	439 signals_caught[sig] = true;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	440
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	441 octave_interrupt_state++;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	442 }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	443 }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	444 #endif
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	445
23096 b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	446 // Handle SIGHUP and SIGTERM.
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	447
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	448 static void
23096 b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	449 user_terminate (int sig_number)
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	450 {
23096 b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	451 if (! octave_initialized)
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	452 exit (1);
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	453
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	454 octave_signal_caught = 1;
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	455
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	456 signals_caught[sig_number] = true;
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	457
23096 b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	458 if (octave_interrupt_immediately)
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	459 {
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	460 // Try to get to a place where it is safe to throw an
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	461 // exception.
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	462
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	463 interrupt_manager::jump_to_enclosing_context ();
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	464 }
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	465 }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	466
23096 b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	467 // Handle SIGINT.
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	468 //
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	469 // This also has to work for SIGBREAK (on systems that have it), so we
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	470 // use the value of sig, instead of just assuming that it is called
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	471 // for SIGINT only.
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	472
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	473 static void
23101 86376c04cb66 generate signal name from number when needed in signal handler functions John W. Eaton <jwe@octave.org> parents: 23096 diff changeset	474 user_abort (int sig_number)
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	475 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	476 if (! octave_initialized)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	477 exit (1);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	478
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	479 if (can_interrupt)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	480 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	481 if (Vdebug_on_interrupt)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	482 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	483 if (! octave_debug_on_interrupt_state)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	484 {
23696 08036a7f3660 remove octave:: namespace tag from symbols used inside octave namespace John W. Eaton <jwe@octave.org> parents: 23457 diff changeset	485 tree_evaluator::debug_mode = true;
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	486 octave_debug_on_interrupt_state = true;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	487
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	488 return;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	489 }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	490 else
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	491 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	492 // Clear the flag and do normal interrupt stuff.
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	493
23696 08036a7f3660 remove octave:: namespace tag from symbols used inside octave namespace John W. Eaton <jwe@octave.org> parents: 23457 diff changeset	494 tree_evaluator::debug_mode
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	495 = bp_table::have_breakpoints () \|\| Vdebugging;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	496 octave_debug_on_interrupt_state = false;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	497 }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	498 }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	499
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	500 if (octave_interrupt_immediately)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	501 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	502 if (octave_interrupt_state == 0)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	503 octave_interrupt_state = 1;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	504
23096 b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	505 // Try to get to a place where it is safe to throw an
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	506 // exception.
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	507
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	508 interrupt_manager::jump_to_enclosing_context ();
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	509 }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	510 else
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	511 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	512 // If we are already cleaning up from a previous interrupt,
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	513 // take note of the fact that another interrupt signal has
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	514 // arrived.
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	515
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	516 if (octave_interrupt_state < 0)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	517 octave_interrupt_state = 0;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	518
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	519 octave_signal_caught = 1;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	520 octave_interrupt_state++;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	521
23696 08036a7f3660 remove octave:: namespace tag from symbols used inside octave namespace John W. Eaton <jwe@octave.org> parents: 23457 diff changeset	522 if (application::interactive ()
08036a7f3660 remove octave:: namespace tag from symbols used inside octave namespace John W. Eaton <jwe@octave.org> parents: 23457 diff changeset	523 && ! application::forced_interactive ()
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	524 && octave_interrupt_state == 2)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	525 std::cerr << "Press Control-C again to abort." << std::endl;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	526
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	527 if (octave_interrupt_state >= 3)
23101 86376c04cb66 generate signal name from number when needed in signal handler functions John W. Eaton <jwe@octave.org> parents: 23096 diff changeset	528 my_friendly_exit (sig_number, true);
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	529 }
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	530 }
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	531 }
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	532
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	533 static void
23096 b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	534 sigterm_handler (int sig)
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	535 {
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	536 interrupt_manager::user_terminate (sig);
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	537 }
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	538
b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	539 static void
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	540 sigint_handler (int sig)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	541 {
23101 86376c04cb66 generate signal name from number when needed in signal handler functions John W. Eaton <jwe@octave.org> parents: 23096 diff changeset	542 interrupt_manager::user_abort (sig);
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	543 }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	544
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	545 static void
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	546 sigpipe_handler (int sig)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	547 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	548 octave_signal_caught = 1;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	549
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	550 signals_caught[sig] = true;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	551
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	552 // Don't loop forever on account of this.
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	553
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	554 if (pipe_handler_error_count++ > 100 && octave_interrupt_state >= 0)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	555 octave_interrupt_state++;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	556 }
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	557
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	558 interrupt_handler
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	559 catch_interrupts (void)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	560 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	561 interrupt_handler retval;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	562
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	563 interrupt_manager::init ();
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	564
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	565 retval.int_handler = set_signal_handler ("SIGINT", sigint_handler);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	566 retval.brk_handler = set_signal_handler ("SIGBREAK", sigint_handler);
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	567
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	568 return retval;
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	569 }
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	570
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	571 interrupt_handler
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	572 ignore_interrupts (void)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	573 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	574 interrupt_handler retval;
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	575
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	576 interrupt_manager::init ();
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	577
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	578 retval.int_handler = set_signal_handler ("SIGINT", SIG_IGN);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	579 retval.brk_handler = set_signal_handler ("SIGBREAK", SIG_IGN);
21941 1d23b75cbcd1 hide signal.h from C++ sources John W. Eaton <jwe@octave.org> parents: 21938 diff changeset	580
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	581 return retval;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	582 }
11555 f359cfc6e24d sighandlers.cc: wait for children in octave_signal_handler, not sigchld_handler John W. Eaton <jwe@octave.org> parents: 11525 diff changeset	583
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	584 interrupt_handler
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	585 set_interrupt_handler (const volatile interrupt_handler& h,
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	586 bool restart_syscalls)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	587 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	588 interrupt_handler retval;
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	589
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	590 interrupt_manager::init ();
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	591
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	592 retval.int_handler = set_signal_handler ("SIGINT", h.int_handler,
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	593 restart_syscalls);
5142 0f9108f298ab [project @ 2005-02-12 02:29:34 by jwe] jwe parents: 5128 diff changeset	594
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	595 retval.brk_handler = set_signal_handler ("SIGBREAK", h.brk_handler,
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	596 restart_syscalls);
2536 1d63e820ee13 [project @ 1996-11-19 20:34:29 by jwe] jwe parents: 2512 diff changeset	597
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	598 return retval;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	599 }
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	600
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	601 // Install all the handlers for the signals we might care about.
1373 cea4101a2f18 [project @ 1995-09-07 07:19:58 by jwe] jwe parents: 1358 diff changeset	602
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	603 void
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	604 install_signal_handlers (void)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	605 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	606 if (! signals_caught)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	607 signals_caught = new bool [octave_num_signals ()];
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	608
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	609 for (int i = 0; i < octave_num_signals (); i++)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	610 signals_caught[i] = false;
3162 7c96e85c76db [project @ 1998-04-08 18:19:35 by jwe] jwe parents: 3018 diff changeset	611
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	612 catch_interrupts ();
5144 25b090e1be9f [project @ 2005-02-15 12:06:05 by jwe] jwe parents: 5142 diff changeset	613
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	614 set_signal_handler ("SIGABRT", generic_sig_handler);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	615 set_signal_handler ("SIGALRM", generic_sig_handler);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	616 set_signal_handler ("SIGBUS", generic_sig_handler);
23096 b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	617 set_signal_handler ("SIGCHLD", generic_sig_handler);
1446 5135dac66704 [project @ 1995-09-19 22:34:06 by jwe] jwe parents: 1395 diff changeset	618
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	619 // SIGCLD
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	620 // SIGCONT
1230 92609e161b29 [project @ 1995-04-10 01:08:57 by jwe] jwe parents: 1009 diff changeset	621
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	622 set_signal_handler ("SIGEMT", generic_sig_handler);
1230 92609e161b29 [project @ 1995-04-10 01:08:57 by jwe] jwe parents: 1009 diff changeset	623
21941 1d23b75cbcd1 hide signal.h from C++ sources John W. Eaton <jwe@octave.org> parents: 21938 diff changeset	624 #if defined (__alpha__)
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	625 set_signal_handler ("SIGFPE", sigfpe_handler);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	626 #else
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	627 set_signal_handler ("SIGFPE", generic_sig_handler);
3281 aaaa20d31a5f [project @ 1999-10-13 07:02:46 by jwe] jwe parents: 3252 diff changeset	628 #endif
aaaa20d31a5f [project @ 1999-10-13 07:02:46 by jwe] jwe parents: 3252 diff changeset	629
23096 b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	630 set_signal_handler ("SIGHUP", sigterm_handler);
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	631 set_signal_handler ("SIGILL", generic_sig_handler);
4172 2e94b2abfe6d [project @ 2002-11-12 21:14:04 by jwe] jwe parents: 4153 diff changeset	632
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	633 // SIGINFO
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	634 // SIGINT
8658 73c4516fae10 New evaluator and debugger derived from tree-walker class John W. Eaton <jwe@octave.org> parents: 7481 diff changeset	635
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	636 set_signal_handler ("SIGIOT", generic_sig_handler);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	637 set_signal_handler ("SIGLOST", generic_sig_handler);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	638 set_signal_handler ("SIGPIPE", sigpipe_handler);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	639 set_signal_handler ("SIGPOLL", SIG_IGN);
7481 78f3811155f7 use exceptions in liboctave error handler John W. Eaton <jwe@octave.org> parents: 7017 diff changeset	640
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	641 // SIGPROF
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	642 // SIGPWR
4793 a62215ab8a03 [project @ 2004-02-20 20:59:34 by jwe] jwe parents: 4791 diff changeset	643
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	644 set_signal_handler ("SIGQUIT", generic_sig_handler);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	645 set_signal_handler ("SIGSEGV", generic_sig_handler);
4787 02c748eb2ddc [project @ 2004-02-18 21:20:26 by jwe] jwe parents: 4675 diff changeset	646
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	647 // SIGSTOP
5451 ed08548b9054 [project @ 2005-09-15 19:52:50 by jwe] jwe parents: 5333 diff changeset	648
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	649 set_signal_handler ("SIGSYS", generic_sig_handler);
23096 b7a24a734c37 defer SIGHUP and SIGTERM actions until octave_quit is called John W. Eaton <jwe@octave.org> parents: 23084 diff changeset	650 set_signal_handler ("SIGTERM", sigterm_handler);
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	651 set_signal_handler ("SIGTRAP", generic_sig_handler);
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	652
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	653 // SIGTSTP
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	654 // SIGTTIN
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	655 // SIGTTOU
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	656 // SIGURG
2554 f7e3d23f0a8f [project @ 1996-11-21 01:41:57 by jwe] jwe parents: 2536 diff changeset	657
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	658 set_signal_handler ("SIGUSR1", generic_sig_handler);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	659 set_signal_handler ("SIGUSR2", generic_sig_handler);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	660 set_signal_handler ("SIGVTALRM", generic_sig_handler);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	661 set_signal_handler ("SIGIO", SIG_IGN);
2705 18395aaeafb7 [project @ 1997-02-20 04:56:43 by jwe] jwe parents: 2693 diff changeset	662
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	663 #if 0
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	664 set_signal_handler ("SIGWINCH", sigwinch_handler);
17958 1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	665 #endif
1adf3710bb68 Working CTRL-C handling implementation for Win32. Michael Goffioul <michael.goffioul@gmail.com> parents: 17861 diff changeset	666
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	667 set_signal_handler ("SIGXCPU", generic_sig_handler);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	668 set_signal_handler ("SIGXFSZ", generic_sig_handler);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	669 }
635 5338832d2cf6 [project @ 1994-08-23 17:57:20 by jwe] jwe parents: 529 diff changeset	670
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	671 static void
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	672 set_sig_struct_field (octave_scalar_map& m, const char *signame)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	673 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	674 int signum;
21941 1d23b75cbcd1 hide signal.h from C++ sources John W. Eaton <jwe@octave.org> parents: 21938 diff changeset	675
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	676 // The names in the struct do not include the leading "SIG" prefix.
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	677
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	678 if (octave_get_sig_number (signame, &signum))
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	679 m.assign (&signame[3], signum);
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	680 }
3174 390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	681
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	682 static octave_scalar_map
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	683 make_sig_struct (void)
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	684 {
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	685 octave_scalar_map m;
3174 390d5e396682 [project @ 1998-05-04 16:36:17 by jwe] jwe parents: 3162 diff changeset	686
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	687 set_sig_struct_field (m, "SIGABRT");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	688 set_sig_struct_field (m, "SIGALRM");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	689 set_sig_struct_field (m, "SIGBUS");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	690 set_sig_struct_field (m, "SIGCHLD");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	691 set_sig_struct_field (m, "SIGCLD");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	692 set_sig_struct_field (m, "SIGCONT");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	693 set_sig_struct_field (m, "SIGEMT");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	694 set_sig_struct_field (m, "SIGFPE");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	695 set_sig_struct_field (m, "SIGHUP");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	696 set_sig_struct_field (m, "SIGILL");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	697 set_sig_struct_field (m, "SIGINFO");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	698 set_sig_struct_field (m, "SIGINT");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	699 set_sig_struct_field (m, "SIGIO");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	700 set_sig_struct_field (m, "SIGIOT");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	701 set_sig_struct_field (m, "SIGKILL");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	702 set_sig_struct_field (m, "SIGLOST");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	703 set_sig_struct_field (m, "SIGPIPE");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	704 set_sig_struct_field (m, "SIGPOLL");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	705 set_sig_struct_field (m, "SIGPROF");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	706 set_sig_struct_field (m, "SIGPWR");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	707 set_sig_struct_field (m, "SIGQUIT");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	708 set_sig_struct_field (m, "SIGSEGV");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	709 set_sig_struct_field (m, "SIGSTKFLT");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	710 set_sig_struct_field (m, "SIGSTOP");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	711 set_sig_struct_field (m, "SIGSYS");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	712 set_sig_struct_field (m, "SIGTERM");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	713 set_sig_struct_field (m, "SIGTRAP");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	714 set_sig_struct_field (m, "SIGTSTP");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	715 set_sig_struct_field (m, "SIGTTIN");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	716 set_sig_struct_field (m, "SIGTTOU");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	717 set_sig_struct_field (m, "SIGUNUSED");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	718 set_sig_struct_field (m, "SIGURG");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	719 set_sig_struct_field (m, "SIGUSR1");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	720 set_sig_struct_field (m, "SIGUSR2");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	721 set_sig_struct_field (m, "SIGVTALRM");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	722 set_sig_struct_field (m, "SIGWINCH");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	723 set_sig_struct_field (m, "SIGXCPU");
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	724 set_sig_struct_field (m, "SIGXFSZ");
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	725
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	726 return m;
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	727 }
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	728 }
755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	729
5780 cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	730 DEFUN (SIG, args, ,
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	731 doc: /* -- texinfo --
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	732 @deftypefn {} {} SIG ()
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	733 Return a structure containing Unix signal names and their defined values.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	734 @end deftypefn */)
5780 cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	735 {
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20791 diff changeset	736 if (args.length () != 0)
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5794 diff changeset	737 print_usage ();
5780 cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	738
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	739 static octave_scalar_map m = octave::make_sig_struct ();
20801 a542a9bf177e eliminate return statements after calls to print_usage John W. Eaton <jwe@octave.org> parents: 20791 diff changeset	740
20939 b17fda023ca6 maint: Use new C++ archetype in more files. Rik <rik@octave.org> parents: 20853 diff changeset	741 return ovl (m);
5780 cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	742 }
cbf717bf8150 [project @ 2006-04-27 20:02:30 by jwe] jwe parents: 5775 diff changeset	743
12827 8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	744 /*
14429 eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14338 diff changeset	745 %!assert (isstruct (SIG ()))
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14338 diff changeset	746 %!assert (! isempty (SIG ()))
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14338 diff changeset	747
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14338 diff changeset	748 %!error SIG (1)
12827 8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	749 */
8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	750
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	751 DEFUN (debug_on_interrupt, args, nargout,
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	752 doc: /* -- texinfo --
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	753 @deftypefn {} {@var{val} =} debug_on_interrupt ()
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	754 @deftypefnx {} {@var{old_val} =} debug_on_interrupt (@var{new_val})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	755 @deftypefnx {} {} debug_on_interrupt (@var{new_val}, "local")
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	756 Query or set the internal variable that controls whether Octave will try
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	757 to enter debugging mode when it receives an interrupt signal (typically
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	758 generated with @kbd{C-c}).
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	759
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	760 If a second interrupt signal is received before reaching the debugging mode,
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	761 a normal interrupt will occur.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	762
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	763 When called from inside a function with the @qcode{"local"} option, the
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	764 variable is changed locally for the function and any subroutines it calls.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	765 The original variable value is restored when exiting the function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	766 @seealso{debug_on_error, debug_on_warning}
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	767 @end deftypefn */)
4449 e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	768 {
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	769 return set_internal_variable (octave::Vdebug_on_interrupt, args, nargout,
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	770 "debug_on_interrupt");
4449 e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	771 }
e2c91da0aa16 [project @ 2003-07-09 02:21:11 by jwe] jwe parents: 4429 diff changeset	772
12827 8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	773 /*
8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	774 %!test
12832 03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	775 %! orig_val = debug_on_interrupt ();
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	776 %! old_val = debug_on_interrupt (! orig_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	777 %! assert (orig_val, old_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	778 %! assert (debug_on_interrupt (), ! orig_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	779 %! debug_on_interrupt (orig_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	780 %! 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	781
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14338 diff changeset	782 %!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	783 */
8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	784
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	785 DEFUN (sighup_dumps_octave_core, args, nargout,
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	786 doc: /* -- texinfo --
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	787 @deftypefn {} {@var{val} =} sighup_dumps_octave_core ()
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	788 @deftypefnx {} {@var{old_val} =} sighup_dumps_octave_core (@var{new_val})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	789 @deftypefnx {} {} sighup_dumps_octave_core (@var{new_val}, "local")
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	790 Query or set the internal variable that controls whether Octave tries
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	791 to save all current variables to the file @file{octave-workspace} if it
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	792 receives a hangup signal.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	793
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	794 When called from inside a function with the @qcode{"local"} option, the
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	795 variable is changed locally for the function and any subroutines it calls.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	796 The original variable value is restored when exiting the function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	797 @end deftypefn */)
4185 8f6d418d31c3 [project @ 2002-11-15 23:22:03 by jwe] jwe parents: 4182 diff changeset	798 {
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	799 return set_internal_variable (octave::Vsighup_dumps_octave_core,
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	800 args, nargout,
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	801 "sighup_dumps_octave_core");
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	802 }
4294 755f6509bb01 [project @ 2003-01-11 04:01:53 by jwe] jwe parents: 4233 diff changeset	803
12827 8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	804 /*
8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	805 %!test
12832 03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	806 %! orig_val = sighup_dumps_octave_core ();
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	807 %! old_val = sighup_dumps_octave_core (! orig_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	808 %! assert (orig_val, old_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	809 %! assert (sighup_dumps_octave_core (), ! orig_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	810 %! sighup_dumps_octave_core (orig_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	811 %! 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	812
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14338 diff changeset	813 %!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	814 */
8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	815
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	816 DEFUN (sigterm_dumps_octave_core, args, nargout,
21966 112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	817 doc: /* -- texinfo --
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	818 @deftypefn {} {@var{val} =} sigterm_dumps_octave_core ()
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	819 @deftypefnx {} {@var{old_val} =} sigterm_dumps_octave_core (@var{new_val})
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	820 @deftypefnx {} {} sigterm_dumps_octave_core (@var{new_val}, "local")
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	821 Query or set the internal variable that controls whether Octave tries
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	822 to save all current variables to the file @file{octave-workspace} if it
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	823 receives a terminate signal.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	824
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	825 When called from inside a function with the @qcode{"local"} option, the
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	826 variable is changed locally for the function and any subroutines it calls.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	827 The original variable value is restored when exiting the function.
112b20240c87 move docstrings in C++ files out of C strings and into comments John W. Eaton <jwe@octave.org> parents: 21941 diff changeset	828 @end deftypefn */)
5794 1138ced03f14 [project @ 2006-05-08 20:23:04 by jwe] jwe parents: 5780 diff changeset	829 {
22051 6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	830 return set_internal_variable (octave::Vsigterm_dumps_octave_core,
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	831 args, nargout,
6db928d06b07 move signal functions into octave namespace John W. Eaton <jwe@octave.org> parents: 22049 diff changeset	832 "sigterm_dumps_octave_core");
4185 8f6d418d31c3 [project @ 2002-11-15 23:22:03 by jwe] jwe parents: 4182 diff changeset	833 }
12827 8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	834
8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	835 /*
8c6d71520920 codesprint: new tests for sysdep.cc functions John W. Eaton <jwe@octave.org> parents: 11586 diff changeset	836 %!test
12832 03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	837 %! orig_val = sigterm_dumps_octave_core ();
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	838 %! old_val = sigterm_dumps_octave_core (! orig_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	839 %! assert (orig_val, old_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	840 %! assert (sigterm_dumps_octave_core (), ! orig_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	841 %! sigterm_dumps_octave_core (orig_val);
03f125c0fb7b codesprint: improve tests John W. Eaton <jwe@octave.org> parents: 12827 diff changeset	842 %! 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	843
eff4a5933e28 Update %!tests in src/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14338 diff changeset	844 %!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	845 */

Mercurial > octave

annotate libinterp/corefcn/sighandlers.cc @ 23696:08036a7f3660