1 /*
   2  * CDDL HEADER START
   3  *
   4  * The contents of this file are subject to the terms of the
   5  * Common Development and Distribution License (the "License").
   6  * You may not use this file except in compliance with the License.
   7  *
   8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
   9  * or http://www.opensolaris.org/os/licensing.
  10  * See the License for the specific language governing permissions
  11  * and limitations under the License.
  12  *
  13  * When distributing Covered Code, include this CDDL HEADER in each
  14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
  15  * If applicable, add the following below this CDDL HEADER, with the
  16  * fields enclosed by brackets "[]" replaced with your own identifying
  17  * information: Portions Copyright [yyyy] [name of copyright owner]
  18  *
  19  * CDDL HEADER END
  20  */
  21 /*      Copyright (C) 1989 AT&T     */
  22 /*        All Rights Reserved */
  23 
  24 /*
  25  * Copyright 2011 Nexenta Systems, Inc.  All rights reserved.
  26  */
  27 /*
  28  * Copyright 2004 Sun Microsystems, Inc.  All rights reserved.
  29  * Use is subject to license terms.
  30  */
  31 
  32 #ifndef _FLOATINGPOINT_H
  33 #define _FLOATINGPOINT_H
  34 
  35 #ifdef __STDC__
  36 #include <stdio_tag.h>
  37 #endif
  38 #include <sys/ieeefp.h>
  39 
  40 #ifdef __cplusplus
  41 extern "C" {
  42 #endif
  43 
  44 /*
  45  * <floatingpoint.h> contains definitions for constants, types, variables,
  46  * and functions for:
  47  *      IEEE floating-point arithmetic base conversion;
  48  *      IEEE floating-point arithmetic modes;
  49  *      IEEE floating-point arithmetic exception handling.
  50  */
  51 
  52 #ifndef __P
  53 #ifdef __STDC__
  54 #define __P(p)  p
  55 #else
  56 #define __P(p)  ()
  57 #endif
  58 #endif  /* !defined(__P) */
  59 
  60 #if defined(__STDC__) && !defined(_FILEDEFED)
  61 #define _FILEDEFED
  62 typedef __FILE FILE;
  63 #endif
  64 
  65 #define N_IEEE_EXCEPTION 5      /* Number of floating-point exceptions. */
  66 
  67 typedef int sigfpe_code_type;   /* Type of SIGFPE code. */
  68 
  69 typedef void (*sigfpe_handler_type)();  /* Pointer to exception handler */
  70 
  71 #define SIGFPE_DEFAULT (void (*)())0    /* default exception handling */
  72 #define SIGFPE_IGNORE  (void (*)())1    /* ignore this exception or code */
  73 #define SIGFPE_ABORT   (void (*)())2    /* force abort on exception */
  74 
  75 extern sigfpe_handler_type sigfpe __P((sigfpe_code_type, sigfpe_handler_type));
  76 
  77 /*
  78  * Types for IEEE floating point.
  79  */
  80 typedef float single;
  81 
  82 #ifndef _EXTENDED
  83 #define _EXTENDED
  84 typedef unsigned extended[3];
  85 #endif
  86 
  87 typedef long double quadruple;  /* Quadruple-precision type. */
  88 
  89 typedef unsigned fp_exception_field_type;
  90                                 /*
  91                                  * A field containing fp_exceptions OR'ed
  92                                  * together.
  93                                  */
  94 /*
  95  * Definitions for base conversion.
  96  */
  97 #define DECIMAL_STRING_LENGTH 512       /* Size of buffer in decimal_record. */
  98 
  99 typedef char decimal_string[DECIMAL_STRING_LENGTH];
 100                                 /* Decimal significand. */
 101 
 102 typedef struct {
 103         enum fp_class_type fpclass;
 104         int     sign;
 105         int     exponent;
 106         decimal_string ds;      /* Significand - each char contains an ascii */
 107                                 /* digit, except the string-terminating */
 108                                 /* ascii null. */
 109         int     more;           /* On conversion from decimal to binary, != 0 */
 110                                 /* indicates more non-zero digits following */
 111                                 /* ds. */
 112         int     ndigits;        /* On fixed_form conversion from binary to */
 113                                 /* decimal, contains number of digits */
 114                                 /* required for ds. */
 115 } decimal_record;
 116 
 117 enum decimal_form {
 118         fixed_form,             /* Fortran F format: ndigits specifies number */
 119                                 /* of digits after point; if negative, */
 120                                 /* specifies rounding to occur to left of */
 121                                 /* point. */
 122         floating_form           /* Fortran E format: ndigits specifies number */
 123                                 /* of significant digits. */
 124 };
 125 
 126 typedef struct {
 127         enum fp_direction_type rd;
 128                                 /* Rounding direction. */
 129         enum decimal_form df;   /* Format for conversion from binary to */
 130                                 /* decimal. */
 131         int ndigits;            /* Number of digits for conversion. */
 132 } decimal_mode;
 133 
 134 enum decimal_string_form {      /* Valid decimal number string formats. */
 135         invalid_form,           /* Not a valid decimal string format. */
 136         whitespace_form,        /* All white space - valid in Fortran! */
 137         fixed_int_form,         /* <digs>                 */
 138         fixed_intdot_form,      /* <digs>.                */
 139         fixed_dotfrac_form,     /* .<digs>                */
 140         fixed_intdotfrac_form,  /* <digs>.<frac>    */
 141         floating_int_form,      /* <digs><exp>              */
 142         floating_intdot_form,   /* <digs>.<exp>             */
 143         floating_dotfrac_form,  /* .<digs><exp>             */
 144         floating_intdotfrac_form, /* <digs>.<digs><exp>       */
 145         inf_form,               /* inf                  */
 146         infinity_form,          /* infinity             */
 147         nan_form,               /* nan                  */
 148         nanstring_form          /* nan(string)          */
 149 };
 150 
 151 extern void single_to_decimal __P((single *, decimal_mode *, decimal_record *,
 152                                 fp_exception_field_type *));
 153 extern void double_to_decimal __P((double *, decimal_mode *, decimal_record *,
 154                                 fp_exception_field_type *));
 155 extern void extended_to_decimal __P((extended *, decimal_mode *,
 156                                 decimal_record *, fp_exception_field_type *));
 157 extern void quadruple_to_decimal __P((quadruple *, decimal_mode *,
 158                                 decimal_record *, fp_exception_field_type *));
 159 
 160 extern void decimal_to_single __P((single *, decimal_mode *, decimal_record *,
 161                                 fp_exception_field_type *));
 162 extern void decimal_to_double __P((double *, decimal_mode *, decimal_record *,
 163                                 fp_exception_field_type *));
 164 extern void decimal_to_extended __P((extended *, decimal_mode *,
 165                                 decimal_record *, fp_exception_field_type *));
 166 extern void decimal_to_quadruple __P((quadruple *, decimal_mode *,
 167                                 decimal_record *, fp_exception_field_type *));
 168 
 169 extern void string_to_decimal __P((char **, int, int, decimal_record *,
 170                                 enum decimal_string_form *, char **));
 171 extern void func_to_decimal __P((char **, int, int, decimal_record *,
 172                                 enum decimal_string_form *, char **,
 173                                 int (*)(void), int *, int (*)(int)));
 174 extern void file_to_decimal __P((char **, int, int, decimal_record *,
 175                                 enum decimal_string_form *, char **,
 176                                 FILE *, int *));
 177 
 178 extern char *seconvert __P((single *, int, int *, int *, char *));
 179 extern char *sfconvert __P((single *, int, int *, int *, char *));
 180 extern char *sgconvert __P((single *, int, int, char *));
 181 extern char *econvert __P((double, int, int *, int *, char *));
 182 extern char *fconvert __P((double, int, int *, int *, char *));
 183 extern char *gconvert __P((double, int, int, char *));
 184 extern char *qeconvert __P((quadruple *, int, int *, int *, char *));
 185 extern char *qfconvert __P((quadruple *, int, int *, int *, char *));
 186 extern char *qgconvert __P((quadruple *, int, int, char *));
 187 
 188 extern char *ecvt __P((double, int, int *, int *));
 189 extern char *fcvt __P((double, int, int *, int *));
 190 extern char *gcvt __P((double, int, char *));
 191 
 192 /*
 193  * ANSI C Standard says the following entry points should be
 194  * prototyped in <stdlib.h>.  They are now, but weren't before.
 195  */
 196 extern double atof __P((const char *));
 197 extern double strtod __P((const char *, char **));
 198 
 199 #ifdef __cplusplus
 200 }
 201 #endif
 202 
 203 #endif /* _FLOATINGPOINT_H */