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