1 /* $NetBSD: matherr.c,v 1.1.1.1 2016/01/13 18:41:48 christos Exp $ */ 2 3 /* Copyright (C) 1989, 1990, 1991, 1992, 2001 Free Software Foundation, Inc. 4 Written by James Clark (jjc@jclark.com) 5 6 This file is part of groff. 7 8 groff is free software; you can redistribute it and/or modify it under 9 the terms of the GNU General Public License as published by the Free 10 Software Foundation; either version 2, or (at your option) any later 11 version. 12 13 groff is distributed in the hope that it will be useful, but WITHOUT ANY 14 WARRANTY; without even the implied warranty of MERCHANTABILITY or 15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License 16 for more details. 17 18 You should have received a copy of the GNU General Public License along 19 with groff; see the file COPYING. If not, write to the Free Software 20 Foundation, 51 Franklin St - Fifth Floor, Boston, MA 02110-1301, USA. */ 21 22 #ifdef HAVE_CONFIG_H 23 #include <config.h> 24 #endif 25 26 #include <math.h> 27 #include <errno.h> 28 29 #ifdef HAVE_STRUCT_EXCEPTION 30 #ifdef TLOSS 31 32 int matherr(exc) 33 struct exception *exc; 34 { 35 switch (exc->type) { 36 case SING: 37 case DOMAIN: 38 errno = EDOM; 39 break; 40 case OVERFLOW: 41 case UNDERFLOW: 42 case TLOSS: 43 case PLOSS: 44 errno = ERANGE; 45 break; 46 } 47 return 1; 48 } 49 50 #endif /* TLOSS */ 51 #endif /* HAVE_STRUCT_EXCEPTION */ 52