2003-03-28 00:00:21 -05:00
|
|
|
/*
|
|
|
|
*
|
2010-04-22 04:04:13 -04:00
|
|
|
* Ruby BigDecimal(Variable decimal precision) extension library.
|
2003-03-28 00:00:21 -05:00
|
|
|
*
|
2010-04-22 04:04:13 -04:00
|
|
|
* Copyright(C) 2002 by Shigeo Kobayashi(shigeo@tinyforest.gr.jp)
|
2003-03-28 00:00:21 -05:00
|
|
|
*
|
|
|
|
*/
|
|
|
|
|
2010-08-10 02:25:27 -04:00
|
|
|
#ifndef RUBY_BIG_DECIMAL_H
|
|
|
|
#define RUBY_BIG_DECIMAL_H 1
|
2003-03-28 00:00:21 -05:00
|
|
|
|
2017-03-13 02:03:18 -04:00
|
|
|
#define RUBY_NO_OLD_COMPATIBILITY
|
|
|
|
|
2010-08-10 02:25:23 -04:00
|
|
|
#include "ruby/ruby.h"
|
2010-08-10 02:25:27 -04:00
|
|
|
#include <float.h>
|
2010-08-10 02:25:23 -04:00
|
|
|
|
2013-07-01 07:46:15 -04:00
|
|
|
#ifndef RB_UNUSED_VAR
|
|
|
|
# ifdef __GNUC__
|
|
|
|
# define RB_UNUSED_VAR(x) x __attribute__ ((unused))
|
|
|
|
# else
|
|
|
|
# define RB_UNUSED_VAR(x) x
|
|
|
|
# endif
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifndef UNREACHABLE
|
|
|
|
# define UNREACHABLE /* unreachable */
|
|
|
|
#endif
|
|
|
|
|
2013-06-20 11:42:23 -04:00
|
|
|
#undef BDIGIT
|
|
|
|
#undef SIZEOF_BDIGITS
|
|
|
|
#undef BDIGIT_DBL
|
|
|
|
#undef BDIGIT_DBL_SIGNED
|
|
|
|
#undef PRI_BDIGIT_PREFIX
|
|
|
|
#undef PRI_BDIGIT_DBL_PREFIX
|
|
|
|
|
|
|
|
#ifdef HAVE_INT64_T
|
|
|
|
# define BDIGIT uint32_t
|
|
|
|
# define BDIGIT_DBL uint64_t
|
|
|
|
# define BDIGIT_DBL_SIGNED int64_t
|
|
|
|
# define SIZEOF_BDIGITS 4
|
2015-02-04 02:32:58 -05:00
|
|
|
# define PRI_BDIGIT_PREFIX ""
|
|
|
|
# ifdef PRI_LL_PREFIX
|
|
|
|
# define PRI_BDIGIT_DBL_PREFIX PRI_LL_PREFIX
|
|
|
|
# else
|
|
|
|
# define PRI_BDIGIT_DBL_PREFIX "l"
|
|
|
|
# endif
|
2013-06-20 11:42:23 -04:00
|
|
|
#else
|
|
|
|
# define BDIGIT uint16_t
|
|
|
|
# define BDIGIT_DBL uint32_t
|
|
|
|
# define BDIGIT_DBL_SIGNED int32_t
|
|
|
|
# define SIZEOF_BDIGITS 2
|
2015-02-04 02:32:58 -05:00
|
|
|
# define PRI_BDIGIT_PREFIX "h"
|
|
|
|
# define PRI_BDIGIT_DBL_PREFIX ""
|
2013-06-20 11:42:23 -04:00
|
|
|
#endif
|
|
|
|
|
2015-02-04 02:32:58 -05:00
|
|
|
#define PRIdBDIGIT PRI_BDIGIT_PREFIX"d"
|
|
|
|
#define PRIiBDIGIT PRI_BDIGIT_PREFIX"i"
|
|
|
|
#define PRIoBDIGIT PRI_BDIGIT_PREFIX"o"
|
|
|
|
#define PRIuBDIGIT PRI_BDIGIT_PREFIX"u"
|
|
|
|
#define PRIxBDIGIT PRI_BDIGIT_PREFIX"x"
|
|
|
|
#define PRIXBDIGIT PRI_BDIGIT_PREFIX"X"
|
|
|
|
|
|
|
|
#define PRIdBDIGIT_DBL PRI_BDIGIT_DBL_PREFIX"d"
|
|
|
|
#define PRIiBDIGIT_DBL PRI_BDIGIT_DBL_PREFIX"i"
|
|
|
|
#define PRIoBDIGIT_DBL PRI_BDIGIT_DBL_PREFIX"o"
|
|
|
|
#define PRIuBDIGIT_DBL PRI_BDIGIT_DBL_PREFIX"u"
|
|
|
|
#define PRIxBDIGIT_DBL PRI_BDIGIT_DBL_PREFIX"x"
|
|
|
|
#define PRIXBDIGIT_DBL PRI_BDIGIT_DBL_PREFIX"X"
|
|
|
|
|
2003-03-28 00:00:21 -05:00
|
|
|
#if defined(__cplusplus)
|
|
|
|
extern "C" {
|
2011-12-21 10:50:15 -05:00
|
|
|
#if 0
|
2011-12-22 16:06:19 -05:00
|
|
|
} /* satisfy cc-mode */
|
2011-12-21 10:50:15 -05:00
|
|
|
#endif
|
2003-03-28 00:00:21 -05:00
|
|
|
#endif
|
|
|
|
|
2010-08-14 11:22:43 -04:00
|
|
|
#ifndef HAVE_LABS
|
|
|
|
static inline long
|
|
|
|
labs(long const x)
|
|
|
|
{
|
|
|
|
if (x < 0) return -x;
|
|
|
|
return x;
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifndef HAVE_LLABS
|
2010-08-15 21:02:23 -04:00
|
|
|
static inline LONG_LONG
|
|
|
|
llabs(LONG_LONG const x)
|
2010-08-14 11:22:43 -04:00
|
|
|
{
|
|
|
|
if (x < 0) return -x;
|
|
|
|
return x;
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
2016-12-10 02:49:15 -05:00
|
|
|
#ifndef HAVE_FINITE
|
|
|
|
static int
|
|
|
|
finite(double)
|
|
|
|
{
|
|
|
|
return !isnan(n) && !isinf(n);
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifndef isfinite
|
|
|
|
# ifndef HAVE_ISFINITE
|
|
|
|
# define HAVE_ISFINITE 1
|
|
|
|
# define isfinite(x) finite(x)
|
|
|
|
# endif
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifndef FIX_CONST_VALUE_PTR
|
|
|
|
# if defined(__fcc__) || defined(__fcc_version) || \
|
|
|
|
defined(__FCC__) || defined(__FCC_VERSION)
|
|
|
|
/* workaround for old version of Fujitsu C Compiler (fcc) */
|
|
|
|
# define FIX_CONST_VALUE_PTR(x) ((const VALUE *)(x))
|
|
|
|
# else
|
|
|
|
# define FIX_CONST_VALUE_PTR(x) (x)
|
|
|
|
# endif
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifndef HAVE_RB_ARRAY_CONST_PTR
|
|
|
|
static inline const VALUE *
|
|
|
|
rb_array_const_ptr(VALUE a)
|
|
|
|
{
|
|
|
|
return FIX_CONST_VALUE_PTR((RBASIC(a)->flags & RARRAY_EMBED_FLAG) ?
|
|
|
|
RARRAY(a)->as.ary : RARRAY(a)->as.heap.ptr);
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifndef RARRAY_CONST_PTR
|
|
|
|
# define RARRAY_CONST_PTR(a) rb_array_const_ptr(a)
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifndef RARRAY_AREF
|
|
|
|
# define RARRAY_AREF(a, i) (RARRAY_CONST_PTR(a)[i])
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifndef HAVE_RB_SYM2STR
|
|
|
|
static inline VALUE
|
|
|
|
rb_sym2str(VALUE sym)
|
|
|
|
{
|
|
|
|
return rb_id2str(SYM2ID(sym));
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
2010-08-14 11:22:43 -04:00
|
|
|
#ifdef vabs
|
|
|
|
# undef vabs
|
|
|
|
#endif
|
|
|
|
#if SIZEOF_VALUE <= SIZEOF_INT
|
|
|
|
# define vabs abs
|
|
|
|
#elif SIZEOF_VALUE <= SIZEOF_LONG
|
|
|
|
# define vabs labs
|
|
|
|
#elif SIZEOF_VALUE <= SIZEOF_LONG_LONG
|
|
|
|
# define vabs llabs
|
|
|
|
#endif
|
|
|
|
|
2010-08-10 02:25:23 -04:00
|
|
|
extern VALUE rb_cBigDecimal;
|
|
|
|
|
2010-08-10 02:25:27 -04:00
|
|
|
#if 0 || SIZEOF_BDIGITS >= 16
|
|
|
|
# define RMPD_COMPONENT_FIGURES 38
|
|
|
|
# define RMPD_BASE ((BDIGIT)100000000000000000000000000000000000000U)
|
|
|
|
#elif SIZEOF_BDIGITS >= 8
|
|
|
|
# define RMPD_COMPONENT_FIGURES 19
|
|
|
|
# define RMPD_BASE ((BDIGIT)10000000000000000000U)
|
|
|
|
#elif SIZEOF_BDIGITS >= 4
|
|
|
|
# define RMPD_COMPONENT_FIGURES 9
|
|
|
|
# define RMPD_BASE ((BDIGIT)1000000000U)
|
|
|
|
#elif SIZEOF_BDIGITS >= 2
|
|
|
|
# define RMPD_COMPONENT_FIGURES 4
|
|
|
|
# define RMPD_BASE ((BDIGIT)10000U)
|
|
|
|
#else
|
|
|
|
# define RMPD_COMPONENT_FIGURES 2
|
|
|
|
# define RMPD_BASE ((BDIGIT)100U)
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
2003-07-24 22:26:56 -04:00
|
|
|
/*
|
|
|
|
* NaN & Infinity
|
|
|
|
*/
|
|
|
|
#define SZ_NaN "NaN"
|
|
|
|
#define SZ_INF "Infinity"
|
|
|
|
#define SZ_PINF "+Infinity"
|
2003-08-19 10:21:13 -04:00
|
|
|
#define SZ_NINF "-Infinity"
|
2003-07-24 22:26:56 -04:00
|
|
|
|
2003-03-28 00:00:21 -05:00
|
|
|
/*
|
2010-04-22 04:04:13 -04:00
|
|
|
* #define VP_EXPORT other than static to let VP_ routines
|
2003-03-28 00:00:21 -05:00
|
|
|
* be called from outside of this module.
|
|
|
|
*/
|
2010-04-22 04:04:13 -04:00
|
|
|
#define VP_EXPORT static
|
2003-03-28 00:00:21 -05:00
|
|
|
|
|
|
|
/* Exception codes */
|
2003-06-27 00:38:57 -04:00
|
|
|
#define VP_EXCEPTION_ALL ((unsigned short)0x00FF)
|
2003-03-28 00:00:21 -05:00
|
|
|
#define VP_EXCEPTION_INFINITY ((unsigned short)0x0001)
|
|
|
|
#define VP_EXCEPTION_NaN ((unsigned short)0x0002)
|
|
|
|
#define VP_EXCEPTION_UNDERFLOW ((unsigned short)0x0004)
|
|
|
|
#define VP_EXCEPTION_OVERFLOW ((unsigned short)0x0001) /* 0x0008) */
|
2008-11-26 09:04:58 -05:00
|
|
|
#define VP_EXCEPTION_ZERODIVIDE ((unsigned short)0x0010)
|
2003-03-28 00:00:21 -05:00
|
|
|
|
2013-05-18 23:10:21 -04:00
|
|
|
/* Following 2 exceptions can't controlled by user */
|
2003-03-28 00:00:21 -05:00
|
|
|
#define VP_EXCEPTION_OP ((unsigned short)0x0020)
|
|
|
|
#define VP_EXCEPTION_MEMORY ((unsigned short)0x0040)
|
|
|
|
|
* ext/bigdecimal/bigdecimal.c (Init_bigdecimal, rmpd_set_thread_local_exception_mode, VpGetException, VpSetException): thread-local exception mode.
* ext/bigdecimal/bigdecimal.c (Init_bigdecimal, rmpd_set_thread_local_precision_limit, VpGetPrecLimit, VpSetPrecLimit): thread-local precision limit.
* ext/bigdecimal/bigdecimal.c (Init_bigdecimal, rmpd_set_thread_local_rounding_mode, VpGetRoundMode, VpSetRoundMode, VpException, VpInternalRound): thread-local rounding mode.
* ext/bigdecimal/bigdecimal.c (BigDecimal_mode, BigDecimal_round, VpIsRoundMode, VpGetRoundMode, VpSetRoundMode, VpActiveRound, VpMidRound, VpLeftRound), ext/bigdecimal/bigdecimal.h: use unsigned short for rounding mode.
* test/bigdecimal/test_bigdecimal.rb (test_mode): add test for setting rounding mode.
* test/bigdecimal/test_bigdecimal.rb (test_thread_local_mode): add test for setting mode thread-locally.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@29099 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2010-08-25 20:14:18 -04:00
|
|
|
#define RMPD_EXCEPTION_MODE_DEFAULT 0U
|
|
|
|
|
2003-06-27 00:38:57 -04:00
|
|
|
/* Computation mode */
|
2003-07-26 09:04:57 -04:00
|
|
|
#define VP_ROUND_MODE ((unsigned short)0x0100)
|
|
|
|
#define VP_ROUND_UP 1
|
|
|
|
#define VP_ROUND_DOWN 2
|
|
|
|
#define VP_ROUND_HALF_UP 3
|
|
|
|
#define VP_ROUND_HALF_DOWN 4
|
|
|
|
#define VP_ROUND_CEIL 5
|
|
|
|
#define VP_ROUND_FLOOR 6
|
2003-07-27 22:56:43 -04:00
|
|
|
#define VP_ROUND_HALF_EVEN 7
|
2003-06-27 00:38:57 -04:00
|
|
|
|
* ext/bigdecimal/bigdecimal.c (Init_bigdecimal, rmpd_set_thread_local_exception_mode, VpGetException, VpSetException): thread-local exception mode.
* ext/bigdecimal/bigdecimal.c (Init_bigdecimal, rmpd_set_thread_local_precision_limit, VpGetPrecLimit, VpSetPrecLimit): thread-local precision limit.
* ext/bigdecimal/bigdecimal.c (Init_bigdecimal, rmpd_set_thread_local_rounding_mode, VpGetRoundMode, VpSetRoundMode, VpException, VpInternalRound): thread-local rounding mode.
* ext/bigdecimal/bigdecimal.c (BigDecimal_mode, BigDecimal_round, VpIsRoundMode, VpGetRoundMode, VpSetRoundMode, VpActiveRound, VpMidRound, VpLeftRound), ext/bigdecimal/bigdecimal.h: use unsigned short for rounding mode.
* test/bigdecimal/test_bigdecimal.rb (test_mode): add test for setting rounding mode.
* test/bigdecimal/test_bigdecimal.rb (test_thread_local_mode): add test for setting mode thread-locally.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@29099 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2010-08-25 20:14:18 -04:00
|
|
|
#define RMPD_ROUNDING_MODE_DEFAULT VP_ROUND_HALF_UP
|
|
|
|
|
2003-03-28 00:00:21 -05:00
|
|
|
#define VP_SIGN_NaN 0 /* NaN */
|
|
|
|
#define VP_SIGN_POSITIVE_ZERO 1 /* Positive zero */
|
|
|
|
#define VP_SIGN_NEGATIVE_ZERO -1 /* Negative zero */
|
|
|
|
#define VP_SIGN_POSITIVE_FINITE 2 /* Positive finite number */
|
|
|
|
#define VP_SIGN_NEGATIVE_FINITE -2 /* Negative finite number */
|
|
|
|
#define VP_SIGN_POSITIVE_INFINITE 3 /* Positive infinite number */
|
|
|
|
#define VP_SIGN_NEGATIVE_INFINITE -3 /* Negative infinite number */
|
|
|
|
|
2011-12-01 00:43:22 -05:00
|
|
|
#ifdef __GNUC__
|
|
|
|
#define FLEXIBLE_ARRAY_SIZE 0
|
|
|
|
#else
|
|
|
|
#define FLEXIBLE_ARRAY_SIZE 1
|
|
|
|
#endif
|
|
|
|
|
2003-03-28 00:00:21 -05:00
|
|
|
/*
|
|
|
|
* VP representation
|
|
|
|
* r = 0.xxxxxxxxx *BASE**exponent
|
|
|
|
*/
|
|
|
|
typedef struct {
|
|
|
|
VALUE obj; /* Back pointer(VALUE) for Ruby object. */
|
2010-08-14 11:22:43 -04:00
|
|
|
size_t MaxPrec; /* Maximum precision size */
|
2016-12-10 02:49:15 -05:00
|
|
|
/* This is the actual size of frac[] */
|
2003-03-28 00:00:21 -05:00
|
|
|
/*(frac[0] to frac[MaxPrec] are available). */
|
2010-08-14 11:22:43 -04:00
|
|
|
size_t Prec; /* Current precision size. */
|
2016-12-10 02:49:15 -05:00
|
|
|
/* This indicates how much the */
|
|
|
|
/* array frac[] is actually used. */
|
2010-08-14 11:22:43 -04:00
|
|
|
SIGNED_VALUE exponent; /* Exponent part. */
|
2003-03-28 00:00:21 -05:00
|
|
|
short sign; /* Attributes of the value. */
|
|
|
|
/*
|
|
|
|
* ==0 : NaN
|
|
|
|
* 1 : Positive zero
|
|
|
|
* -1 : Negative zero
|
|
|
|
* 2 : Positive number
|
|
|
|
* -2 : Negative number
|
|
|
|
* 3 : Positive infinite number
|
|
|
|
* -3 : Negative infinite number
|
|
|
|
*/
|
|
|
|
short flag; /* Not used in vp_routines,space for user. */
|
2011-12-01 00:43:22 -05:00
|
|
|
BDIGIT frac[FLEXIBLE_ARRAY_SIZE]; /* Array of fraction part. */
|
2003-03-28 00:00:21 -05:00
|
|
|
} Real;
|
|
|
|
|
2010-04-22 04:04:13 -04:00
|
|
|
/*
|
2003-03-28 00:00:21 -05:00
|
|
|
* ------------------
|
|
|
|
* EXPORTables.
|
|
|
|
* ------------------
|
|
|
|
*/
|
|
|
|
|
|
|
|
VP_EXPORT Real *
|
2011-06-17 13:38:18 -04:00
|
|
|
VpNewRbClass(size_t mx, char const *str, VALUE klass);
|
2003-03-28 00:00:21 -05:00
|
|
|
|
2010-08-14 11:22:43 -04:00
|
|
|
VP_EXPORT Real *VpCreateRbObject(size_t mx,const char *str);
|
2003-03-28 00:00:21 -05:00
|
|
|
|
2010-08-10 02:25:27 -04:00
|
|
|
static inline BDIGIT
|
|
|
|
rmpd_base_value(void) { return RMPD_BASE; }
|
|
|
|
static inline size_t
|
|
|
|
rmpd_component_figures(void) { return RMPD_COMPONENT_FIGURES; }
|
|
|
|
static inline size_t
|
|
|
|
rmpd_double_figures(void) { return 1+DBL_DIG; }
|
|
|
|
|
|
|
|
#define VpBaseFig() rmpd_component_figures()
|
|
|
|
#define VpDblFig() rmpd_double_figures()
|
|
|
|
#define VpBaseVal() rmpd_base_value()
|
2003-03-28 00:00:21 -05:00
|
|
|
|
|
|
|
/* Zero,Inf,NaN (isinf(),isnan() used to check) */
|
|
|
|
VP_EXPORT double VpGetDoubleNaN(void);
|
|
|
|
VP_EXPORT double VpGetDoublePosInf(void);
|
|
|
|
VP_EXPORT double VpGetDoubleNegInf(void);
|
|
|
|
VP_EXPORT double VpGetDoubleNegZero(void);
|
|
|
|
|
|
|
|
/* These 2 functions added at v1.1.7 */
|
2010-08-14 11:22:43 -04:00
|
|
|
VP_EXPORT size_t VpGetPrecLimit(void);
|
|
|
|
VP_EXPORT size_t VpSetPrecLimit(size_t n);
|
2003-03-28 00:00:21 -05:00
|
|
|
|
2003-07-27 22:56:43 -04:00
|
|
|
/* Round mode */
|
* ext/bigdecimal/bigdecimal.c (Init_bigdecimal, rmpd_set_thread_local_exception_mode, VpGetException, VpSetException): thread-local exception mode.
* ext/bigdecimal/bigdecimal.c (Init_bigdecimal, rmpd_set_thread_local_precision_limit, VpGetPrecLimit, VpSetPrecLimit): thread-local precision limit.
* ext/bigdecimal/bigdecimal.c (Init_bigdecimal, rmpd_set_thread_local_rounding_mode, VpGetRoundMode, VpSetRoundMode, VpException, VpInternalRound): thread-local rounding mode.
* ext/bigdecimal/bigdecimal.c (BigDecimal_mode, BigDecimal_round, VpIsRoundMode, VpGetRoundMode, VpSetRoundMode, VpActiveRound, VpMidRound, VpLeftRound), ext/bigdecimal/bigdecimal.h: use unsigned short for rounding mode.
* test/bigdecimal/test_bigdecimal.rb (test_mode): add test for setting rounding mode.
* test/bigdecimal/test_bigdecimal.rb (test_thread_local_mode): add test for setting mode thread-locally.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@29099 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2010-08-25 20:14:18 -04:00
|
|
|
VP_EXPORT int VpIsRoundMode(unsigned short n);
|
|
|
|
VP_EXPORT unsigned short VpGetRoundMode(void);
|
|
|
|
VP_EXPORT unsigned short VpSetRoundMode(unsigned short n);
|
2003-06-27 00:38:57 -04:00
|
|
|
|
* sprintf.c (rb_str_format): allow %c to print one character
string (e.g. ?x).
* lib/tempfile.rb (Tempfile::make_tmpname): put dot between
basename and pid. [ruby-talk:196272]
* parse.y (do_block): remove -> style block.
* parse.y (parser_yylex): remove tLAMBDA_ARG.
* eval.c (rb_call0): binding for the return event hook should have
consistent scope. [ruby-core:07928]
* eval.c (proc_invoke): return behavior should depend whether it
is surrounded by a lambda or a mere block.
* eval.c (formal_assign): handles post splat arguments.
* eval.c (rb_call0): ditto.
* st.c (strhash): use FNV-1a hash.
* parse.y (parser_yylex): removed experimental ';;' terminator.
* eval.c (rb_node_arity): should be aware of post splat arguments.
* eval.c (rb_proc_arity): ditto.
* parse.y (f_args): syntax rule enhanced to support arguments
after the splat.
* parse.y (block_param): ditto for block parameters.
* parse.y (f_post_arg): mandatory formal arguments after the splat
argument.
* parse.y (new_args_gen): generate nodes for mandatory formal
arguments after the splat argument.
* eval.c (rb_eval): dispatch mandatory formal arguments after the
splat argument.
* parse.y (args): allow more than one splat in the argument list.
* parse.y (method_call): allow aref [] to accept all kind of
method argument, including assocs, splat, and block argument.
* eval.c (SETUP_ARGS0): prepare block argument as well.
* lib/mathn.rb (Integer): remove Integer#gcd2. [ruby-core:07931]
* eval.c (error_line): print receivers true/false/nil specially.
* eval.c (rb_proc_yield): handles parameters in yield semantics.
* eval.c (nil_yield): gives LocalJumpError to denote no block
error.
* io.c (rb_io_getc): now takes one-character string.
* string.c (rb_str_hash): use FNV-1a hash from Fowler/Noll/Vo
hashing algorithm.
* string.c (rb_str_aref): str[0] now returns 1 character string,
instead of a fixnum. [Ruby2]
* parse.y (parser_yylex): ?c now returns 1 character string,
instead of a fixnum. [Ruby2]
* string.c (rb_str_aset): no longer support fixnum insertion.
* eval.c (umethod_bind): should not update original class.
[ruby-dev:28636]
* eval.c (ev_const_get): should support constant access from
within instance_eval(). [ruby-dev:28327]
* time.c (time_timeval): should round for usec floating
number. [ruby-core:07896]
* time.c (time_add): ditto.
* dir.c (sys_warning): should not call a vararg function
rb_sys_warning() indirectly. [ruby-core:07886]
* numeric.c (flo_divmod): the first element of Float#divmod should
be an integer. [ruby-dev:28589]
* test/ruby/test_float.rb: add tests for divmod, div, modulo and remainder.
* re.c (rb_reg_initialize): should not allow modifying literal
regexps. frozen check moved from rb_reg_initialize_m as well.
* re.c (rb_reg_initialize): should not modify untainted objects in
safe levels higher than 3.
* re.c (rb_memcmp): type change from char* to const void*.
* dir.c (dir_close): should not close untainted dir stream.
* dir.c (GetDIR): add tainted/frozen check for each dir operation.
* lib/rdoc/parsers/parse_rb.rb (RDoc::RubyParser::parse_symbol_arg):
typo fixed. a patch from Florian Gross <florg at florg.net>.
* eval.c (EXEC_EVENT_HOOK): trace_func may remove itself from
event_hooks. no guarantee for arbitrary hook deletion.
[ruby-dev:28632]
* util.c (ruby_strtod): differ addition to minimize error.
[ruby-dev:28619]
* util.c (ruby_strtod): should not raise ERANGE when the input
string does not have any digits. [ruby-dev:28629]
* eval.c (proc_invoke): should restore old ruby_frame->block.
thanks to ts <decoux at moulon.inra.fr>. [ruby-core:07833]
also fix [ruby-dev:28614] as well.
* signal.c (trap): sig should be less then NSIG. Coverity found
this bug. a patch from Kevin Tew <tewk at tewk.com>.
[ruby-core:07823]
* math.c (math_log2): add new method inspired by
[ruby-talk:191237].
* math.c (math_log): add optional base argument to Math::log().
[ruby-talk:191308]
* ext/syck/emitter.c (syck_scan_scalar): avoid accessing
uninitialized array element. a patch from Pat Eyler
<rubypate at gmail.com>. [ruby-core:07809]
* array.c (rb_ary_fill): initialize local variables first. a
patch from Pat Eyler <rubypate at gmail.com>. [ruby-core:07810]
* ext/syck/yaml2byte.c (syck_yaml2byte_handler): need to free
type_tag. a patch from Pat Eyler <rubypate at gmail.com>.
[ruby-core:07808]
* ext/socket/socket.c (make_hostent_internal): accept ai_family
check from Sam Roberts <sroberts at uniserve.com>.
[ruby-core:07691]
* util.c (ruby_strtod): should not cut off 18 digits for no
reason. [ruby-core:07796]
* array.c (rb_ary_fill): internalize local variable "beg" to
pacify Coverity. [ruby-core:07770]
* pack.c (pack_unpack): now supports CRLF newlines. a patch from
<tommy at tmtm.org>. [ruby-dev:28601]
* applied code clean-up patch from Stefan Huehner
<stefan at huehner.org>. [ruby-core:07764]
* lib/jcode.rb (String::tr_s): should have translated non
squeezing character sequence (i.e. a character) as well. thanks
to Hiroshi Ichikawa <gimite at gimite.ddo.jp> [ruby-list:42090]
* ext/socket/socket.c: document update patch from Sam Roberts
<sroberts at uniserve.com>. [ruby-core:07701]
* lib/mathn.rb (Integer): need not to remove gcd2. a patch from
NARUSE, Yui <naruse at airemix.com>. [ruby-dev:28570]
* parse.y (arg): too much NEW_LIST()
* eval.c (SETUP_ARGS0): remove unnecessary access to nd_alen.
* eval.c (rb_eval): use ARGSCAT for NODE_OP_ASGN1.
[ruby-dev:28585]
* parse.y (arg): use NODE_ARGSCAT for placeholder.
* lib/getoptlong.rb (GetoptLong::get): RDoc update patch from
mathew <meta at pobox.com>. [ruby-core:07738]
* variable.c (rb_const_set): raise error when no target klass is
supplied. [ruby-dev:28582]
* prec.c (prec_prec_f): documentation patch from
<gerardo.santana at gmail.com>. [ruby-core:07689]
* bignum.c (rb_big_pow): second operand may be too big even if
it's a Fixnum. [ruby-talk:187984]
* README.EXT: update symbol description. [ruby-talk:188104]
* COPYING: explicitly note GPLv2. [ruby-talk:187922]
* parse.y: remove some obsolete syntax rules (unparenthesized
method calls in argument list).
* eval.c (rb_call0): insecure calling should be checked for non
NODE_SCOPE method invocations too.
* eval.c (rb_alias): should preserve the current safe level as
well as method definition.
* process.c (rb_f_sleep): remove RDoc description about SIGALRM
which is not valid on the current implementation. [ruby-dev:28464]
Thu Mar 23 21:40:47 2006 K.Kosako <sndgk393 AT ybb.ne.jp>
* eval.c (method_missing): should support argument splat in
super. a bug in combination of super, splat and
method_missing. [ruby-talk:185438]
* configure.in: Solaris SunPro compiler -rapth patch from
<kuwa at labs.fujitsu.com>. [ruby-dev:28443]
* configure.in: remove enable_rpath=no for Solaris.
[ruby-dev:28440]
* ext/win32ole/win32ole.c (ole_val2olevariantdata): change behavior
of converting OLE Variant object with VT_ARRAY|VT_UI1 and Ruby
String object.
* ruby.1: a clarification patch from David Lutterkort
<dlutter at redhat.com>. [ruby-core:7508]
* lib/rdoc/ri/ri_paths.rb (RI::Paths): adding paths from rubygems
directories. a patch from Eric Hodel <drbrain at segment7.net>.
[ruby-core:07423]
* eval.c (rb_clear_cache_by_class): clearing wrong cache.
* ext/extmk.rb: use :remove_destination to install extension libraries
to avoid SEGV. [ruby-dev:28417]
* eval.c (rb_thread_fd_writable): should not re-schedule output
from KILLED thread (must be error printing).
* array.c (rb_ary_flatten_bang): allow specifying recursion
level. [ruby-talk:182170]
* array.c (rb_ary_flatten): ditto.
* gc.c (add_heap): a heap_slots may overflow. a patch from Stefan
Weil <weil at mail.berlios.de>.
* eval.c (rb_call): use separate cache for fcall/vcall
invocation.
* eval.c (rb_eval): NODE_FCALL, NODE_VCALL can call local
functions.
* eval.c (rb_mod_local): a new method to specify newly added
visibility "local".
* eval.c (search_method): search for local methods which are
visible only from the current class.
* class.c (rb_class_local_methods): a method to list local methods.
* object.c (Init_Object): add BasicObject class as a top level
BlankSlate class.
* ruby.h (SYM2ID): should not cast to signed long.
[ruby-core:07414]
* class.c (rb_include_module): allow module duplication.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@10235 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2006-06-09 17:20:17 -04:00
|
|
|
VP_EXPORT int VpException(unsigned short f,const char *str,int always);
|
2008-07-22 07:43:38 -04:00
|
|
|
#if 0 /* unused */
|
2003-03-28 00:00:21 -05:00
|
|
|
VP_EXPORT int VpIsNegDoubleZero(double v);
|
2008-07-22 07:43:38 -04:00
|
|
|
#endif
|
2010-08-14 11:22:43 -04:00
|
|
|
VP_EXPORT size_t VpNumOfChars(Real *vp,const char *pszFmt);
|
2010-08-10 02:25:27 -04:00
|
|
|
VP_EXPORT size_t VpInit(BDIGIT BaseVal);
|
2010-08-14 11:22:43 -04:00
|
|
|
VP_EXPORT void *VpMemAlloc(size_t mb);
|
2011-12-20 22:35:27 -05:00
|
|
|
VP_EXPORT void *VpMemRealloc(void *ptr, size_t mb);
|
2003-03-28 00:00:21 -05:00
|
|
|
VP_EXPORT void VpFree(Real *pv);
|
2010-08-14 11:22:43 -04:00
|
|
|
VP_EXPORT Real *VpAlloc(size_t mx, const char *szVal);
|
|
|
|
VP_EXPORT size_t VpAsgn(Real *c, Real *a, int isw);
|
|
|
|
VP_EXPORT size_t VpAddSub(Real *c,Real *a,Real *b,int operation);
|
|
|
|
VP_EXPORT size_t VpMult(Real *c,Real *a,Real *b);
|
|
|
|
VP_EXPORT size_t VpDivd(Real *c,Real *r,Real *a,Real *b);
|
2003-03-28 00:00:21 -05:00
|
|
|
VP_EXPORT int VpComp(Real *a,Real *b);
|
2010-08-14 11:22:43 -04:00
|
|
|
VP_EXPORT ssize_t VpExponent10(Real *a);
|
2003-03-28 00:00:21 -05:00
|
|
|
VP_EXPORT void VpSzMantissa(Real *a,char *psz);
|
2003-08-19 10:21:13 -04:00
|
|
|
VP_EXPORT int VpToSpecialString(Real *a,char *psz,int fPlus);
|
2010-08-14 11:22:43 -04:00
|
|
|
VP_EXPORT void VpToString(Real *a, char *psz, size_t fFmt, int fPlus);
|
|
|
|
VP_EXPORT void VpToFString(Real *a, char *psz, size_t fFmt, int fPlus);
|
|
|
|
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);
|
2010-08-15 00:32:40 -04:00
|
|
|
VP_EXPORT int VpVtoD(double *d, SIGNED_VALUE *e, Real *m);
|
2003-03-28 00:00:21 -05:00
|
|
|
VP_EXPORT void VpDtoV(Real *m,double d);
|
2008-07-22 07:43:38 -04:00
|
|
|
#if 0 /* unused */
|
2003-03-28 00:00:21 -05:00
|
|
|
VP_EXPORT void VpItoV(Real *m,S_INT ival);
|
2008-07-22 07:43:38 -04:00
|
|
|
#endif
|
2003-03-28 00:00:21 -05:00
|
|
|
VP_EXPORT int VpSqrt(Real *y,Real *x);
|
* ext/bigdecimal/bigdecimal.c (Init_bigdecimal, rmpd_set_thread_local_exception_mode, VpGetException, VpSetException): thread-local exception mode.
* ext/bigdecimal/bigdecimal.c (Init_bigdecimal, rmpd_set_thread_local_precision_limit, VpGetPrecLimit, VpSetPrecLimit): thread-local precision limit.
* ext/bigdecimal/bigdecimal.c (Init_bigdecimal, rmpd_set_thread_local_rounding_mode, VpGetRoundMode, VpSetRoundMode, VpException, VpInternalRound): thread-local rounding mode.
* ext/bigdecimal/bigdecimal.c (BigDecimal_mode, BigDecimal_round, VpIsRoundMode, VpGetRoundMode, VpSetRoundMode, VpActiveRound, VpMidRound, VpLeftRound), ext/bigdecimal/bigdecimal.h: use unsigned short for rounding mode.
* test/bigdecimal/test_bigdecimal.rb (test_mode): add test for setting rounding mode.
* test/bigdecimal/test_bigdecimal.rb (test_thread_local_mode): add test for setting mode thread-locally.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@29099 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2010-08-25 20:14:18 -04:00
|
|
|
VP_EXPORT int VpActiveRound(Real *y, Real *x, unsigned short f, ssize_t il);
|
|
|
|
VP_EXPORT int VpMidRound(Real *y, unsigned short f, ssize_t nf);
|
|
|
|
VP_EXPORT int VpLeftRound(Real *y, unsigned short f, ssize_t nf);
|
2010-08-14 11:22:43 -04:00
|
|
|
VP_EXPORT void VpFrac(Real *y, Real *x);
|
|
|
|
VP_EXPORT int VpPower(Real *y, Real *x, SIGNED_VALUE n);
|
2003-08-01 00:48:32 -04:00
|
|
|
|
|
|
|
/* VP constants */
|
2006-06-20 14:02:17 -04:00
|
|
|
VP_EXPORT Real *VpOne(void);
|
2003-08-01 00:48:32 -04:00
|
|
|
|
2010-04-22 04:04:13 -04:00
|
|
|
/*
|
2003-03-28 00:00:21 -05:00
|
|
|
* ------------------
|
|
|
|
* MACRO definitions.
|
|
|
|
* ------------------
|
|
|
|
*/
|
|
|
|
#define Abs(a) (((a)>= 0)?(a):(-(a)))
|
|
|
|
#define Max(a, b) (((a)>(b))?(a):(b))
|
|
|
|
#define Min(a, b) (((a)>(b))?(b):(a))
|
|
|
|
|
|
|
|
#define VpMaxPrec(a) ((a)->MaxPrec)
|
|
|
|
#define VpPrec(a) ((a)->Prec)
|
|
|
|
#define VpGetFlag(a) ((a)->flag)
|
|
|
|
|
|
|
|
/* Sign */
|
|
|
|
|
|
|
|
/* VpGetSign(a) returns 1,-1 if a>0,a<0 respectively */
|
|
|
|
#define VpGetSign(a) (((a)->sign>0)?1:(-1))
|
|
|
|
/* Change sign of a to a>0,a<0 if s = 1,-1 respectively */
|
2010-08-14 11:22:43 -04:00
|
|
|
#define VpChangeSign(a,s) {if((s)>0) (a)->sign=(short)Abs((ssize_t)(a)->sign);else (a)->sign=-(short)Abs((ssize_t)(a)->sign);}
|
2003-03-28 00:00:21 -05:00
|
|
|
/* Sets sign of a to a>0,a<0 if s = 1,-1 respectively */
|
|
|
|
#define VpSetSign(a,s) {if((s)>0) (a)->sign=(short)VP_SIGN_POSITIVE_FINITE;else (a)->sign=(short)VP_SIGN_NEGATIVE_FINITE;}
|
|
|
|
|
|
|
|
/* 1 */
|
2010-08-10 02:25:27 -04:00
|
|
|
#define VpSetOne(a) {(a)->Prec=(a)->exponent=(a)->frac[0]=1;(a)->sign=VP_SIGN_POSITIVE_FINITE;}
|
2003-03-28 00:00:21 -05:00
|
|
|
|
|
|
|
/* ZEROs */
|
|
|
|
#define VpIsPosZero(a) ((a)->sign==VP_SIGN_POSITIVE_ZERO)
|
|
|
|
#define VpIsNegZero(a) ((a)->sign==VP_SIGN_NEGATIVE_ZERO)
|
|
|
|
#define VpIsZero(a) (VpIsPosZero(a) || VpIsNegZero(a))
|
|
|
|
#define VpSetPosZero(a) ((a)->frac[0]=0,(a)->Prec=1,(a)->sign=VP_SIGN_POSITIVE_ZERO)
|
|
|
|
#define VpSetNegZero(a) ((a)->frac[0]=0,(a)->Prec=1,(a)->sign=VP_SIGN_NEGATIVE_ZERO)
|
2014-02-11 21:25:28 -05:00
|
|
|
#define VpSetZero(a,s) (void)(((s)>0)?VpSetPosZero(a):VpSetNegZero(a))
|
2003-03-28 00:00:21 -05:00
|
|
|
|
|
|
|
/* NaN */
|
|
|
|
#define VpIsNaN(a) ((a)->sign==VP_SIGN_NaN)
|
|
|
|
#define VpSetNaN(a) ((a)->frac[0]=0,(a)->Prec=1,(a)->sign=VP_SIGN_NaN)
|
|
|
|
|
|
|
|
/* Infinity */
|
|
|
|
#define VpIsPosInf(a) ((a)->sign==VP_SIGN_POSITIVE_INFINITE)
|
|
|
|
#define VpIsNegInf(a) ((a)->sign==VP_SIGN_NEGATIVE_INFINITE)
|
|
|
|
#define VpIsInf(a) (VpIsPosInf(a) || VpIsNegInf(a))
|
|
|
|
#define VpIsDef(a) ( !(VpIsNaN(a)||VpIsInf(a)) )
|
|
|
|
#define VpSetPosInf(a) ((a)->frac[0]=0,(a)->Prec=1,(a)->sign=VP_SIGN_POSITIVE_INFINITE)
|
|
|
|
#define VpSetNegInf(a) ((a)->frac[0]=0,(a)->Prec=1,(a)->sign=VP_SIGN_NEGATIVE_INFINITE)
|
2014-02-11 21:25:28 -05:00
|
|
|
#define VpSetInf(a,s) (void)(((s)>0)?VpSetPosInf(a):VpSetNegInf(a))
|
2003-08-13 10:33:31 -04:00
|
|
|
#define VpHasVal(a) (a->frac[0])
|
2003-06-27 00:38:57 -04:00
|
|
|
#define VpIsOne(a) ((a->Prec==1)&&(a->frac[0]==1)&&(a->exponent==1))
|
2003-07-24 22:26:56 -04:00
|
|
|
#define VpExponent(a) (a->exponent)
|
2010-04-21 13:22:27 -04:00
|
|
|
#ifdef BIGDECIMAL_DEBUG
|
2003-03-28 00:00:21 -05:00
|
|
|
int VpVarCheck(Real * v);
|
2010-12-11 03:46:28 -05:00
|
|
|
#endif /* BIGDECIMAL_DEBUG */
|
2003-03-28 00:00:21 -05:00
|
|
|
|
|
|
|
#if defined(__cplusplus)
|
2011-12-21 10:50:15 -05:00
|
|
|
#if 0
|
2011-12-22 16:06:19 -05:00
|
|
|
{ /* satisfy cc-mode */
|
2011-12-21 10:50:15 -05:00
|
|
|
#endif
|
2003-03-28 00:00:21 -05:00
|
|
|
} /* extern "C" { */
|
|
|
|
#endif
|
2010-08-10 02:25:27 -04:00
|
|
|
#endif /* RUBY_BIG_DECIMAL_H */
|