1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
|
/*
* CDDL HEADER START
*
* The contents of this file are subject to the terms of the
* Common Development and Distribution License (the "License").
* You may not use this file except in compliance with the License.
*
* You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
* or http://www.opensolaris.org/os/licensing.
* See the License for the specific language governing permissions
* and limitations under the License.
*
* When distributing Covered Code, include this CDDL HEADER in each
* file and include the License file at usr/src/OPENSOLARIS.LICENSE.
* If applicable, add the following below this CDDL HEADER, with the
* fields enclosed by brackets "[]" replaced with your own identifying
* information: Portions Copyright [yyyy] [name of copyright owner]
*
* CDDL HEADER END
*/
/* Copyright (C) 1989 AT&T */
/* All Rights Reserved */
/*
* Copyright 2011 Nexenta Systems, Inc. All rights reserved.
*/
/*
* Copyright 2004 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
#ifndef _FLOATINGPOINT_H
#define _FLOATINGPOINT_H
#ifdef __STDC__
#include <stdio_tag.h>
#endif
#include <sys/ieeefp.h>
#ifdef __cplusplus
extern "C" {
#endif
/*
* <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.
*/
#if defined(__STDC__) && !defined(_FILEDEFED)
#define _FILEDEFED
typedef __FILE FILE;
#endif
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(sigfpe_code_type, sigfpe_handler_type);
/*
* Types for IEEE floating point.
*/
typedef float single;
#ifndef _EXTENDED
#define _EXTENDED
typedef unsigned extended[3];
#endif
typedef long double quadruple; /* Quadruple-precision type. */
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) */
};
extern void single_to_decimal(single *, decimal_mode *, decimal_record *,
fp_exception_field_type *);
extern void double_to_decimal(double *, decimal_mode *, decimal_record *,
fp_exception_field_type *);
extern void extended_to_decimal(extended *, decimal_mode *,
decimal_record *, fp_exception_field_type *);
extern void quadruple_to_decimal(quadruple *, decimal_mode *,
decimal_record *, fp_exception_field_type *);
extern void decimal_to_single(single *, decimal_mode *, decimal_record *,
fp_exception_field_type *);
extern void decimal_to_double(double *, decimal_mode *, decimal_record *,
fp_exception_field_type *);
extern void decimal_to_extended(extended *, decimal_mode *,
decimal_record *, fp_exception_field_type *);
extern void decimal_to_quadruple(quadruple *, decimal_mode *,
decimal_record *, fp_exception_field_type *);
extern void string_to_decimal(char **, int, int, decimal_record *,
enum decimal_string_form *, char **);
extern void func_to_decimal(char **, int, int, decimal_record *,
enum decimal_string_form *, char **,
int (*)(void), int *, int (*)(int));
extern void file_to_decimal(char **, int, int, decimal_record *,
enum decimal_string_form *, char **,
FILE *, int *);
extern char *seconvert(single *, int, int *, int *, char *);
extern char *sfconvert(single *, int, int *, int *, char *);
extern char *sgconvert(single *, int, int, char *);
extern char *econvert(double, int, int *, int *, char *);
extern char *fconvert(double, int, int *, int *, char *);
extern char *gconvert(double, int, int, char *);
extern char *qeconvert(quadruple *, int, int *, int *, char *);
extern char *qfconvert(quadruple *, int, int *, int *, char *);
extern char *qgconvert(quadruple *, int, int, char *);
extern char *ecvt(double, int, int *, int *);
extern char *fcvt(double, int, int *, int *);
extern char *gcvt(double, int, char *);
#if __cplusplus >= 199711L
namespace std {
#endif
/*
* ANSI C Standard says the following entry points should be
* prototyped in <stdlib.h>. They are now, but weren't before.
*/
extern double atof(const char *);
extern double strtod(const char *, char **);
#if __cplusplus >= 199711L
}
using std::atof;
using std::strtod;
#endif /* end of namespace std */
#ifdef __cplusplus
}
#endif
#endif /* _FLOATINGPOINT_H */
|
