Mercurial > octave
view liboctave/cruft/misc/lo-error.c @ 21691:263d18409fdf
Eliminate unused variable warnings for conditionally compiled code.
We had more or less decided not to bother trying to eliminate all
these warnings for cases in which external dependencies are missing.
But then we get people trying to fix these in various ways, so we
might as well do it for all cases and use a consistent method.
* oct-conf-post.in.h (octave_unused_parameter): New function for C++
code and new macro for C code.
* mk-octave-config-h.sh: Emit octave_unused_parameter function and
macro for octave-config.h.
* CSparse.cc, __delaunayn__.cc, __eigs__.cc, __fltk_uigetfile__.cc,
__glpk__.cc, __magick_read__.cc, __osmesa_print__.cc, __voronoi__.cc,
amd.cc, audiodevinfo.cc, audioread.cc, ccolamd.cc, cdisplay.c,
colamd.cc, convhulln.cc, dSparse.cc, dmperm.cc, fftw.cc, gl-render.cc,
lo-error.c, load-save.cc, ls-hdf5.cc, ls-mat5.cc, oct-hdf5-types.cc,
ov-base-int.cc, ov-bool-mat.cc, ov-bool-sparse.cc, ov-bool.cc,
ov-cell.cc, ov-class.cc, ov-complex.cc, ov-cx-mat.cc, ov-cx-sparse.cc,
ov-fcn-handle.cc, ov-fcn-inline.cc, ov-float.cc, ov-flt-complex.cc,
ov-flt-cx-mat.cc, ov-flt-re-mat.cc, ov-java.cc, ov-range.cc,
ov-re-mat.cc, ov-re-sparse.cc, ov-scalar.cc, ov-str-mat.cc,
ov-struct.cc, sparse-chol.cc, sparse-dmsolve.cc, sparse-lu.cc,
sparse-qr.cc, sparse-util.cc, symbfact.cc: Use octave_unused_parameter
to eliminate warnings for conditionally compiled code.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Fri, 13 May 2016 09:36:14 -0400 |
parents | 40de9f8f23a6 |
children | aba2e6293dd8 |
line wrap: on
line source
/* Copyright (C) 1996-2015 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 3 of the License, 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, see <http://www.gnu.org/licenses/>. */ #ifdef HAVE_CONFIG_H # include "config.h" #endif #include <stdarg.h> #include <stdio.h> #include <stdlib.h> #include "lo-error.h" /* Having this file in this directory is a kluge to avoid unresolved symbol errors when creating shared versions of libcruft. */ /* Pointer to the current error handling function. */ OCTAVE_NORETURN liboctave_error_handler current_liboctave_error_handler = liboctave_fatal; /* Pointer to the current error_with_id handling function. */ OCTAVE_NORETURN liboctave_error_with_id_handler current_liboctave_error_with_id_handler = liboctave_fatal_with_id; /* Pointer to the current warning handler. */ liboctave_warning_handler current_liboctave_warning_handler = liboctave_warning; /* Pointer to the current warning_with_id handler. */ liboctave_warning_with_id_handler current_liboctave_warning_with_id_handler = liboctave_warning_with_id; static void verror (const char *name, const char *fmt, va_list args) { if (name) fprintf (stderr, "%s: ", name); vfprintf (stderr, fmt, args); fprintf (stderr, "\n"); fflush (stderr); } void set_liboctave_error_handler (OCTAVE_NORETURN liboctave_error_handler f) { if (f) current_liboctave_error_handler = f; else current_liboctave_error_handler = liboctave_fatal; } void set_liboctave_error_with_id_handler (OCTAVE_NORETURN liboctave_error_with_id_handler f) { if (f) current_liboctave_error_with_id_handler = f; else current_liboctave_error_with_id_handler = liboctave_fatal_with_id; } void set_liboctave_warning_handler (liboctave_warning_handler f) { if (f) current_liboctave_warning_handler = f; else current_liboctave_warning_handler = liboctave_warning; } void set_liboctave_warning_with_id_handler (liboctave_warning_with_id_handler f) { if (f) current_liboctave_warning_with_id_handler = f; else current_liboctave_warning_with_id_handler = liboctave_warning_with_id; } void liboctave_fatal (const char *fmt, ...) { va_list args; va_start (args, fmt); verror ("fatal", fmt, args); va_end (args); exit (1); } void liboctave_fatal_with_id (const char *id, const char *fmt, ...) { octave_unused_parameter (id); va_list args; va_start (args, fmt); verror ("fatal", fmt, args); va_end (args); exit (1); } void liboctave_warning (const char *fmt, ...) { va_list args; va_start (args, fmt); verror ("warning", fmt, args); va_end (args); } void liboctave_warning_with_id (const char *id, const char *fmt, ...) { octave_unused_parameter (id); va_list args; va_start (args, fmt); verror ("warning", fmt, args); va_end (args); }