matherr.c

Go to the documentation of this file.
00001 /*
00002 
00003 Copyright (C) 1997-2012 John W. Eaton
00004 
00005 This file is part of Octave.
00006 
00007 Octave is free software; you can redistribute it and/or modify it
00008 under the terms of the GNU General Public License as published by the
00009 Free Software Foundation; either version 3 of the License, or (at your
00010 option) any later version.
00011 
00012 Octave is distributed in the hope that it will be useful, but WITHOUT
00013 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
00014 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
00015 for more details.
00016 
00017 You should have received a copy of the GNU General Public License
00018 along with Octave; see the file COPYING.  If not, see
00019 <http://www.gnu.org/licenses/>.
00020 
00021 */
00022 
00023 #ifdef HAVE_CONFIG_H
00024 #include <config.h>
00025 #endif
00026 
00027 #if defined (EXCEPTION_IN_MATH)
00028 
00029 #include "lo-math.h"
00030 
00031 int
00032 matherr (struct exception *x)
00033 {
00034   /* Possibly print our own message someday.  Should probably be
00035      user-switchable. */
00036 
00037   switch (x->type)
00038     {
00039     case DOMAIN:
00040     case SING:
00041     case OVERFLOW:
00042     case UNDERFLOW:
00043     case TLOSS:
00044     case PLOSS:
00045     default:
00046       break;
00047     }
00048 
00049   /* But don't print the system message. */
00050 
00051   return 1;
00052 }
00053 #endif
 All Classes Files Functions Variables Typedefs Enumerations Enumerator Friends Defines