Mercurial > hg > octave-nkf
view libcruft/misc/quit.h @ 4196:f874c6c68845
[project @ 2002-11-20 22:27:01 by jwe]
author | jwe |
---|---|
date | Wed, 20 Nov 2002 22:27:01 +0000 |
parents | 4d1d7c51205c |
children | 363d406ec86c |
line wrap: on
line source
/* Copyright (C) 2002 John W. Eaton This file is part of Octave. Octave is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. Octave is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with Octave; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #if !defined (octave_quit_h) #define octave_quit_h 1 #ifdef __cplusplus extern "C" { #endif #include <stdio.h> #include <signal.h> #include <setjmp.h> #ifdef __cplusplus #include <new> #endif #if defined (OCTAVE_HAVE_SIG_JUMP) typedef sigjmp_buf octave_jmp_buf; #define octave_set_current_context sigsetjmp (current_context, 1) #else typedef jmp_buf octave_jmp_buf; #define octave_set_current_context setjmp (current_context) #endif extern octave_jmp_buf current_context; extern void octave_save_current_context (void *); extern void octave_restore_current_context (void *); extern void octave_jump_to_enclosing_context (void) GCC_ATTR_NORETURN; extern void octave_save_signal_mask (void); extern void octave_restore_signal_mask (void); #ifdef __cplusplus class octave_interrupt_exception { }; #endif extern sig_atomic_t octave_interrupt_immediately; extern sig_atomic_t octave_interrupt_state; extern sig_atomic_t octave_allocation_error; extern void octave_throw_interrupt_exception (void) GCC_ATTR_NORETURN; extern void octave_throw_bad_alloc (void) GCC_ATTR_NORETURN; #define OCTAVE_QUIT \ do \ { \ if (octave_interrupt_state) \ { \ octave_interrupt_state = 0; \ octave_throw_interrupt_exception (); \ } \ } \ while (0) #define BEGIN_INTERRUPT_IMMEDIATELY_IN_FOREIGN_CODE \ do \ { \ octave_jmp_buf saved_context; \ \ octave_save_current_context ((char *) saved_context); \ \ if (octave_set_current_context) \ { \ octave_restore_current_context ((char *) saved_context); \ octave_throw_interrupt_exception (); \ } \ else \ { \ octave_interrupt_immediately++ #define END_INTERRUPT_IMMEDIATELY_IN_FOREIGN_CODE \ octave_interrupt_immediately--; \ octave_restore_current_context ((char *) saved_context); \ } \ } \ while (0) #ifdef __cplusplus #define BEGIN_INTERRUPT_WITH_EXCEPTIONS \ sig_atomic_t saved_octave_interrupt_immediately = octave_interrupt_immediately; \ \ try \ { \ octave_interrupt_immediately = 0; #define END_INTERRUPT_WITH_EXCEPTIONS \ } \ catch (octave_interrupt_exception) \ { \ octave_interrupt_immediately = saved_octave_interrupt_immediately; \ octave_jump_to_enclosing_context (); \ } \ catch (std::bad_alloc) \ { \ octave_interrupt_immediately = saved_octave_interrupt_immediately; \ octave_allocation_error = 1; \ octave_jump_to_enclosing_context (); \ } \ \ octave_interrupt_immediately = saved_octave_interrupt_immediately #endif #ifdef __cplusplus } #endif #endif /* ;;; Local Variables: *** ;;; mode: C++ *** ;;; End: *** */