gnu/dist/groff/src/libs/libgroff/matherr.c

   1 /*      $NetBSD$        */
   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 */