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