/*
 * Copyright 06/05/97 Sun Microsystems, Inc.  All Rights Reserved.
 */

#ifndef _FENV_H
#define	_FENV_H

/*
 * The following #include redefines all of the function names specified
 * by the C9X draft standard to aliases suffixed with "96".  While the
 * standard is under development, libm9x will provide only the suffixed
 * symbols.  In a subsequent major release following the adoption of the
 * standard, libm9x will provide the standard symbols, and this #include
 * will be removed.
 */
#include <fenv96.h>

#ifdef __cplusplus
extern "C" {
#endif

#pragma ident	"@(#)fenv.h	1.3	97/06/05"

#ifdef __STDC__
#define	__P(p)	p
#else
#define	__P(p)	()
#endif

#ifdef __STDC__
#include <stdio.h>	/* for the definition of FILE */
#endif

/*
 * Rounding modes
 */
#if defined(__sparc)

#define FE_TONEAREST	0
#define FE_TOWARDZERO	1
#define FE_UPWARD	2
#define FE_DOWNWARD	3

#elif defined(__i386)

#define FE_TONEAREST	0
#define FE_DOWNWARD	1
#define FE_UPWARD	2
#define FE_TOWARDZERO	3

#endif

extern int fegetround __P((void));
extern int fesetround __P((int));

#if defined(__i386) && (__STDC__ - 0 != 1 || defined(__EXTENSIONS__))

#define FE_FLTPREC	0
#define FE_DBLPREC	2
#define FE_LDBLPREC	3

extern int fegetprec __P((void));
extern int fesetprec __P((int));

#endif

/*
 * Exception flags
 */
#if defined(__sparc)

#define FE_INEXACT	0x01
#define FE_DIVBYZERO	0x02
#define FE_UNDERFLOW	0x04
#define FE_OVERFLOW	0x08
#define FE_INVALID	0x10
#define FE_ALL_EXCEPT	0x1f

#elif defined(__i386)

#define FE_INVALID	0x01
#define FE_DIVBYZERO	0x04
#define FE_OVERFLOW	0x08
#define FE_UNDERFLOW	0x10
#define FE_INEXACT	0x20
#define FE_ALL_EXCEPT	0x3d

#endif

typedef int fexcept_t;

extern void feclearexcept __P((int));
extern void feraiseexcept __P((int));
extern int fetestexcept __P((int));
extern void fegetexceptflag __P((fexcept_t *, int));
extern void fesetexceptflag __P((const fexcept_t *, int));

#if (__STDC__ - 0 != 1 || defined(__EXTENSIONS__))

/*
 * Exception handling extensions
 */
#define FEX_NOHANDLER	-1
#define FEX_NONSTOP	0
#define FEX_ABORT	1
#define FEX_SIGNAL	2
#define FEX_CUSTOM	3

#define FEX_INEXACT	0x001
#define FEX_DIVBYZERO	0x002
#define FEX_UNDERFLOW	0x004
#define FEX_OVERFLOW	0x008
#define FEX_INV_ZDZ	0x010
#define FEX_INV_IDI	0x020
#define FEX_INV_ISI	0x040
#define FEX_INV_ZMI	0x080
#define FEX_INV_SQRT	0x100
#define FEX_INV_SNAN	0x200
#define FEX_INV_INT	0x400
#define FEX_INV_CMP	0x800
#define FEX_INVALID	0xff0
#define FEX_COMMON	(FEX_INVALID|FEX_DIVBYZERO|FEX_OVERFLOW)
#define FEX_ALL		(FEX_COMMON|FEX_UNDERFLOW|FEX_INEXACT)
#define FEX_NONE	0

#define FEX_NUM_EXC	12

/* structure to hold a numeric value in any format used by the FPU */
typedef struct {
	enum fex_nt {
		fex_nodata	= 0,
		fex_int		= 1,
		fex_llong	= 2,
		fex_float	= 3,
		fex_double	= 4,
		fex_ldouble	= 5
	} type;
	union {
		int		i;
#if (__STDC__ - 0 == 0) && !defined(_NO_LONGLONG)
		long long	l;
#else
		struct {
			int	l[2];
		} l;
#endif
		float		f;
		double		d;
		long double	q;
	} val;
} fex_numeric_t;

/* structure to supply information about an exception to a custom handler */
typedef struct {
	enum fex_op {
		fex_add		= 0,
		fex_sub		= 1,
		fex_mul		= 2,
		fex_div		= 3,
		fex_sqrt	= 4,
		fex_cnvt	= 5,
		fex_cmp		= 6,
		fex_other	= 7
	} op;			/* operation that caused the exception */
	int		flags;	/* flags to be set */
	fex_numeric_t	op1, op2, res;	/* operands and result */
} fex_info_t;

typedef struct fex_handler_data {
	int	__mode;
	void	(*__handler)();
} fex_handler_t[FEX_NUM_EXC];

extern int fex_get_handling __P((int));
extern int fex_set_handling __P((int, int, void (*)()));

extern void fex_getexcepthandler __P((fex_handler_t *, int));
extern void fex_setexcepthandler __P((const fex_handler_t *, int));

extern FILE *fex_get_log __P((void));
extern int fex_set_log __P((FILE *));
extern int fex_get_log_depth __P((void));
extern int fex_set_log_depth __P((int));
extern void fex_log_entry __P((const char *));

#endif /* (__STDC__ - 0 != 1 || defined(__EXTENSIONS__)) */

/*
 * Environment as a whole
 */
typedef struct {
	fex_handler_t	__handlers;
	unsigned long	__fsr;
} fenv_t;

#ifdef __STDC__
extern const fenv_t __fenv_dfl_env;
#else
extern fenv_t __fenv_dfl_env;
#endif

#define FE_DFL_ENV	(&__fenv_dfl_env)

extern void fegetenv __P((fenv_t *));
extern void fesetenv __P((const fenv_t *));
extern int feholdexcept __P((fenv_t *));
extern void feupdateenv __P((const fenv_t *));

#if (__STDC__ - 0 != 1 || defined(__EXTENSIONS__))
extern void fex_merge_flags __P((const fenv_t *));
#endif

#ifdef __cplusplus
}
#endif

#endif	/* !defined(_FENV_H) */