]> cvs.zerfleddert.de Git - micropolis/blob - src/tclx/src/tclxmerr.c
dc3596b238e6a249673113c5543d4e0d584d90e4
[micropolis] / src / tclx / src / tclxmerr.c
1 /*
2 * tclXmatherr.c --
3 *
4 * Extended Tcl default matherr routine, may be replace by an application
5 * specified version.
6 *-----------------------------------------------------------------------------
7 * Copyright 1992 Karl Lehenbauer and Mark Diekhans.
8 *
9 * Permission to use, copy, modify, and distribute this software and its
10 * documentation for any purpose and without fee is hereby granted, provided
11 * that the above copyright notice appear in all copies. Karl Lehenbauer and
12 * Mark Diekhans make no representations about the suitability of this
13 * software for any purpose. It is provided "as is" without express or
14 * implied warranty.
15 *-----------------------------------------------------------------------------
16 * $Id: tclXmatherr.c,v 2.1 1992/11/09 07:33:02 markd Exp $
17 *-----------------------------------------------------------------------------
18 */
19 #include "tclxtend.h"
20
21 #ifndef TCL_IEEE_FP_MATH
22
23 #include <math.h>
24 \f
25 /*
26 *-----------------------------------------------------------------------------
27 *
28 * matherr --
29 * Default matherr routine for extended Tcl. If the error does not
30 * belong to Tcl, standard math error processing is done. An
31 * aplication may replace this routine with their own, however it must
32 * call \fBTcl_MathError\fR to check if the error belongs to tcl.
33 *
34 *-----------------------------------------------------------------------------
35 */
36 int
37 matherr (except)
38 struct exception *except;
39 {
40 if (Tcl_MathError (except->name, except->type))
41 return 1;
42 else
43 return 0;
44 }
45
46 #else
47 \f
48 /*
49 *-----------------------------------------------------------------------------
50 *
51 * matherr --
52 * Dummy matherr for systems wanting to use IEEE 745-1985 floating point
53 * math error reporting. This just disables standard Unix matherr message
54 * printing by returning 1. Except parameter not specified, since some systems
55 * don't define it or even use matherr.
56 *
57 *-----------------------------------------------------------------------------
58 */
59 int
60 matherr ()
61 {
62 return 1;
63 }
64
65 #endif /* TCL_IEEE_FP_MATH */
Impressum, Datenschutz