9 #ifndef RUBY_BIG_DECIMAL_H 10 #define RUBY_BIG_DECIMAL_H 1 17 # define RB_UNUSED_VAR(x) x __attribute__ ((unused)) 19 # define RB_UNUSED_VAR(x) x 30 #undef BDIGIT_DBL_SIGNED 31 #undef PRI_BDIGIT_PREFIX 32 #undef PRI_BDIGIT_DBL_PREFIX 35 # define BDIGIT uint32_t 36 # define BDIGIT_DBL uint64_t 37 # define BDIGIT_DBL_SIGNED int64_t 38 # define SIZEOF_BDIGITS 4 39 # define PRI_BDIGIT_PREFIX "" 41 # define PRI_BDIGIT_DBL_PREFIX PRI_LL_PREFIX 43 # define PRI_BDIGIT_DBL_PREFIX "l" 46 # define BDIGIT uint16_t 47 # define BDIGIT_DBL uint32_t 48 # define BDIGIT_DBL_SIGNED int32_t 49 # define SIZEOF_BDIGITS 2 50 # define PRI_BDIGIT_PREFIX "h" 51 # define PRI_BDIGIT_DBL_PREFIX "" 54 #define PRIdBDIGIT PRI_BDIGIT_PREFIX"d" 55 #define PRIiBDIGIT PRI_BDIGIT_PREFIX"i" 56 #define PRIoBDIGIT PRI_BDIGIT_PREFIX"o" 57 #define PRIuBDIGIT PRI_BDIGIT_PREFIX"u" 58 #define PRIxBDIGIT PRI_BDIGIT_PREFIX"x" 59 #define PRIXBDIGIT PRI_BDIGIT_PREFIX"X" 61 #define PRIdBDIGIT_DBL PRI_BDIGIT_DBL_PREFIX"d" 62 #define PRIiBDIGIT_DBL PRI_BDIGIT_DBL_PREFIX"i" 63 #define PRIoBDIGIT_DBL PRI_BDIGIT_DBL_PREFIX"o" 64 #define PRIuBDIGIT_DBL PRI_BDIGIT_DBL_PREFIX"u" 65 #define PRIxBDIGIT_DBL PRI_BDIGIT_DBL_PREFIX"x" 66 #define PRIXBDIGIT_DBL PRI_BDIGIT_DBL_PREFIX"X" 68 #if defined(__cplusplus) 85 static inline LONG_LONG
102 # ifndef HAVE_ISFINITE 103 # define HAVE_ISFINITE 1 104 # define isfinite(x) finite(x) 108 #ifndef FIX_CONST_VALUE_PTR 109 # if defined(__fcc__) || defined(__fcc_version) || \ 110 defined(__FCC__) || defined(__FCC_VERSION) 112 # define FIX_CONST_VALUE_PTR(x) ((const VALUE *)(x)) 114 # define FIX_CONST_VALUE_PTR(x) (x) 118 #ifndef HAVE_RB_ARRAY_CONST_PTR 119 static inline const VALUE *
127 #ifndef RARRAY_CONST_PTR 128 # define RARRAY_CONST_PTR(a) rb_array_const_ptr(a) 132 # define RARRAY_AREF(a, i) (RARRAY_CONST_PTR(a)[i]) 135 #ifndef HAVE_RB_SYM2STR 146 #if SIZEOF_VALUE <= SIZEOF_INT 148 #elif SIZEOF_VALUE <= SIZEOF_LONG 150 #elif SIZEOF_VALUE <= SIZEOF_LONG_LONG 156 #if 0 || SIZEOF_BDIGITS >= 16 157 # define RMPD_COMPONENT_FIGURES 38 158 # define RMPD_BASE ((BDIGIT)100000000000000000000000000000000000000U) 159 #elif SIZEOF_BDIGITS >= 8 160 # define RMPD_COMPONENT_FIGURES 19 161 # define RMPD_BASE ((BDIGIT)10000000000000000000U) 162 #elif SIZEOF_BDIGITS >= 4 163 # define RMPD_COMPONENT_FIGURES 9 164 # define RMPD_BASE ((BDIGIT)1000000000U) 165 #elif SIZEOF_BDIGITS >= 2 166 # define RMPD_COMPONENT_FIGURES 4 167 # define RMPD_BASE ((BDIGIT)10000U) 169 # define RMPD_COMPONENT_FIGURES 2 170 # define RMPD_BASE ((BDIGIT)100U) 178 #define SZ_INF "Infinity" 179 #define SZ_PINF "+Infinity" 180 #define SZ_NINF "-Infinity" 186 #define VP_EXPORT static 189 #define VP_EXCEPTION_ALL ((unsigned short)0x00FF) 190 #define VP_EXCEPTION_INFINITY ((unsigned short)0x0001) 191 #define VP_EXCEPTION_NaN ((unsigned short)0x0002) 192 #define VP_EXCEPTION_UNDERFLOW ((unsigned short)0x0004) 193 #define VP_EXCEPTION_OVERFLOW ((unsigned short)0x0001) 194 #define VP_EXCEPTION_ZERODIVIDE ((unsigned short)0x0010) 197 #define VP_EXCEPTION_OP ((unsigned short)0x0020) 198 #define VP_EXCEPTION_MEMORY ((unsigned short)0x0040) 200 #define RMPD_EXCEPTION_MODE_DEFAULT 0U 203 #define VP_ROUND_MODE ((unsigned short)0x0100) 204 #define VP_ROUND_UP 1 205 #define VP_ROUND_DOWN 2 206 #define VP_ROUND_HALF_UP 3 207 #define VP_ROUND_HALF_DOWN 4 208 #define VP_ROUND_CEIL 5 209 #define VP_ROUND_FLOOR 6 210 #define VP_ROUND_HALF_EVEN 7 212 #define RMPD_ROUNDING_MODE_DEFAULT VP_ROUND_HALF_UP 214 #define VP_SIGN_NaN 0 215 #define VP_SIGN_POSITIVE_ZERO 1 216 #define VP_SIGN_NEGATIVE_ZERO -1 217 #define VP_SIGN_POSITIVE_FINITE 2 218 #define VP_SIGN_NEGATIVE_FINITE -2 219 #define VP_SIGN_POSITIVE_INFINITE 3 220 #define VP_SIGN_NEGATIVE_INFINITE -3 223 #define FLEXIBLE_ARRAY_SIZE 0 225 #define FLEXIBLE_ARRAY_SIZE 1 273 #define VpBaseFig() rmpd_component_figures() 274 #define VpDblFig() rmpd_double_figures() 275 #define VpBaseVal() rmpd_base_value() 294 VP_EXPORT int VpIsNegDoubleZero(
double v);
333 #define Abs(a) (((a)>= 0)?(a):(-(a))) 334 #define Max(a, b) (((a)>(b))?(a):(b)) 335 #define Min(a, b) (((a)>(b))?(b):(a)) 337 #define VpMaxPrec(a) ((a)->MaxPrec) 338 #define VpPrec(a) ((a)->Prec) 339 #define VpGetFlag(a) ((a)->flag) 344 #define VpGetSign(a) (((a)->sign>0)?1:(-1)) 346 #define VpChangeSign(a,s) {if((s)>0) (a)->sign=(short)Abs((ssize_t)(a)->sign);else (a)->sign=-(short)Abs((ssize_t)(a)->sign);} 348 #define VpSetSign(a,s) {if((s)>0) (a)->sign=(short)VP_SIGN_POSITIVE_FINITE;else (a)->sign=(short)VP_SIGN_NEGATIVE_FINITE;} 351 #define VpSetOne(a) {(a)->Prec=(a)->exponent=(a)->frac[0]=1;(a)->sign=VP_SIGN_POSITIVE_FINITE;} 354 #define VpIsPosZero(a) ((a)->sign==VP_SIGN_POSITIVE_ZERO) 355 #define VpIsNegZero(a) ((a)->sign==VP_SIGN_NEGATIVE_ZERO) 356 #define VpIsZero(a) (VpIsPosZero(a) || VpIsNegZero(a)) 357 #define VpSetPosZero(a) ((a)->frac[0]=0,(a)->Prec=1,(a)->sign=VP_SIGN_POSITIVE_ZERO) 358 #define VpSetNegZero(a) ((a)->frac[0]=0,(a)->Prec=1,(a)->sign=VP_SIGN_NEGATIVE_ZERO) 359 #define VpSetZero(a,s) (void)(((s)>0)?VpSetPosZero(a):VpSetNegZero(a)) 362 #define VpIsNaN(a) ((a)->sign==VP_SIGN_NaN) 363 #define VpSetNaN(a) ((a)->frac[0]=0,(a)->Prec=1,(a)->sign=VP_SIGN_NaN) 366 #define VpIsPosInf(a) ((a)->sign==VP_SIGN_POSITIVE_INFINITE) 367 #define VpIsNegInf(a) ((a)->sign==VP_SIGN_NEGATIVE_INFINITE) 368 #define VpIsInf(a) (VpIsPosInf(a) || VpIsNegInf(a)) 369 #define VpIsDef(a) ( !(VpIsNaN(a)||VpIsInf(a)) ) 370 #define VpSetPosInf(a) ((a)->frac[0]=0,(a)->Prec=1,(a)->sign=VP_SIGN_POSITIVE_INFINITE) 371 #define VpSetNegInf(a) ((a)->frac[0]=0,(a)->Prec=1,(a)->sign=VP_SIGN_NEGATIVE_INFINITE) 372 #define VpSetInf(a,s) (void)(((s)>0)?VpSetPosInf(a):VpSetNegInf(a)) 373 #define VpHasVal(a) (a->frac[0]) 374 #define VpIsOne(a) ((a->Prec==1)&&(a->frac[0]==1)&&(a->exponent==1)) 375 #define VpExponent(a) (a->exponent) 376 #ifdef BIGDECIMAL_DEBUG 377 int VpVarCheck(
Real * v);
380 #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)
#define FIX_CONST_VALUE_PTR(x)
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)
static const VALUE * rb_array_const_ptr(VALUE a)
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)
static int finite(double)
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)
RUBY_EXTERN int isinf(double)
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)
static VALUE rb_sym2str(VALUE sym)
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)