Mercurial > octave-nkf
view examples/code/unwinddemo.cc @ 19444:95c533ed464b
use warning IDs for all warnings in liboctave
* CSparse.cc, MatrixType.cc, Sparse.cc, dSparse.cc, dbleQR.cc,
eigs-base.cc, lo-specfun.cc, cmd-hist.cc, data-conv.cc, kpse.cc,
lo-regexp.cc, oct-locbuf.cc, oct-shlib.cc, sparse-util.cc:
Use current_liboctave_warning_with_id_handler and provide warning IDs
for all warnings in liboctave code.
* unwinddemo.cc: Also preserve and restore warning_wit_id_handler.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 18 Dec 2014 10:50:09 -0500 |
parents | c8240a60dd01 |
children | 2f8500ca91d3 |
line wrap: on
line source
#include <octave/oct.h> #include <octave/unwind-prot.h> void my_err_handler (const char *fmt, ...) { // Do nothing!! } void my_err_with_id_handler (const char *id, const char *fmt, ...) { // Do nothing!! } DEFUN_DLD (unwinddemo, args, nargout, "Unwind Demo") { octave_value retval; int nargin = args.length (); if (nargin < 2) print_usage (); else { NDArray a = args(0).array_value (); NDArray b = args(1).array_value (); if (! error_state) { // Declare unwind_protect frame which lasts as long as // the variable frame has scope. unwind_protect frame; frame.add_fcn (set_liboctave_warning_handler, current_liboctave_warning_handler); frame.add_fcn (set_liboctave_warning_with_id_handler, current_liboctave_warning_with_id_handler); set_liboctave_warning_handler (my_err_handler); set_liboctave_warning_with_id_handler (my_err_with_id_handler); retval = octave_value (quotient (a, b)); } } return retval; }