octave: liboctave/util/unwind-prot.h annotate

annotate liboctave/util/unwind-prot.h @ 31605:e88a07dec498 stable

maint: Use macros to begin/end C++ namespaces. * oct-conf-post-public.in.h: Define two macros (OCTAVE_BEGIN_NAMESPACE, OCTAVE_END_NAMESPACE) that can be used to start/end a namespace. * mk-opts.pl, build-env.h, build-env.in.cc, __betainc__.cc, __contourc__.cc, __dsearchn__.cc, __eigs__.cc, __expint__.cc, __ftp__.cc, __gammainc__.cc, __ichol__.cc, __ilu__.cc, __isprimelarge__.cc, __lin_interpn__.cc, __magick_read__.cc, __pchip_deriv__.cc, __qp__.cc, amd.cc, auto-shlib.cc, auto-shlib.h, balance.cc, base-text-renderer.cc, base-text-renderer.h, besselj.cc, bitfcns.cc, bsxfun.cc, c-file-ptr-stream.cc, c-file-ptr-stream.h, call-stack.cc, call-stack.h, ccolamd.cc, cellfun.cc, chol.cc, colamd.cc, colloc.cc, conv2.cc, daspk.cc, dasrt.cc, dassl.cc, data.cc, data.h, debug.cc, defaults.cc, defaults.h, defun-int.h, defun.cc, det.cc, dirfns.cc, display.cc, display.h, dlmread.cc, dmperm.cc, dot.cc, dynamic-ld.cc, dynamic-ld.h, eig.cc, ellipj.cc, environment.cc, environment.h, error.cc, error.h, errwarn.h, event-manager.cc, event-manager.h, event-queue.cc, event-queue.h, fcn-info.cc, fcn-info.h, fft.cc, fft2.cc, fftn.cc, file-io.cc, filter.cc, find.cc, ft-text-renderer.cc, ft-text-renderer.h, gcd.cc, getgrent.cc, getpwent.cc, getrusage.cc, givens.cc, gl-render.cc, gl-render.h, gl2ps-print.cc, gl2ps-print.h, graphics-toolkit.cc, graphics-toolkit.h, graphics.cc, graphics.in.h, gsvd.cc, gtk-manager.cc, gtk-manager.h, hash.cc, help.cc, help.h, hess.cc, hex2num.cc, hook-fcn.cc, hook-fcn.h, input.cc, input.h, interpreter-private.cc, interpreter-private.h, interpreter.cc, interpreter.h, inv.cc, jsondecode.cc, jsonencode.cc, kron.cc, latex-text-renderer.cc, latex-text-renderer.h, load-path.cc, load-path.h, load-save.cc, load-save.h, lookup.cc, ls-ascii-helper.cc, ls-ascii-helper.h, ls-oct-text.cc, ls-utils.cc, ls-utils.h, lsode.cc, lu.cc, mappers.cc, matrix_type.cc, max.cc, mex-private.h, mex.cc, mgorth.cc, nproc.cc, oct-fstrm.cc, oct-fstrm.h, oct-hdf5-types.cc, oct-hdf5-types.h, oct-hist.cc, oct-hist.h, oct-iostrm.cc, oct-iostrm.h, oct-opengl.h, oct-prcstrm.cc, oct-prcstrm.h, oct-procbuf.cc, oct-procbuf.h, oct-process.cc, oct-process.h, oct-stdstrm.h, oct-stream.cc, oct-stream.h, oct-strstrm.cc, oct-strstrm.h, oct-tex-lexer.in.ll, oct-tex-parser.yy, ordqz.cc, ordschur.cc, pager.cc, pager.h, pinv.cc, pow2.cc, pr-flt-fmt.cc, pr-output.cc, procstream.cc, procstream.h, psi.cc, qr.cc, quad.cc, quadcc.cc, qz.cc, rand.cc, rcond.cc, regexp.cc, schur.cc, settings.cc, settings.h, sighandlers.cc, sighandlers.h, sparse-xdiv.cc, sparse-xdiv.h, sparse-xpow.cc, sparse-xpow.h, sparse.cc, spparms.cc, sqrtm.cc, stack-frame.cc, stack-frame.h, stream-euler.cc, strfind.cc, strfns.cc, sub2ind.cc, svd.cc, sylvester.cc, symbfact.cc, syminfo.cc, syminfo.h, symrcm.cc, symrec.cc, symrec.h, symscope.cc, symscope.h, symtab.cc, symtab.h, syscalls.cc, sysdep.cc, sysdep.h, text-engine.cc, text-engine.h, text-renderer.cc, text-renderer.h, time.cc, toplev.cc, tril.cc, tsearch.cc, typecast.cc, url-handle-manager.cc, url-handle-manager.h, urlwrite.cc, utils.cc, utils.h, variables.cc, variables.h, xdiv.cc, xdiv.h, xnorm.cc, xnorm.h, xpow.cc, xpow.h, __delaunayn__.cc, __fltk_uigetfile__.cc, __glpk__.cc, __init_fltk__.cc, __init_gnuplot__.cc, __ode15__.cc, __voronoi__.cc, audiodevinfo.cc, audioread.cc, convhulln.cc, fftw.cc, gzip.cc, mk-build-env-features.sh, mk-builtins.pl, cdef-class.cc, cdef-class.h, cdef-fwd.h, cdef-manager.cc, cdef-manager.h, cdef-method.cc, cdef-method.h, cdef-object.cc, cdef-object.h, cdef-package.cc, cdef-package.h, cdef-property.cc, cdef-property.h, cdef-utils.cc, cdef-utils.h, ov-base.cc, ov-base.h, ov-bool-mat.cc, ov-builtin.h, ov-cell.cc, ov-class.cc, ov-class.h, ov-classdef.cc, ov-classdef.h, ov-complex.cc, ov-fcn-handle.cc, ov-fcn-handle.h, ov-fcn.h, ov-java.cc, ov-java.h, ov-mex-fcn.h, ov-null-mat.cc, ov-oncleanup.cc, ov-struct.cc, ov-typeinfo.cc, ov-typeinfo.h, ov-usr-fcn.cc, ov-usr-fcn.h, ov.cc, ov.h, octave.cc, octave.h, mk-ops.sh, op-b-b.cc, op-b-bm.cc, op-b-sbm.cc, op-bm-b.cc, op-bm-bm.cc, op-bm-sbm.cc, op-cdm-cdm.cc, op-cell.cc, op-chm.cc, op-class.cc, op-cm-cm.cc, op-cm-cs.cc, op-cm-m.cc, op-cm-s.cc, op-cm-scm.cc, op-cm-sm.cc, op-cs-cm.cc, op-cs-cs.cc, op-cs-m.cc, op-cs-s.cc, op-cs-scm.cc, op-cs-sm.cc, op-dm-dm.cc, op-dm-scm.cc, op-dm-sm.cc, op-dm-template.cc, op-dms-template.cc, op-fcdm-fcdm.cc, op-fcm-fcm.cc, op-fcm-fcs.cc, op-fcm-fm.cc, op-fcm-fs.cc, op-fcn.cc, op-fcs-fcm.cc, op-fcs-fcs.cc, op-fcs-fm.cc, op-fcs-fs.cc, op-fdm-fdm.cc, op-fm-fcm.cc, op-fm-fcs.cc, op-fm-fm.cc, op-fm-fs.cc, op-fs-fcm.cc, op-fs-fcs.cc, op-fs-fm.cc, op-fs-fs.cc, op-i16-i16.cc, op-i32-i32.cc, op-i64-i64.cc, op-i8-i8.cc, op-int-concat.cc, op-m-cm.cc, op-m-cs.cc, op-m-m.cc, op-m-s.cc, op-m-scm.cc, op-m-sm.cc, op-mi.cc, op-pm-pm.cc, op-pm-scm.cc, op-pm-sm.cc, op-pm-template.cc, op-range.cc, op-s-cm.cc, op-s-cs.cc, op-s-m.cc, op-s-s.cc, op-s-scm.cc, op-s-sm.cc, op-sbm-b.cc, op-sbm-bm.cc, op-sbm-sbm.cc, op-scm-cm.cc, op-scm-cs.cc, op-scm-m.cc, op-scm-s.cc, op-scm-scm.cc, op-scm-sm.cc, op-sm-cm.cc, op-sm-cs.cc, op-sm-m.cc, op-sm-s.cc, op-sm-scm.cc, op-sm-sm.cc, op-str-m.cc, op-str-s.cc, op-str-str.cc, op-struct.cc, op-ui16-ui16.cc, op-ui32-ui32.cc, op-ui64-ui64.cc, op-ui8-ui8.cc, ops.h, anon-fcn-validator.cc, anon-fcn-validator.h, bp-table.cc, bp-table.h, comment-list.cc, comment-list.h, filepos.h, lex.h, lex.ll, oct-lvalue.cc, oct-lvalue.h, oct-parse.yy, parse.h, profiler.cc, profiler.h, pt-anon-scopes.cc, pt-anon-scopes.h, pt-arg-list.cc, pt-arg-list.h, pt-args-block.cc, pt-args-block.h, pt-array-list.cc, pt-array-list.h, pt-assign.cc, pt-assign.h, pt-binop.cc, pt-binop.h, pt-bp.cc, pt-bp.h, pt-cbinop.cc, pt-cbinop.h, pt-cell.cc, pt-cell.h, pt-check.cc, pt-check.h, pt-classdef.cc, pt-classdef.h, pt-cmd.h, pt-colon.cc, pt-colon.h, pt-const.cc, pt-const.h, pt-decl.cc, pt-decl.h, pt-eval.cc, pt-eval.h, pt-except.cc, pt-except.h, pt-exp.cc, pt-exp.h, pt-fcn-handle.cc, pt-fcn-handle.h, pt-id.cc, pt-id.h, pt-idx.cc, pt-idx.h, pt-jump.h, pt-loop.cc, pt-loop.h, pt-mat.cc, pt-mat.h, pt-misc.cc, pt-misc.h, pt-pr-code.cc, pt-pr-code.h, pt-select.cc, pt-select.h, pt-spmd.cc, pt-spmd.h, pt-stmt.cc, pt-stmt.h, pt-tm-const.cc, pt-tm-const.h, pt-unop.cc, pt-unop.h, pt-vm-eval.cc, pt-walk.cc, pt-walk.h, pt.cc, pt.h, token.cc, token.h, Range.cc, Range.h, idx-vector.cc, idx-vector.h, range-fwd.h, CollocWt.cc, CollocWt.h, aepbalance.cc, aepbalance.h, chol.cc, chol.h, gepbalance.cc, gepbalance.h, gsvd.cc, gsvd.h, hess.cc, hess.h, lo-mappers.cc, lo-mappers.h, lo-specfun.cc, lo-specfun.h, lu.cc, lu.h, oct-convn.cc, oct-convn.h, oct-fftw.cc, oct-fftw.h, oct-norm.cc, oct-norm.h, oct-rand.cc, oct-rand.h, oct-spparms.cc, oct-spparms.h, qr.cc, qr.h, qrp.cc, qrp.h, randgamma.cc, randgamma.h, randmtzig.cc, randmtzig.h, randpoisson.cc, randpoisson.h, schur.cc, schur.h, sparse-chol.cc, sparse-chol.h, sparse-lu.cc, sparse-lu.h, sparse-qr.cc, sparse-qr.h, svd.cc, svd.h, child-list.cc, child-list.h, dir-ops.cc, dir-ops.h, file-ops.cc, file-ops.h, file-stat.cc, file-stat.h, lo-sysdep.cc, lo-sysdep.h, lo-sysinfo.cc, lo-sysinfo.h, mach-info.cc, mach-info.h, oct-env.cc, oct-env.h, oct-group.cc, oct-group.h, oct-password.cc, oct-password.h, oct-syscalls.cc, oct-syscalls.h, oct-time.cc, oct-time.h, oct-uname.cc, oct-uname.h, action-container.cc, action-container.h, base-list.h, cmd-edit.cc, cmd-edit.h, cmd-hist.cc, cmd-hist.h, f77-fcn.h, file-info.cc, file-info.h, lo-array-errwarn.cc, lo-array-errwarn.h, lo-hash.cc, lo-hash.h, lo-ieee.h, lo-regexp.cc, lo-regexp.h, lo-utils.cc, lo-utils.h, oct-base64.cc, oct-base64.h, oct-glob.cc, oct-glob.h, oct-inttypes.h, oct-mutex.cc, oct-mutex.h, oct-refcount.h, oct-shlib.cc, oct-shlib.h, oct-sparse.cc, oct-sparse.h, oct-string.h, octave-preserve-stream-state.h, pathsearch.cc, pathsearch.h, quit.cc, quit.h, unwind-prot.cc, unwind-prot.h, url-transfer.cc, url-transfer.h : Use new macros to begin/end C++ namespaces.

