16 #ifndef RUBY_BIG_DECIMAL_H
17 #define RUBY_BIG_DECIMAL_H 1
22 #if defined(__cplusplus)
39 static inline LONG_LONG
50 #if SIZEOF_VALUE <= SIZEOF_INT
52 #elif SIZEOF_VALUE <= SIZEOF_LONG
54 #elif SIZEOF_VALUE <= SIZEOF_LONG_LONG
60 #if 0 || SIZEOF_BDIGITS >= 16
61 # define RMPD_COMPONENT_FIGURES 38
62 # define RMPD_BASE ((BDIGIT)100000000000000000000000000000000000000U)
63 #elif SIZEOF_BDIGITS >= 8
64 # define RMPD_COMPONENT_FIGURES 19
65 # define RMPD_BASE ((BDIGIT)10000000000000000000U)
66 #elif SIZEOF_BDIGITS >= 4
67 # define RMPD_COMPONENT_FIGURES 9
68 # define RMPD_BASE ((BDIGIT)1000000000U)
69 #elif SIZEOF_BDIGITS >= 2
70 # define RMPD_COMPONENT_FIGURES 4
71 # define RMPD_BASE ((BDIGIT)10000U)
73 # define RMPD_COMPONENT_FIGURES 2
74 # define RMPD_BASE ((BDIGIT)100U)
82 #define SZ_INF "Infinity"
83 #define SZ_PINF "+Infinity"
84 #define SZ_NINF "-Infinity"
90 #define VP_EXPORT static
93 #define VP_EXCEPTION_ALL ((unsigned short)0x00FF)
94 #define VP_EXCEPTION_INFINITY ((unsigned short)0x0001)
95 #define VP_EXCEPTION_NaN ((unsigned short)0x0002)
96 #define VP_EXCEPTION_UNDERFLOW ((unsigned short)0x0004)
97 #define VP_EXCEPTION_OVERFLOW ((unsigned short)0x0001)
98 #define VP_EXCEPTION_ZERODIVIDE ((unsigned short)0x0010)
101 #define VP_EXCEPTION_OP ((unsigned short)0x0020)
102 #define VP_EXCEPTION_MEMORY ((unsigned short)0x0040)
104 #define RMPD_EXCEPTION_MODE_DEFAULT 0U
107 #define VP_ROUND_MODE ((unsigned short)0x0100)
108 #define VP_ROUND_UP 1
109 #define VP_ROUND_DOWN 2
110 #define VP_ROUND_HALF_UP 3
111 #define VP_ROUND_HALF_DOWN 4
112 #define VP_ROUND_CEIL 5
113 #define VP_ROUND_FLOOR 6
114 #define VP_ROUND_HALF_EVEN 7
116 #define RMPD_ROUNDING_MODE_DEFAULT VP_ROUND_HALF_UP
118 #define VP_SIGN_NaN 0
119 #define VP_SIGN_POSITIVE_ZERO 1
120 #define VP_SIGN_NEGATIVE_ZERO -1
121 #define VP_SIGN_POSITIVE_FINITE 2
122 #define VP_SIGN_NEGATIVE_FINITE -2
123 #define VP_SIGN_POSITIVE_INFINITE 3
124 #define VP_SIGN_NEGATIVE_INFINITE -3
127 #define FLEXIBLE_ARRAY_SIZE 0
129 #define FLEXIBLE_ARRAY_SIZE 1
177 #define VpBaseFig() rmpd_component_figures()
178 #define VpDblFig() rmpd_double_figures()
179 #define VpBaseVal() rmpd_base_value()
237 #define Abs(a) (((a)>= 0)?(a):(-(a)))
238 #define Max(a, b) (((a)>(b))?(a):(b))
239 #define Min(a, b) (((a)>(b))?(b):(a))
241 #define VpMaxPrec(a) ((a)->MaxPrec)
242 #define VpPrec(a) ((a)->Prec)
243 #define VpGetFlag(a) ((a)->flag)
248 #define VpGetSign(a) (((a)->sign>0)?1:(-1))
250 #define VpChangeSign(a,s) {if((s)>0) (a)->sign=(short)Abs((ssize_t)(a)->sign);else (a)->sign=-(short)Abs((ssize_t)(a)->sign);}
252 #define VpSetSign(a,s) {if((s)>0) (a)->sign=(short)VP_SIGN_POSITIVE_FINITE;else (a)->sign=(short)VP_SIGN_NEGATIVE_FINITE;}
255 #define VpSetOne(a) {(a)->Prec=(a)->exponent=(a)->frac[0]=1;(a)->sign=VP_SIGN_POSITIVE_FINITE;}
258 #define VpIsPosZero(a) ((a)->sign==VP_SIGN_POSITIVE_ZERO)
259 #define VpIsNegZero(a) ((a)->sign==VP_SIGN_NEGATIVE_ZERO)
260 #define VpIsZero(a) (VpIsPosZero(a) || VpIsNegZero(a))
261 #define VpSetPosZero(a) ((a)->frac[0]=0,(a)->Prec=1,(a)->sign=VP_SIGN_POSITIVE_ZERO)
262 #define VpSetNegZero(a) ((a)->frac[0]=0,(a)->Prec=1,(a)->sign=VP_SIGN_NEGATIVE_ZERO)
263 #define VpSetZero(a,s) ( ((s)>0)?VpSetPosZero(a):VpSetNegZero(a) )
266 #define VpIsNaN(a) ((a)->sign==VP_SIGN_NaN)
267 #define VpSetNaN(a) ((a)->frac[0]=0,(a)->Prec=1,(a)->sign=VP_SIGN_NaN)
270 #define VpIsPosInf(a) ((a)->sign==VP_SIGN_POSITIVE_INFINITE)
271 #define VpIsNegInf(a) ((a)->sign==VP_SIGN_NEGATIVE_INFINITE)
272 #define VpIsInf(a) (VpIsPosInf(a) || VpIsNegInf(a))
273 #define VpIsDef(a) ( !(VpIsNaN(a)||VpIsInf(a)) )
274 #define VpSetPosInf(a) ((a)->frac[0]=0,(a)->Prec=1,(a)->sign=VP_SIGN_POSITIVE_INFINITE)
275 #define VpSetNegInf(a) ((a)->frac[0]=0,(a)->Prec=1,(a)->sign=VP_SIGN_NEGATIVE_INFINITE)
276 #define VpSetInf(a,s) ( ((s)>0)?VpSetPosInf(a):VpSetNegInf(a) )
277 #define VpHasVal(a) (a->frac[0])
278 #define VpIsOne(a) ((a->Prec==1)&&(a->frac[0]==1)&&(a->exponent==1))
279 #define VpExponent(a) (a->exponent)
280 #ifdef BIGDECIMAL_DEBUG
281 int VpVarCheck(
Real *
v);
285 #if defined(__cplusplus)
VP_EXPORT void * VpMemRealloc(void *ptr, size_t mb)
VP_EXPORT int VpActiveRound(Real *y, Real *x, unsigned short f, ssize_t il)
VP_EXPORT ssize_t VpExponent10(Real *a)
VP_EXPORT double VpGetDoubleNaN(void)
static long labs(long const x)
VP_EXPORT size_t VpGetPrecLimit(void)
VP_EXPORT size_t VpDivd(Real *c, Real *r, Real *a, Real *b)
VP_EXPORT size_t VpMult(Real *c, Real *a, Real *b)
VP_EXPORT int VpComp(Real *a, Real *b)
VP_EXPORT int VpVtoD(double *d, SIGNED_VALUE *e, Real *m)
static LONG_LONG llabs(LONG_LONG const x)
VP_EXPORT void VpFrac(Real *y, Real *x)
static size_t rmpd_component_figures(void)
VP_EXPORT size_t VpAddSub(Real *c, Real *a, Real *b, int operation)
VP_EXPORT void VpToFString(Real *a, char *psz, size_t fFmt, int fPlus)
VP_EXPORT int VpMidRound(Real *y, unsigned short f, ssize_t nf)
VP_EXPORT Real * VpNewRbClass(size_t mx, char const *str, VALUE klass)
#define RMPD_COMPONENT_FIGURES
VP_EXPORT void * VpMemAlloc(size_t mb)
VP_EXPORT void VpToString(Real *a, char *psz, size_t fFmt, int fPlus)
VP_EXPORT size_t VpNumOfChars(Real *vp, const char *pszFmt)
VP_EXPORT void VpFree(Real *pv)
VP_EXPORT Real * VpCreateRbObject(size_t mx, const char *str)
VP_EXPORT double VpGetDoubleNegZero(void)
VP_EXPORT int VpIsRoundMode(unsigned short n)
static VALUE int_chr(int argc, VALUE *argv, VALUE num)
VP_EXPORT int VpSqrt(Real *y, Real *x)
VP_EXPORT void VpDtoV(Real *m, double d)
VP_EXPORT int VpToSpecialString(Real *a, char *psz, int fPlus)
static BDIGIT rmpd_base_value(void)
VP_EXPORT double VpGetDoubleNegInf(void)
VP_EXPORT size_t VpSetPrecLimit(size_t n)
VP_EXPORT size_t VpAsgn(Real *c, Real *a, int isw)
static size_t rmpd_double_figures(void)
VP_EXPORT int VpCtoV(Real *a, const char *int_chr, size_t ni, const char *frac, size_t nf, const char *exp_chr, size_t ne)
VP_EXPORT void VpSzMantissa(Real *a, char *psz)
VP_EXPORT int VpPower(Real *y, Real *x, SIGNED_VALUE n)
VP_EXPORT unsigned short VpGetRoundMode(void)
VP_EXPORT int VpLeftRound(Real *y, unsigned short f, ssize_t nf)
VP_EXPORT Real * VpAlloc(size_t mx, const char *szVal)
#define FLEXIBLE_ARRAY_SIZE
VP_EXPORT size_t VpInit(BDIGIT BaseVal)
VP_EXPORT double VpGetDoublePosInf(void)
VP_EXPORT int VpException(unsigned short f, const char *str, int always)
VP_EXPORT Real * VpOne(void)
VP_EXPORT unsigned short VpSetRoundMode(unsigned short n)