home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / bsd_srcs / usr.bin / groff / libgroff / grot / matherr.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-04-30  |  1.1 KB  |  45 lines
  1. /* Copyright (C) 1989, 1990 Free Software Foundation, Inc.
  2.      Written by James Clark (jjc@jclark.uucp)
  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 1, 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 LICENSE.  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 TLOSS
  24.  
  25. int matherr(exc)
  26. struct exception *exc;
  27. {
  28.   switch (exc->type) {
  29.   case SING:
  30.   case DOMAIN:
  31.     errno = EDOM;
  32.     break;
  33.   case OVERFLOW:
  34.   case UNDERFLOW:
  35.   case TLOSS:
  36.   case PLOSS:
  37.     errno = ERANGE;
  38.     break;
  39.   }
  40.   return 1;
  41. }
  42.  
  43. #endif /* TLOSS */
  44.  
  45.