Subversion Repositories or1k

/* @(#)s_matherr.c 5.1 93/09/24 */

/*

 * ====================================================

 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.

 *

 * Developed at SunPro, a Sun Microsystems, Inc. business.

 * Permission to use, copy, modify, and distribute this

 * software is freely granted, provided that this notice

 * is preserved.

 * ====================================================

 */

/*

FUNCTION

        <<matherr>>---modifiable math error handler

INDEX

        matherr

ANSI_SYNOPSIS

        #include <math.h>

        int matherr(struct exception *<[e]>);

TRAD_SYNOPSIS

        #include <math.h>

        int matherr(*<[e]>)

        struct exception *<[e]>;

DESCRIPTION

<<matherr>> is called whenever a math library function generates an error.

You can replace <<matherr>> by your own subroutine to customize

error treatment.  The customized <<matherr>> must return 0 if

it fails to resolve the error, and non-zero if the error is resolved.

When <<matherr>> returns a nonzero value, no error message is printed

and the value of <<errno>> is not modified.  You can accomplish either

or both of these things in your own <<matherr>> using the information

passed in the structure <<*<[e]>>>.

This is the <<exception>> structure (defined in `<<math.h>>'):

.       struct exception {

.               int type;

.               char *name;

.               double arg1, arg2, retval;

.               int err;

.       };

The members of the exception structure have the following meanings:

o+

o type

The type of mathematical error that occured; macros encoding error

types are also defined in `<<math.h>>'.

o name

a pointer to a null-terminated string holding the

name of the math library function where the error occurred.

o arg1, arg2

The arguments which caused the error.

o retval

The error return value (what the calling function will return).

o err

If set to be non-zero, this is the new value assigned to <<errno>>.

o-

The error types defined in `<<math.h>>' represent possible mathematical

errors as follows:

o+

o DOMAIN

An argument was not in the domain of the function; e.g. <<log(-1.0)>>.

o SING

The requested calculation would result in a singularity; e.g. <<pow(0.0,-2.0)>>

o OVERFLOW

A calculation would produce a result too large to represent; e.g.

<<exp(1000.0)>>.

o UNDERFLOW

A calculation would produce a result too small to represent; e.g.

<<exp(-1000.0)>>.

o TLOSS

Total loss of precision.  The result would have no significant digits;

e.g. <<sin(10e70)>>.

o PLOSS

Partial loss of precision.

o-

RETURNS

The library definition for <<matherr>> returns <<0>> in all cases.

You can change the calling function's result from a customized <<matherr>>

by modifying <<e->retval>>, which propagates backs to the caller.

If <<matherr>> returns <<0>> (indicating that it was not able to resolve

the error) the caller sets <<errno>> to an appropriate value, and prints

an error message.

PORTABILITY

<<matherr>> is not ANSI C.

*/

#include "fdlibm.h"

#ifdef __STDC__

        int matherr(struct exception *x)

#else

        int matherr(x)

        struct exception *x;

#endif

{

        int n=0;

        if(x->arg1!=x->arg1) return 0;

        return n;

}