1993-07-15 20:34:49 +04:00
|
|
|
/* Copyright (C) 1989, 1990, 1991, 1992 Free Software Foundation, Inc.
|
|
|
|
|
Written by James Clark (jjc@jclark.com)
|
|
|
|
|
|
|
|
|
|
This file is part of groff.
|
|
|
|
|
|
|
|
|
|
groff 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 2, or (at your option) any later
|
|
|
|
|
version.
|
|
|
|
|
|
|
|
|
|
groff 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 groff; see the file COPYING. If not, write to the Free Software
|
|
|
|
|
Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
|
|
|
|
|
|
1993-08-02 21:38:43 +04:00
|
|
|
#ifndef lint
|
|
|
|
|
static char rcsid[] = "$Id: matherr.c,v 1.2 1993/08/02 17:44:05 mycroft Exp $";
|
|
|
|
|
#endif /* not lint */
|
|
|
|
|
|
1993-07-15 20:34:49 +04:00
|
|
|
#include <math.h>
|
|
|
|
|
#include <errno.h>
|
|
|
|
|
|
|
|
|
|
#ifdef HAVE_STRUCT_EXCEPTION
|
|
|
|
|
#ifdef TLOSS
|
|
|
|
|
|
|
|
|
|
int matherr(exc)
|
|
|
|
|
struct exception *exc;
|
|
|
|
|
{
|
|
|
|
|
switch (exc->type) {
|
|
|
|
|
case SING:
|
|
|
|
|
case DOMAIN:
|
|
|
|
|
errno = EDOM;
|
|
|
|
|
break;
|
|
|
|
|
case OVERFLOW:
|
|
|
|
|
case UNDERFLOW:
|
|
|
|
|
case TLOSS:
|
|
|
|
|
case PLOSS:
|
|
|
|
|
errno = ERANGE;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#endif /* TLOSS */
|
|
|
|
|
#endif /* HAVE_STRUCT_EXCEPTION */
|
