/*	Copyright (C) 1989 AT&T					*/
/*	  All Rights Reserved  					*/

/*	THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T	*/
/*	The copyright notice above does not evidence any   	*/
/*	actual or intended publication of such source code.	*/

#ifndef _FLOATINGPOINT_H
#define _FLOATINGPOINT_H

#ifdef  __cplusplus
extern "C" {
#endif

#pragma ident	"@(#)floatingpoint.h	2.3 93/09/07 SunPro"

/*
 *	@(#)floatingpoint.h	2.3 93/09/07 ICL version  2.2	(88/11/03)
 *		Copyright ICL 1988
 */

/*
 * Copyright 07 Sep 1993 Sun Microsystems, Inc.  All Rights Reserved.
 *
 * <floatingpoint.h> contains definitions for constants, types, variables,
 * and functions for:
 *	IEEE floating-point arithmetic base conversion;
 *	IEEE floating-point arithmetic modes;
 *	IEEE floating-point arithmetic exception handling.
 */

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

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

#define N_IEEE_EXCEPTION 5	/* Number of floating-point exceptions. */

typedef int sigfpe_code_type;	/* Type of SIGFPE code. */

typedef void (*sigfpe_handler_type)();	/* Pointer to exception handler */

#define SIGFPE_DEFAULT (void (*)())0	/* default exception handling */
#define SIGFPE_IGNORE  (void (*)())1  	/* ignore this exception or code */
#define SIGFPE_ABORT   (void (*)())2  	/* force abort on exception */

extern sigfpe_handler_type sigfpe __P((sigfpe_code_type, sigfpe_handler_type));

/*
 * Types for IEEE floating point.
 */
typedef float single;			

typedef long double quadruple;	/* Quadruple-precision type. */

#ifndef _EXTENDED
#define _EXTENDED
typedef unsigned extended[sizeof(quadruple)/sizeof(unsigned)];
#endif

typedef unsigned fp_exception_field_type;
				/*
				 * A field containing fp_exceptions OR'ed
				 * together.
				 */
/*
 * Definitions for base conversion.
 */
#define DECIMAL_STRING_LENGTH 512	/* Size of buffer in decimal_record. */

typedef char decimal_string[DECIMAL_STRING_LENGTH];	
				/* Decimal significand. */

typedef struct {
	enum fp_class_type fpclass;
	int	sign;
	int	exponent;
	decimal_string ds;	/* Significand - each char contains an ascii
				   digit, except the string-terminating
				   ascii null. */
	int	more;		/* On conversion from decimal to binary, != 0
				   indicates more non-zero digits following
				   ds. */
	int 	ndigits;	/* On fixed_form conversion from binary to
				   decimal, contains number of digits required
				   for ds. */
} decimal_record;

enum decimal_form {
	fixed_form,		/* Fortran F format: ndigits specifies number of
				   digits after point; if negative, specifies
				   rounding to occur to left of point. */
	floating_form		/* Fortran E format: ndigits specifies number of
				   significant digits. */
};

typedef struct {
	enum fp_direction_type rd;	
				/* Rounding direction. */
	enum decimal_form df;	/* Format for conversion from
				   binary to decimal. */
	int ndigits;		/* Number of digits for conversion. */
} decimal_mode;

enum decimal_string_form {	/* Valid decimal number string formats. */
	invalid_form,		/* Not a valid decimal string format. */
	whitespace_form,	/* All white space - valid in Fortran! */
	fixed_int_form,		/* <digs> 		*/
	fixed_intdot_form,	/* <digs>. 		*/
	fixed_dotfrac_form,	/* .<digs>		*/
	fixed_intdotfrac_form,	/* <digs>.<frac>	*/
	floating_int_form,	/* <digs><exp>		*/	
	floating_intdot_form,	/* <digs>.<exp>		*/
	floating_dotfrac_form,	/* .<digs><exp>		*/
	floating_intdotfrac_form,/* <digs>.<digs><exp>	*/
	inf_form,		/* inf			*/
	infinity_form,		/* infinity		*/
	nan_form,		/* nan			*/
	nanstring_form		/* nan(string)		*/
};

enum fp_class_type fp_class  __P((double ));
extern void single_to_decimal __P((single *, decimal_mode *, decimal_record *,
				fp_exception_field_type *));
/* tikh 06.07.98 */
/*extern void double_to_decimal __P((double *, decimal_mode *, decimal_record *,
				fp_exception_field_type *));*/
extern void double_to_decimal_narch __P((double, decimal_mode *, decimal_record *,
                                     fp_exception_field_type *));
#define double_to_decimal(p1,p2,p3,p4)  double_to_decimal_narch(*(p1),p2,p3,p4)
extern void extended_to_decimal __P((extended *, decimal_mode *,
				decimal_record *, fp_exception_field_type *));
extern void quadruple_to_decimal __P((quadruple *, decimal_mode *,
				decimal_record *, fp_exception_field_type *));

extern void decimal_to_single __P((single *, decimal_mode *, decimal_record *,
				fp_exception_field_type *));
extern void decimal_to_double __P((double *, decimal_mode *, decimal_record *,
				fp_exception_field_type *));
extern void decimal_to_extended __P((extended *, decimal_mode *,
				decimal_record *, fp_exception_field_type *));
extern void decimal_to_quadruple __P((quadruple *, decimal_mode *,
				decimal_record *, fp_exception_field_type *));

extern void string_to_decimal __P((char **, int, int, decimal_record *,
				enum decimal_string_form *, char **));
extern void func_to_decimal __P((char **, int, int, decimal_record *,
				enum decimal_string_form *, char **,
				int (*)(void), int *, int (*)(int)));
extern void file_to_decimal __P((char **, int, int, decimal_record *,
				enum decimal_string_form *, char **,
				FILE *, int *));

extern char *seconvert __P((single *, int, int *, int *, char *));
extern char *sfconvert __P((single *, int, int *, int *, char *));
extern char *sgconvert __P((single *, int, int, char *));
extern char *econvert __P((double, int, int *, int *, char *));
extern char *fconvert __P((double, int, int *, int *, char *));
extern char *gconvert __P((double, int, int, char *));
extern char *qeconvert __P((quadruple *, int, int *, int *, char *));
extern char *qfconvert __P((quadruple *, int, int *, int *, char *));
extern char *qgconvert __P((quadruple *, int, int, char *));

extern char *ecvt __P((double, int, int *, int *));
extern char *fcvt __P((double, int, int *, int *));
extern char *gcvt __P((double, int, char *));

/*
 * ANSI C Standard says the following entry points should be
 * prototyped in <stdlib.h>.  They are now, but weren't before.
 */
extern double atof __P((const char *));
extern double strtod __P((const char *, char **));

#ifdef  __cplusplus
}
#endif

#endif /* _FLOATINGPOINT_H */
