home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / gnu / groff-1.09-src.lha / src / amiga / groff-1.09 / libgroff / matherr.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-01-05  |  1.1 KB  |  46 lines
  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.  
  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.