gdtoa.h revision 1.5 1 /* $NetBSD: gdtoa.h,v 1.5 2006/03/15 17:35:18 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 strtopQ __strtopQ_D2A
111 #define strtopx __strtopx_D2A
112 #define strtopxL __strtopxL_D2A
113 #define strtord __strtord_D2A
114
115 extern char* dtoa ANSI((double d, int mode, int ndigits, int *decpt,
116 int *sign, char **rve));
117 extern char* gdtoa ANSI((FPI *fpi, int be, ULong *bits, int *kindp,
118 int mode, int ndigits, int *decpt, char **rve));
119 extern void freedtoa ANSI((char*));
120 extern float strtof ANSI((CONST char *, char **));
121 extern double strtod ANSI((CONST char *, char **));
122 extern int strtodg ANSI((CONST char*, char**, CONST FPI*, Long*, ULong*));
123
124 extern char* g_ddfmt ANSI((char*, double*, int, unsigned));
125 extern char* g_dfmt ANSI((char*, double*, int, unsigned));
126 extern char* g_ffmt ANSI((char*, float*, int, unsigned));
127 extern char* g_Qfmt ANSI((char*, void*, int, unsigned));
128 extern char* g_xfmt ANSI((char*, void*, int, unsigned));
129 extern char* g_xLfmt ANSI((char*, void*, int, unsigned));
130
131 extern int strtoId ANSI((CONST char*, char**, double*, double*));
132 extern int strtoIdd ANSI((CONST char*, char**, double*, double*));
133 extern int strtoIf ANSI((CONST char*, char**, float*, float*));
134 extern int strtoIQ ANSI((CONST char*, char**, void*, void*));
135 extern int strtoIx ANSI((CONST char*, char**, void*, void*));
136 extern int strtoIxL ANSI((CONST char*, char**, void*, void*));
137 extern int strtord ANSI((CONST char*, char**, int, double*));
138 extern int strtordd ANSI((CONST char*, char**, int, double*));
139 extern int strtorf ANSI((CONST char*, char**, int, float*));
140 extern int strtorQ ANSI((CONST char*, char**, int, void*));
141 extern int strtorx ANSI((CONST char*, char**, int, void*));
142 extern int strtorxL ANSI((CONST char*, char**, int, void*));
143 #if 1
144 extern int strtodI ANSI((CONST char*, char**, double*));
145 extern int strtopd ANSI((CONST char*, char**, double*));
146 extern int strtopdd ANSI((CONST char*, char**, double*));
147 extern int strtopf ANSI((CONST char*, char**, float*));
148 extern int strtopQ ANSI((CONST char*, char**, void*));
149 extern int strtopx ANSI((CONST char*, char**, void*));
150 extern int strtopxL ANSI((CONST char*, char**, void*));
151 #else
152 #define strtopd(s,se,x) strtord(s,se,1,x)
153 #define strtopdd(s,se,x) strtordd(s,se,1,x)
154 #define strtopf(s,se,x) strtorf(s,se,1,x)
155 #define strtopQ(s,se,x) strtorQ(s,se,1,x)
156 #define strtopx(s,se,x) strtorx(s,se,1,x)
157 #define strtopxL(s,se,x) strtorxL(s,se,1,x)
158 #endif
159
160 #ifdef __cplusplus
161 }
162 #endif
163 #endif /* GDTOA_H_INCLUDED */
164