Home | History | Annotate | Line # | Download | only in gdtoa
gdtoa.h revision 1.4
      1 /* $NetBSD: gdtoa.h,v 1.4 2006/03/11 18:38:14 kleink Exp $ */
      2 
      3 /****************************************************************
      4 
      5 The author of this software is David M. Gay.
      6 
      7 Copyright (C) 1998 by Lucent Technologies
      8 All Rights Reserved
      9 
     10 Permission to use, copy, modify, and distribute this software and
     11 its documentation for any purpose and without fee is hereby
     12 granted, provided that the above copyright notice appear in all
     13 copies and that both that the copyright notice and this
     14 permission notice and warranty disclaimer appear in supporting
     15 documentation, and that the name of Lucent or any of its entities
     16 not be used in advertising or publicity pertaining to
     17 distribution of the software without specific, written prior
     18 permission.
     19 
     20 LUCENT DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
     21 INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS.
     22 IN NO EVENT SHALL LUCENT OR ANY OF ITS ENTITIES BE LIABLE FOR ANY
     23 SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
     24 WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER
     25 IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
     26 ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF
     27 THIS SOFTWARE.
     28 
     29 ****************************************************************/
     30 
     31 /* Please send bug reports to David M. Gay (dmg at acm dot org,
     32  * with " at " changed at "@" and " dot " changed to ".").	*/
     33 
     34 #ifndef GDTOA_H_INCLUDED
     35 #define GDTOA_H_INCLUDED
     36 
     37 #include "arith.h"
     38 
     39 #ifndef Long
     40 #define Long long
     41 #endif
     42 #ifndef ULong
     43 typedef unsigned Long ULong;
     44 #endif
     45 #ifndef UShort
     46 typedef unsigned short UShort;
     47 #endif
     48 
     49 #ifndef ANSI
     50 #ifdef KR_headers
     51 #define ANSI(x) ()
     52 #define Void /*nothing*/
     53 #else
     54 #define ANSI(x) x
     55 #define Void void
     56 #endif
     57 #endif /* ANSI */
     58 
     59 #ifndef CONST
     60 #ifdef KR_headers
     61 #define CONST /* blank */
     62 #else
     63 #define CONST const
     64 #endif
     65 #endif /* CONST */
     66 
     67  enum {	/* return values from strtodg */
     68 	STRTOG_Zero	= 0,
     69 	STRTOG_Normal	= 1,
     70 	STRTOG_Denormal	= 2,
     71 	STRTOG_Infinite	= 3,
     72 	STRTOG_NaN	= 4,
     73 	STRTOG_NaNbits	= 5,
     74 	STRTOG_NoNumber	= 6,
     75 	STRTOG_Retmask	= 7,
     76 
     77 	/* The following may be or-ed into one of the above values. */
     78 
     79 	STRTOG_Neg	= 0x08,
     80 	STRTOG_Inexlo	= 0x10,
     81 	STRTOG_Inexhi	= 0x20,
     82 	STRTOG_Inexact	= 0x30,
     83 	STRTOG_Underflow= 0x40,
     84 	STRTOG_Overflow	= 0x80
     85 	};
     86 
     87  typedef struct
     88 FPI {
     89 	int nbits;
     90 	int emin;
     91 	int emax;
     92 	int rounding;
     93 	int sudden_underflow;
     94 	} FPI;
     95 
     96 enum {	/* FPI.rounding values: same as FLT_ROUNDS */
     97 	FPI_Round_zero = 0,
     98 	FPI_Round_near = 1,
     99 	FPI_Round_up = 2,
    100 	FPI_Round_down = 3
    101 	};
    102 
    103 #ifdef __cplusplus
    104 extern "C" {
    105 #endif
    106 
    107 #define	dtoa		__dtoa
    108 #define	freedtoa	__freedtoa
    109 #define	strtodg		__strtodg_D2A
    110 #define	strtord		__strtord_D2A
    111 
    112 extern char* dtoa  ANSI((double d, int mode, int ndigits, int *decpt,
    113 			int *sign, char **rve));
    114 extern char* gdtoa ANSI((FPI *fpi, int be, ULong *bits, int *kindp,
    115 			int mode, int ndigits, int *decpt, char **rve));
    116 extern void freedtoa ANSI((char*));
    117 extern float  strtof ANSI((CONST char *, char **));
    118 extern double strtod ANSI((CONST char *, char **));
    119 extern int strtodg ANSI((CONST char*, char**, CONST FPI*, Long*, ULong*));
    120 
    121 extern char*	g_ddfmt  ANSI((char*, double*, int, unsigned));
    122 extern char*	g_dfmt   ANSI((char*, double*, int, unsigned));
    123 extern char*	g_ffmt   ANSI((char*, float*,  int, unsigned));
    124 extern char*	g_Qfmt   ANSI((char*, void*,   int, unsigned));
    125 extern char*	g_xfmt   ANSI((char*, void*,   int, unsigned));
    126 extern char*	g_xLfmt  ANSI((char*, void*,   int, unsigned));
    127 
    128 extern int	strtoId  ANSI((CONST char*, char**, double*, double*));
    129 extern int	strtoIdd ANSI((CONST char*, char**, double*, double*));
    130 extern int	strtoIf  ANSI((CONST char*, char**, float*, float*));
    131 extern int	strtoIQ  ANSI((CONST char*, char**, void*, void*));
    132 extern int	strtoIx  ANSI((CONST char*, char**, void*, void*));
    133 extern int	strtoIxL ANSI((CONST char*, char**, void*, void*));
    134 extern int	strtord  ANSI((CONST char*, char**, int, double*));
    135 extern int	strtordd ANSI((CONST char*, char**, int, double*));
    136 extern int	strtorf  ANSI((CONST char*, char**, int, float*));
    137 extern int	strtorQ  ANSI((CONST char*, char**, int, void*));
    138 extern int	strtorx  ANSI((CONST char*, char**, int, void*));
    139 extern int	strtorxL ANSI((CONST char*, char**, int, void*));
    140 #if 1
    141 extern int	strtodI  ANSI((CONST char*, char**, double*));
    142 extern int	strtopd  ANSI((CONST char*, char**, double*));
    143 extern int	strtopdd ANSI((CONST char*, char**, double*));
    144 extern int	strtopf  ANSI((CONST char*, char**, float*));
    145 extern int	strtopQ  ANSI((CONST char*, char**, void*));
    146 extern int	strtopx  ANSI((CONST char*, char**, void*));
    147 extern int	strtopxL ANSI((CONST char*, char**, void*));
    148 #else
    149 #define strtopd(s,se,x) strtord(s,se,1,x)
    150 #define strtopdd(s,se,x) strtordd(s,se,1,x)
    151 #define strtopf(s,se,x) strtorf(s,se,1,x)
    152 #define strtopQ(s,se,x) strtorQ(s,se,1,x)
    153 #define strtopx(s,se,x) strtorx(s,se,1,x)
    154 #define strtopxL(s,se,x) strtorxL(s,se,1,x)
    155 #endif
    156 
    157 #ifdef __cplusplus
    158 }
    159 #endif
    160 #endif /* GDTOA_H_INCLUDED */
    161