author	Rik <rik@octave.org>
date	Thu, 01 Dec 2022 14:23:45 -0800
parents	796f54d4ddbf
children	aac27ad79be6

rev	line source
27923 bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	1 ////////////////////////////////////////////////////////////////////////
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	2 //
30564 796f54d4ddbf update Octave Project Developers copyright for the new year John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	3 // Copyright (C) 1993-2022 The Octave Project Developers
27923 bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	4 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	5 // See the file COPYRIGHT.md in the top-level directory of this
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	6 // distribution or <https://octave.org/copyright/>.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	7 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	8 // This file is part of Octave.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	9 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	10 // Octave is free software: you can redistribute it and/or modify it
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	11 // under the terms of the GNU General Public License as published by
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	12 // the Free Software Foundation, either version 3 of the License, or
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	13 // (at your option) any later version.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	14 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	15 // Octave is distributed in the hope that it will be useful, but
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	16 // WITHOUT ANY WARRANTY; without even the implied warranty of
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	17 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	18 // GNU General Public License for more details.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	19 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	20 // You should have received a copy of the GNU General Public License
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	21 // along with Octave; see the file COPYING. If not, see
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	22 // <https://www.gnu.org/licenses/>.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	23 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	24 ////////////////////////////////////////////////////////////////////////
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	25
20791 f7084eae3318 maint: Use Octave coding conventions for #if statements. Rik <rik@octave.org> parents: 20545 diff changeset	26 #if ! defined (octave_unwind_prot_h)
383 0b52c68ec81f [project @ 1994-03-09 21:19:44 by jwe] jwe parents: 240 diff changeset	27 #define octave_unwind_prot_h 1
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	28
21244 1473547f50f5 include octave-config.h in public header files John W. Eaton <jwe@octave.org> parents: 21141 diff changeset	29 #include "octave-config.h"
1473547f50f5 include octave-config.h in public header files John W. Eaton <jwe@octave.org> parents: 21141 diff changeset	30
17552 d07d59cc8775 move unwind-protect to liboctave John W. Eaton <jwe@octave.org> parents: 16892 diff changeset	31 #include <cstddef>
d07d59cc8775 move unwind-protect to liboctave John W. Eaton <jwe@octave.org> parents: 16892 diff changeset	32
15396 1054ab58cd58 abstract unwind_protect John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	33 #include <stack>
9394 b3ab22ee8544 further improve unwind_protect Jaroslav Hajek <highegg@gmail.com> parents: 9384 diff changeset	34 #include <memory>
240 a99f28f5e351 [project @ 1993-11-30 20:24:36 by jwe] jwe parents: 164 diff changeset	35
15396 1054ab58cd58 abstract unwind_protect John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	36 #include "action-container.h"
1054ab58cd58 abstract unwind_protect John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	37
31605 e88a07dec498 maint: Use macros to begin/end C++ namespaces. Rik <rik@octave.org> parents: 30564 diff changeset	38 OCTAVE_BEGIN_NAMESPACE(octave)
e88a07dec498 maint: Use macros to begin/end C++ namespaces. Rik <rik@octave.org> parents: 30564 diff changeset	39
21743 f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	40 class
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	41 OCTAVE_API
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	42 unwind_protect : public action_container
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	43 {
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	44 public:
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	45
27177 8498dccc15c7 minor style fixes John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	46 unwind_protect (void) : m_lifo () { }
2985 aa9d0c0e0458 [project @ 1997-05-16 06:54:18 by jwe] jwe parents: 2847 diff changeset	47
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	48 // No copying!
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	49
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	50 unwind_protect (const unwind_protect&) = delete;
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	51
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	52 unwind_protect& operator = (const unwind_protect&) = delete;
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	53
21743 f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	54 // Destructor should not raise an exception, so all actions
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	55 // registered should be exception-safe. If you're not sure, see
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	56 // unwind_protect_safe.
9394 b3ab22ee8544 further improve unwind_protect Jaroslav Hajek <highegg@gmail.com> parents: 9384 diff changeset	57
21743 f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	58 ~unwind_protect (void) { run (); }
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	59
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	60 operator bool (void) const { return ! empty (); }
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	61
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	62 void run_first (void)
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	63 {
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	64 if (! empty ())
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	65 {
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	66 // No leak on exception!
27177 8498dccc15c7 minor style fixes John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	67 std::unique_ptr<elem> ptr (m_lifo.top ());
8498dccc15c7 minor style fixes John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	68 m_lifo.pop ();
21743 f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	69 ptr->run ();
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	70 }
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	71 }
12122 f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	72
21743 f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	73 void discard_first (void)
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	74 {
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	75 if (! empty ())
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	76 {
27177 8498dccc15c7 minor style fixes John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	77 elem *ptr = m_lifo.top ();
8498dccc15c7 minor style fixes John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	78 m_lifo.pop ();
21743 f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	79 delete ptr;
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	80 }
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	81 }
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	82
29654 d13d090cb03a use std::size_t and std::ptrdiff_t in C++ code (bug #60471) John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	83 std::size_t size (void) const { return m_lifo.size (); }
21743 f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	84
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	85 protected:
9376 d58086453171 refactor unwind_protect Jaroslav Hajek <highegg@gmail.com> parents: 8920 diff changeset	86
25653 b3d357990b52 better use of templates for action_container and derived classes John W. Eaton <jwe@octave.org> parents: 25147 diff changeset	87 virtual void add_action (elem *new_elem)
b3d357990b52 better use of templates for action_container and derived classes John W. Eaton <jwe@octave.org> parents: 25147 diff changeset	88 {
27177 8498dccc15c7 minor style fixes John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	89 m_lifo.push (new_elem);
25653 b3d357990b52 better use of templates for action_container and derived classes John W. Eaton <jwe@octave.org> parents: 25147 diff changeset	90 }
b3d357990b52 better use of templates for action_container and derived classes John W. Eaton <jwe@octave.org> parents: 25147 diff changeset	91
27177 8498dccc15c7 minor style fixes John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	92 std::stack<elem *> m_lifo;
21743 f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	93 };
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	94
21751 b571fc85953f maint: Use two spaces after period to indicate sentence break. Rik <rik@octave.org> parents: 21743 diff changeset	95 // Like unwind_protect, but this one will guard against the possibility
b571fc85953f maint: Use two spaces after period to indicate sentence break. Rik <rik@octave.org> parents: 21743 diff changeset	96 // of seeing an exception (or interrupt) in the cleanup actions.
b571fc85953f maint: Use two spaces after period to indicate sentence break. Rik <rik@octave.org> parents: 21743 diff changeset	97 // Not that we can do much about it, but at least we won't crash.
21743 f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	98
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	99 class
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	100 OCTAVE_API
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	101 unwind_protect_safe : public unwind_protect
15396 1054ab58cd58 abstract unwind_protect John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	102 {
21743 f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	103 private:
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	104
f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	105 void warn_unhandled_exception (void) const;
9396 17af7cce7d1b yet more unwind_protect improvements Jaroslav Hajek <highegg@gmail.com> parents: 9394 diff changeset	106
21743 f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	107 public:
9396 17af7cce7d1b yet more unwind_protect improvements Jaroslav Hajek <highegg@gmail.com> parents: 9394 diff changeset	108
21743 f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	109 unwind_protect_safe (void) : unwind_protect () { }
9394 b3ab22ee8544 further improve unwind_protect Jaroslav Hajek <highegg@gmail.com> parents: 9384 diff changeset	110
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	111 // No copying!
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	112
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	113 unwind_protect_safe (const unwind_protect_safe&) = delete;
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	114
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	115 unwind_protect_safe& operator = (const unwind_protect_safe&) = delete;
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	116
21743 f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	117 ~unwind_protect_safe (void)
22402 4caa7b28d183 maint: Style check C++ code in liboctave/ Rik <rik@octave.org> parents: 22323 diff changeset	118 {
4caa7b28d183 maint: Style check C++ code in liboctave/ Rik <rik@octave.org> parents: 22323 diff changeset	119 while (! empty ())
4caa7b28d183 maint: Style check C++ code in liboctave/ Rik <rik@octave.org> parents: 22323 diff changeset	120 {
4caa7b28d183 maint: Style check C++ code in liboctave/ Rik <rik@octave.org> parents: 22323 diff changeset	121 try
4caa7b28d183 maint: Style check C++ code in liboctave/ Rik <rik@octave.org> parents: 22323 diff changeset	122 {
4caa7b28d183 maint: Style check C++ code in liboctave/ Rik <rik@octave.org> parents: 22323 diff changeset	123 run_first ();
4caa7b28d183 maint: Style check C++ code in liboctave/ Rik <rik@octave.org> parents: 22323 diff changeset	124 }
4caa7b28d183 maint: Style check C++ code in liboctave/ Rik <rik@octave.org> parents: 22323 diff changeset	125 catch (...) // Yes, the black hole. Remember we're in a destructor.
4caa7b28d183 maint: Style check C++ code in liboctave/ Rik <rik@octave.org> parents: 22323 diff changeset	126 {
4caa7b28d183 maint: Style check C++ code in liboctave/ Rik <rik@octave.org> parents: 22323 diff changeset	127 warn_unhandled_exception ();
4caa7b28d183 maint: Style check C++ code in liboctave/ Rik <rik@octave.org> parents: 22323 diff changeset	128 }
4caa7b28d183 maint: Style check C++ code in liboctave/ Rik <rik@octave.org> parents: 22323 diff changeset	129 }
4caa7b28d183 maint: Style check C++ code in liboctave/ Rik <rik@octave.org> parents: 22323 diff changeset	130 }
21743 f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	131 };
27372 2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	132
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	133 // In most cases, the following are preferred for efficiency. Some
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	134 // cases may require the flexibility of the general unwind_protect
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	135 // mechanism defined above.
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	136
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	137 // Perform action at end of the current scope when unwind_action
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	138 // object destructor is called.
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	139 //
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	140 // For example:
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	141 //
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	142 // void fcn (int val) { ... }
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	143 //
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	144 // ...
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	145 //
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	146 // {
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	147 // int val = 42;
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	148 //
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	149 // // template parameters, std::bind and std::function provide
28824 a98fd0657e35 Replace unwind_protect with more efficient constructs in liboctave (bug #59192). Rik <rik@octave.org> parents: 27971 diff changeset	150 // // flexibility in calling forms (function pointer or lambda):
27372 2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	151 //
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	152 // unwind_action act1 (fcn, val);
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	153 // unwind_action act2 ([val] (void) { fcn (val); });
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	154 // }
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	155 //
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	156 // NOTE: Don't forget to provide a name for the unwind_action
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	157 // variable. If you write
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	158 //
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	159 // unwind_action /* NO NAME! */ (...);
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	160 //
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	161 // then the destructor for the temporary anonymous object will be
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	162 // called immediately after the object is constructed instead of at
27971 ec769a7ab9fb fix more spelling errors (bug #57613) John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	163 // the end of the current scope.
27372 2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	164
29251 30a5e691dd9f allow unwind_action functions to be empty and set after object creation John W. Eaton <jwe@octave.org> parents: 28824 diff changeset	165 class OCTAVE_API unwind_action
27372 2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	166 {
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	167 public:
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	168
29251 30a5e691dd9f allow unwind_action functions to be empty and set after object creation John W. Eaton <jwe@octave.org> parents: 28824 diff changeset	169 unwind_action (void) : m_fcn () { }
30a5e691dd9f allow unwind_action functions to be empty and set after object creation John W. Eaton <jwe@octave.org> parents: 28824 diff changeset	170
30a5e691dd9f allow unwind_action functions to be empty and set after object creation John W. Eaton <jwe@octave.org> parents: 28824 diff changeset	171 // FIXME: Do we need to apply std::forward to the arguments to
30a5e691dd9f allow unwind_action functions to be empty and set after object creation John W. Eaton <jwe@octave.org> parents: 28824 diff changeset	172 // std::bind here?
30a5e691dd9f allow unwind_action functions to be empty and set after object creation John W. Eaton <jwe@octave.org> parents: 28824 diff changeset	173
27372 2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	174 template <typename F, typename... Args>
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	175 unwind_action (F&& fcn, Args&&... args)
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	176 : m_fcn (std::bind (fcn, args...))
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	177 { }
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	178
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	179 // No copying!
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	180
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	181 unwind_action (const unwind_action&) = delete;
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	182
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	183 unwind_action& operator = (const unwind_action&) = delete;
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	184
29251 30a5e691dd9f allow unwind_action functions to be empty and set after object creation John W. Eaton <jwe@octave.org> parents: 28824 diff changeset	185 ~unwind_action (void) { run (); }
30a5e691dd9f allow unwind_action functions to be empty and set after object creation John W. Eaton <jwe@octave.org> parents: 28824 diff changeset	186
30a5e691dd9f allow unwind_action functions to be empty and set after object creation John W. Eaton <jwe@octave.org> parents: 28824 diff changeset	187 // FIXME: Do we need to apply std::forward to the arguments to
30a5e691dd9f allow unwind_action functions to be empty and set after object creation John W. Eaton <jwe@octave.org> parents: 28824 diff changeset	188 // std::bind here?
30a5e691dd9f allow unwind_action functions to be empty and set after object creation John W. Eaton <jwe@octave.org> parents: 28824 diff changeset	189
30a5e691dd9f allow unwind_action functions to be empty and set after object creation John W. Eaton <jwe@octave.org> parents: 28824 diff changeset	190 template <typename F, typename... Args>
30a5e691dd9f allow unwind_action functions to be empty and set after object creation John W. Eaton <jwe@octave.org> parents: 28824 diff changeset	191 void set (F&& fcn, Args&&... args)
30a5e691dd9f allow unwind_action functions to be empty and set after object creation John W. Eaton <jwe@octave.org> parents: 28824 diff changeset	192 {
30a5e691dd9f allow unwind_action functions to be empty and set after object creation John W. Eaton <jwe@octave.org> parents: 28824 diff changeset	193 m_fcn = std::bind (fcn, args...);
30a5e691dd9f allow unwind_action functions to be empty and set after object creation John W. Eaton <jwe@octave.org> parents: 28824 diff changeset	194 }
30a5e691dd9f allow unwind_action functions to be empty and set after object creation John W. Eaton <jwe@octave.org> parents: 28824 diff changeset	195
30a5e691dd9f allow unwind_action functions to be empty and set after object creation John W. Eaton <jwe@octave.org> parents: 28824 diff changeset	196 void set (void) { m_fcn = nullptr; }
30a5e691dd9f allow unwind_action functions to be empty and set after object creation John W. Eaton <jwe@octave.org> parents: 28824 diff changeset	197
29299 20092ae957da Add discard() as an alias for set() for unwind_actions. Rik <rik@octave.org> parents: 29252 diff changeset	198 // Alias for set() which is clearer about programmer intention.
20092ae957da Add discard() as an alias for set() for unwind_actions. Rik <rik@octave.org> parents: 29252 diff changeset	199 void discard (void) { set (); }
20092ae957da Add discard() as an alias for set() for unwind_actions. Rik <rik@octave.org> parents: 29252 diff changeset	200
29251 30a5e691dd9f allow unwind_action functions to be empty and set after object creation John W. Eaton <jwe@octave.org> parents: 28824 diff changeset	201 void run (void)
30a5e691dd9f allow unwind_action functions to be empty and set after object creation John W. Eaton <jwe@octave.org> parents: 28824 diff changeset	202 {
30a5e691dd9f allow unwind_action functions to be empty and set after object creation John W. Eaton <jwe@octave.org> parents: 28824 diff changeset	203 if (m_fcn)
30a5e691dd9f allow unwind_action functions to be empty and set after object creation John W. Eaton <jwe@octave.org> parents: 28824 diff changeset	204 m_fcn ();
30a5e691dd9f allow unwind_action functions to be empty and set after object creation John W. Eaton <jwe@octave.org> parents: 28824 diff changeset	205
30a5e691dd9f allow unwind_action functions to be empty and set after object creation John W. Eaton <jwe@octave.org> parents: 28824 diff changeset	206 // Invalidate so action won't run again when object is deleted.
29299 20092ae957da Add discard() as an alias for set() for unwind_actions. Rik <rik@octave.org> parents: 29252 diff changeset	207 discard ();
29251 30a5e691dd9f allow unwind_action functions to be empty and set after object creation John W. Eaton <jwe@octave.org> parents: 28824 diff changeset	208 }
27372 2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	209
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	210 private:
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	211
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	212 std::function<void (void)> m_fcn;
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	213 };
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	214
29252 e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	215 // Like unwind_action, but this one will guard against the possibility
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	216 // of seeing an exception (or interrupt) in the cleanup actions.
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	217 // Not that we can do much about it, but at least we won't crash.
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	218
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	219 class OCTAVE_API unwind_action_safe
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	220 {
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	221 private:
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	222
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	223 void warn_unhandled_exception (void) const;
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	224
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	225 public:
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	226
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	227 unwind_action_safe (void) : m_fcn () { }
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	228
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	229 // FIXME: Do we need to apply std::forward to the arguments to
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	230 // std::bind here?
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	231
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	232 template <typename F, typename... Args>
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	233 unwind_action_safe (F&& fcn, Args&&... args)
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	234 : m_fcn (std::bind (fcn, args...))
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	235 { }
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	236
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	237 // No copying!
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	238
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	239 unwind_action_safe (const unwind_action_safe&) = delete;
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	240
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	241 unwind_action_safe& operator = (const unwind_action_safe&) = delete;
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	242
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	243 ~unwind_action_safe (void) { run (); }
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	244
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	245 // FIXME: Do we need to apply std::forward to the arguments to
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	246 // std::bind here?
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	247
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	248 template <typename F, typename... Args>
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	249 void set (F&& fcn, Args&&... args)
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	250 {
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	251 m_fcn = std::bind (fcn, args...);
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	252 }
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	253
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	254 void set (void) { m_fcn = nullptr; }
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	255
29299 20092ae957da Add discard() as an alias for set() for unwind_actions. Rik <rik@octave.org> parents: 29252 diff changeset	256 // Alias for set() which is clearer about programmer intention.
20092ae957da Add discard() as an alias for set() for unwind_actions. Rik <rik@octave.org> parents: 29252 diff changeset	257 void discard (void) { set (); }
20092ae957da Add discard() as an alias for set() for unwind_actions. Rik <rik@octave.org> parents: 29252 diff changeset	258
29252 e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	259 void run (void)
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	260 {
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	261 try
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	262 {
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	263 if (m_fcn)
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	264 m_fcn ();
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	265 }
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	266 catch (...) // Yes, the black hole. Remember we're in a destructor.
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	267 {
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	268 warn_unhandled_exception ();
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	269 }
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	270
e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	271 // Invalidate so action won't run again when object is deleted.
29299 20092ae957da Add discard() as an alias for set() for unwind_actions. Rik <rik@octave.org> parents: 29252 diff changeset	272 discard ();
29252 e274759bcb12 new unwind_action class that handles execptions John W. Eaton <jwe@octave.org> parents: 29251 diff changeset	273 }
27372 2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	274
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	275 private:
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	276
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	277 std::function<void (void)> m_fcn;
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	278 };
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	279
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	280 // Reset a variable value at the end of the current scope when
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	281 // unwind_protect_var object destructor is called.
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	282 //
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	283 // For example:
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	284 //
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	285 // {
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	286 // int x = 42;
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	287 // unwind_protect_var<int> upv (x); // X will be reset at end of scope
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	288 // x = 13; // Set temporary value.
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	289 // }
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	290 //
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	291 // Temporary value may be set at construction:
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	292 //
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	293 // {
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	294 // int x = ...;
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	295 // unwind_protect_var<int> upv (x, 13); // X will be reset.
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	296 // // temporary value is 13.
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	297 // }
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	298 //
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	299 // NOTE: Don't forget to provide a name for the unwind_protect_var
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	300 // variable. If you write
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	301 //
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	302 // unwind_protect_var<type> /* NO NAME! */ (...);
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	303 //
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	304 // then the destructor for the temporary anonymous object will be
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	305 // called immediately after the object is constructed instead of at
27971 ec769a7ab9fb fix more spelling errors (bug #57613) John W. Eaton <jwe@octave.org> parents: 27923 diff changeset	306 // the end of the current scope.
27372 2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	307 //
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	308 // FIXME: Once we are able to use C++17, class template argument
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	309 // deduction will allow us to omit the explicit template type from the
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	310 // constructor expression:
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	311 //
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	312 // unwind_protect_var upv (...);
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	313
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	314 template <typename T>
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	315 class unwind_protect_var
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	316 {
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	317 public:
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	318
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	319 // Ensure that the value referenced by REF will be reset when this
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	320 // unwind_protect_var object goes out of scope.
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	321
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	322 explicit unwind_protect_var (T& ref)
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	323 : m_ref (ref), m_val (ref)
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	324 { }
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	325
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	326 // Set the value referenced by REF to NEW_VAL and ensure that it
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	327 // will be reset to its original value when this
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	328 // unwind_protect_var object goes out of scope.
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	329
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	330 unwind_protect_var (T& ref, const T& new_val)
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	331 : m_ref (ref), m_val (ref)
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	332 {
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	333 m_ref = new_val;
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	334 }
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	335
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	336 // No copying!
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	337
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	338 unwind_protect_var (const unwind_protect_var&) = delete;
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	339
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	340 unwind_protect_var& operator = (const unwind_protect_var&) = delete;
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	341
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	342 ~unwind_protect_var (void)
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	343 {
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	344 m_ref = m_val;
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	345 }
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	346
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	347 private:
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	348
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	349 T& m_ref;
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	350 T m_val;
2f8428b61bd6 new single-action unwind-protect classes John W. Eaton <jwe@octave.org> parents: 27177 diff changeset	351 };
31605 e88a07dec498 maint: Use macros to begin/end C++ namespaces. Rik <rik@octave.org> parents: 30564 diff changeset	352
e88a07dec498 maint: Use macros to begin/end C++ namespaces. Rik <rik@octave.org> parents: 30564 diff changeset	353 OCTAVE_END_NAMESPACE(octave)
21743 f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21307 diff changeset	354
1 78fd87e624cb [project @ 1993-08-08 01:13:40 by jwe] jwe parents: diff changeset	355 #endif

Mercurial > octave

annotate liboctave/util/unwind-prot.h @ 31605:e88a07dec498 stable