OSDN Git Service

* decNumber.c (decStrEq): Cast operands to int before calling
[pf3gnuchains/gcc-fork.git] / libdecnumber / decNumber.h
1 /* Decimal Number module header for the decNumber C Library
2    Copyright (C) 2005 Free Software Foundation, Inc.
3    Contributed by IBM Corporation.  Author Mike Cowlishaw.
4
5    This file is part of GCC.
6
7    GCC is free software; you can redistribute it and/or modify it under
8    the terms of the GNU General Public License as published by the Free
9    Software Foundation; either version 2, or (at your option) any later
10    version.
11
12    GCC is distributed in the hope that it will be useful, but WITHOUT ANY
13    WARRANTY; without even the implied warranty of MERCHANTABILITY or
14    FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
15    for more details.
16
17    You should have received a copy of the GNU General Public License
18    along with GCC; see the file COPYING.  If not, write to the Free
19    Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
20    02110-1301, USA.  */
21
22 #if !defined(DECNUMBER)
23 #define DECNUMBER
24 #define DECNAME     "decNumber" /* Short name */
25 #define DECVERSION  "decNumber 3.24"    /* Version [16 max.] */
26 #define DECFULLNAME "Decimal Number Module"     /* Verbose name */
27 #define DECAUTHOR   "Mike Cowlishaw"    /* Who to blame */
28
29 #if !defined(DECCONTEXT)
30 #include "decContext.h"
31 #endif
32
33
34   /* Bit settings for decNumber.bits */
35 #define DECNEG    0x80          /* Sign; 1=negative, 0=positive or zero */
36 #define DECINF    0x40          /* 1=Infinity */
37 #define DECNAN    0x20          /* 1=NaN */
38 #define DECSNAN   0x10          /* 1=sNaN */
39   /* The remaining bits are reserved; they must be 0 */
40 #define DECSPECIAL (DECINF|DECNAN|DECSNAN)      /* any special value */
41
42   /* DECNUMDIGITS is the default number of digits we can hold in the */
43   /* structure.  If undefined, 1 is assumed and it is assumed that the */
44   /* structure will be immediately followed by extra space (if */
45   /* required).  DECNUMDIGITS is always >0. */
46 #if !defined(DECNUMDIGITS)
47 #define DECNUMDIGITS 1
48 #endif
49
50
51   /* Define the decNumber data structure.  The size and shape of the */
52   /* units array in the structure is determined by the following */
53   /* constant.  This must not be changed without recompiling the */
54   /* decNumber library modules. */
55 #define DECDPUN 4               /* Decimal Digits Per UNit [must be in */
56                                    /* range 1-9; power of 2 recommended]. */
57   /* The size (integer data type) of each unit is determined by the */
58   /* number of digits it will hold. */
59 #if   DECDPUN<=2
60 #define decNumberUnit uint8_t
61 #elif DECDPUN<=4
62 #define decNumberUnit uint16_t
63 #else
64 #define decNumberUnit uint32_t
65 #endif
66   /* The number of decNumberUnits we need is ceiling of DECNUMDIGITS/DECDPUN */
67 #define DECNUMUNITS ((DECNUMDIGITS+DECDPUN-1)/DECDPUN)
68
69   /* The data structure... */
70 typedef struct
71 {
72   int32_t digits;               /* Count of digits in the coefficient; >0 */
73   int32_t exponent;             /* Unadjusted exponent, unbiased, in */
74   /* range: -1999999997 through 999999999 */
75   uint8_t bits;                 /* Indicator bits (see above) */
76   decNumberUnit lsu[DECNUMUNITS];       /* Coefficient, from least significant unit */
77 } decNumber;
78
79   /* Notes: */
80   /* 1. If digits is > DECDPUN then there will be more than one */
81   /*    decNumberUnits immediately following the first element of lsu. */
82   /*    These contain the remaining (more significant) digits of the */
83   /*    number, and may be in the lsu array, or may be guaranteed by */
84   /*    some other mechanism (such as being contained in another */
85   /*    structure, or being overlaid on dynamically allocated storage). */
86   /* */
87   /*    Each integer of the coefficient (except the possibly the last) */
88   /*    contains DECDPUN digits (e.g., a value in the range 0 through */
89   /*    99999999 if DECDPUN is 8, or 0 through 9999 if DECDPUN is 4). */
90   /* */
91   /* 2. A decNumber converted to a string may need up to digits+14 */
92   /*    characters.  The worst cases (non-exponential and exponential */
93   /*    formats) are: -0.00000{9...}# */
94   /*             and: -9.{9...}E+999999999#   (where # is '\0') */
95
96
97   /* ------------------------------------------------------------------ */
98   /* decNumber public functions and macros                              */
99   /* ------------------------------------------------------------------ */
100
101 #ifdef IN_LIBGCC2
102 #define decNumberFromString __decNumberFromString
103 #define decNumberToString __decNumberToString
104 #define decNumberToEngString __decNumberToEngString
105 #define decNumberAbs __decNumberAbs
106 #define decNumberAdd __decNumberAdd
107 #define decNumberCompare __decNumberCompare
108 #define decNumberDivide __decNumberDivide
109 #define decNumberDivideInteger __decNumberDivideInteger
110 #define decNumberMax __decNumberMax
111 #define decNumberMin __decNumberMin
112 #define decNumberMinus __decNumberMinus
113 #define decNumberMultiply __decNumberMultiply
114 #define decNumberNormalize __decNumberNormalize
115 #define decNumberPlus __decNumberPlus
116 #define decNumberPower __decNumberPower
117 #define decNumberQuantize __decNumberQuantize
118 #define decNumberRemainder __decNumberRemainder
119 #define decNumberRemainderNear __decNumberRemainderNear
120 #define decNumberRescale __decNumberRescale
121 #define decNumberSameQuantum __decNumberSameQuantum
122 #define decNumberSquareRoot __decNumberSquareRoot
123 #define decNumberSubtract __decNumberSubtract
124 #define decNumberToIntegralValue __decNumberToIntegralValue
125 #define decNumberCopy __decNumberCopy
126 #define decNumberTrim __decNumberTrim
127 #define decNumberVersion __decNumberVersion
128 #define decNumberZero __decNumberZero
129 #endif
130
131   /* Conversions */
132 decNumber *decNumberFromString (decNumber *, char *, decContext *);
133 char *decNumberToString (decNumber *, char *);
134 char *decNumberToEngString (decNumber *, char *);
135
136   /* Operators */
137 decNumber *decNumberAbs (decNumber *, decNumber *, decContext *);
138 decNumber *decNumberAdd (decNumber *, decNumber *, decNumber *, decContext *);
139 decNumber *decNumberCompare (decNumber *, decNumber *, decNumber *,
140                              decContext *);
141 decNumber *decNumberDivide (decNumber *, decNumber *, decNumber *,
142                             decContext *);
143 decNumber *decNumberDivideInteger (decNumber *, decNumber *, decNumber *,
144                                    decContext *);
145 decNumber *decNumberMax (decNumber *, decNumber *, decNumber *, decContext *);
146 decNumber *decNumberMin (decNumber *, decNumber *, decNumber *, decContext *);
147 decNumber *decNumberMinus (decNumber *, decNumber *, decContext *);
148 decNumber *decNumberMultiply (decNumber *, decNumber *, decNumber *,
149                               decContext *);
150 decNumber *decNumberNormalize (decNumber *, decNumber *, decContext *);
151 decNumber *decNumberPlus (decNumber *, decNumber *, decContext *);
152 decNumber *decNumberPower (decNumber *, decNumber *, decNumber *,
153                            decContext *);
154 decNumber *decNumberQuantize (decNumber *, decNumber *, decNumber *,
155                               decContext *);
156 decNumber *decNumberRemainder (decNumber *, decNumber *, decNumber *,
157                                decContext *);
158 decNumber *decNumberRemainderNear (decNumber *, decNumber *, decNumber *,
159                                    decContext *);
160 decNumber *decNumberRescale (decNumber *, decNumber *, decNumber *,
161                              decContext *);
162 decNumber *decNumberSameQuantum (decNumber *, decNumber *, decNumber *);
163 decNumber *decNumberSquareRoot (decNumber *, decNumber *, decContext *);
164 decNumber *decNumberSubtract (decNumber *, decNumber *, decNumber *,
165                               decContext *);
166 decNumber *decNumberToIntegralValue (decNumber *, decNumber *, decContext *);
167
168   /* Utilities */
169 decNumber *decNumberCopy (decNumber *, decNumber *);
170 decNumber *decNumberTrim (decNumber *);
171 const char *decNumberVersion (void);
172 decNumber *decNumberZero (decNumber *);
173
174   /* Macros */
175 #define decNumberIsZero(dn)     (*(dn)->lsu==0 \
176                                    && (dn)->digits==1 \
177                                    && (((dn)->bits&DECSPECIAL)==0))
178 #define decNumberIsNegative(dn) (((dn)->bits&DECNEG)!=0)
179 #define decNumberIsNaN(dn)      (((dn)->bits&(DECNAN|DECSNAN))!=0)
180 #define decNumberIsInfinite(dn) (((dn)->bits&DECINF)!=0)
181 #define decNumberNegate(dn) (((dn)->bits)^=DECNEG)
182
183 #endif