diff options
author | shigek <shigek@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-05-06 13:18:26 +0000 |
---|---|---|
committer | shigek <shigek@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-05-06 13:18:26 +0000 |
commit | 3f8d7303c18a9a3de1438dfa7299d2e71bbab031 (patch) | |
tree | bf64e39293d6151047caf85e2b72fe0fbc2f9d30 /ext/bigdecimal | |
parent | 273a14a44cd790874e94bb7335eeea687477fe3e (diff) | |
download | ruby-3f8d7303c18a9a3de1438dfa7299d2e71bbab031.tar.gz |
bigdecimal-brushup.patch from Tadashi Saito applied.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@3763 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/bigdecimal')
-rw-r--r-- | ext/bigdecimal/bigdecimal.c | 50 | ||||
-rw-r--r-- | ext/bigdecimal/bigdecimal.h | 4 | ||||
-rw-r--r-- | ext/bigdecimal/bigdecimal_en.html | 12 | ||||
-rw-r--r-- | ext/bigdecimal/bigdecimal_ja.html | 21 |
4 files changed, 41 insertions, 46 deletions
diff --git a/ext/bigdecimal/bigdecimal.c b/ext/bigdecimal/bigdecimal.c index 39ac20748f..62343830ac 100644 --- a/ext/bigdecimal/bigdecimal.c +++ b/ext/bigdecimal/bigdecimal.c @@ -30,7 +30,7 @@ * */ -#include "ruby.h" +#include <ctype.h> #include <stdio.h> #include <stdlib.h> #include <string.h> @@ -157,7 +157,7 @@ GetVpValue(VALUE v, int must) } break; case T_FIXNUM: - sprintf(szD, "%d", NUM2INT(v)); + sprintf(szD, "%d", FIX2INT(v)); return VpCreateRbObject(VpBaseFig() * 2 + 1, szD); case T_FLOAT: pv = VpCreateRbObject(VpDblFig()*2,"0"); @@ -190,7 +190,7 @@ GetVpValue(VALUE v, int must) } return pv; case T_STRING: - Check_SafeStr(v); + SafeStringValue(v); return VpCreateRbObject(strlen(RSTRING(v)->ptr) + VpBaseFig() + 1, RSTRING(v)->ptr); case T_BIGNUM: @@ -274,13 +274,12 @@ BigDecimal_load(VALUE self, VALUE str) { ENTER(2); Real *pv; - long len; unsigned char *pch; unsigned char ch; unsigned long m=0; - Check_SafeStr(str); - pch = rb_str2cstr(str, &len); + SafeStringValue(str); + pch = RSTRING(str)->ptr; /* First get max prec */ while((*pch)!=(unsigned char)'\0' && (ch=*pch++)!=(unsigned char)':') { if(ch<'0' || ch>'9') { @@ -304,7 +303,7 @@ BigDecimal_mode(VALUE self, VALUE which, VALUE val) if(TYPE(which)!=T_FIXNUM) return INT2FIX(fo); if(val!=Qfalse && val!=Qtrue) return INT2FIX(fo); - f = (unsigned short)NUM2INT(which); + f = (unsigned short)FIX2INT(which); if(f&VP_EXCEPTION_INFINITY) { fo = VpGetException(); VpSetException((unsigned short)((val==Qtrue)?(fo|VP_EXCEPTION_INFINITY): @@ -345,7 +344,7 @@ GetPositiveInt(VALUE v) { S_INT n; Check_Type(v, T_FIXNUM); - n = NUM2INT(v); + n = FIX2INT(v); if(n <= 0) { rb_fatal("Zero or negative argument not permitted."); } @@ -824,7 +823,7 @@ BigDecimal_assign2(VALUE self, VALUE n, VALUE f) Check_Type(f, T_FIXNUM); GUARD_OBJ(cv,VpCreateRbObject(mx,"0")); GUARD_OBJ(av,GetVpValue(self,1)); - VpAsgn(cv,av,NUM2INT(f)); + VpAsgn(cv,av,FIX2INT(f)); return ToValue(cv); } @@ -947,7 +946,7 @@ BigDecimal_round(int argc, VALUE *argv, VALUE self) iLoc = 0; } else { Check_Type(vLoc, T_FIXNUM); - iLoc = NUM2INT(vLoc); + iLoc = FIX2INT(vLoc); } sw = 2; @@ -972,7 +971,7 @@ BigDecimal_truncate(int argc, VALUE *argv, VALUE self) iLoc = 0; } else { Check_Type(vLoc, T_FIXNUM); - iLoc = NUM2INT(vLoc); + iLoc = FIX2INT(vLoc); } sw = 1; /* truncate */ @@ -1010,7 +1009,7 @@ BigDecimal_floor(int argc, VALUE *argv, VALUE self) iLoc = 0; } else { Check_Type(vLoc, T_FIXNUM); - iLoc = NUM2INT(vLoc); + iLoc = FIX2INT(vLoc); } GUARD_OBJ(a,GetVpValue(self,1)); @@ -1033,7 +1032,7 @@ BigDecimal_ceil(int argc, VALUE *argv, VALUE self) iLoc = 0; } else { Check_Type(vLoc, T_FIXNUM); - iLoc = NUM2INT(vLoc); + iLoc = FIX2INT(vLoc); } GUARD_OBJ(a,GetVpValue(self,1)); @@ -1056,7 +1055,6 @@ BigDecimal_to_s(int argc, VALUE *argv, VALUE self) GUARD_OBJ(vp,GetVpValue(self,1)); nc = VpNumOfChars(vp)+1; if(rb_scan_args(argc,argv,"01",&f)==1) { - Check_Type(f, T_FIXNUM); mc = GetPositiveInt(f); nc += (nc + mc - 1) / mc + 1; } @@ -1133,7 +1131,7 @@ BigDecimal_power(VALUE self, VALUE p) S_LONG mp, ma, n; Check_Type(p, T_FIXNUM); - n = NUM2INT(p); + n = FIX2INT(p); ma = n; if(ma < 0) ma = -ma; if(ma == 0) ma = 1; @@ -1163,7 +1161,7 @@ BigDecimal_new(int argc, VALUE *argv, VALUE self) } else { mf = GetPositiveInt(nFig); } - Check_SafeStr(iniValue); + SafeStringValue(iniValue); GUARD_OBJ(pv,VpNewRbClass(mf, RSTRING(iniValue)->ptr,self)); return ToValue(pv); } @@ -1176,7 +1174,7 @@ BigDecimal_limit(int argc, VALUE *argv, VALUE self) if(rb_scan_args(argc,argv,"01",&nFig)==1) { Check_Type(nFig, T_FIXNUM); - VpSetPrecLimit(NUM2INT(nFig)); + VpSetPrecLimit(FIX2INT(nFig)); } return nCur; } @@ -1195,7 +1193,7 @@ BigDecimal_e(VALUE self, VALUE nFig) } static VALUE -BigDecimal_pai(VALUE self, VALUE nFig) +BigDecimal_pi(VALUE self, VALUE nFig) { ENTER(5); Real *pv; @@ -1203,7 +1201,7 @@ BigDecimal_pai(VALUE self, VALUE nFig) mf = GetPositiveInt(nFig)+VpBaseFig()-1; GUARD_OBJ(pv,VpCreateRbObject(mf, "0")); - VpPai(pv); + VpPi(pv); return ToValue(pv); } @@ -1293,7 +1291,7 @@ BigDecimal_assign(VALUE self, VALUE c, VALUE a, VALUE f) Check_Type(f, T_FIXNUM); GUARD_OBJ(cv,GetVpValue(c,1)); GUARD_OBJ(av,GetVpValue(a,1)); - v = VpAsgn(cv,av,NUM2INT(f)); + v = VpAsgn(cv,av,FIX2INT(f)); return INT2NUM(v); } @@ -1364,7 +1362,7 @@ Init_bigdecimal(void) rb_define_singleton_method(rb_cBigDecimal, "limit", BigDecimal_limit, -1); rb_define_singleton_method(rb_cBigDecimal, "E", BigDecimal_e, 1); rb_define_singleton_method(rb_cBigDecimal, "double_fig", BigDecimal_double_fig, 0); - rb_define_singleton_method(rb_cBigDecimal, "PI", BigDecimal_pai, 1); + rb_define_singleton_method(rb_cBigDecimal, "PI", BigDecimal_pi, 1); rb_define_singleton_method(rb_cBigDecimal, "induced_from",BigDecimal_induced_from, 1); rb_define_singleton_method(rb_cBigDecimal, "_load", BigDecimal_load, 1); @@ -3090,7 +3088,7 @@ VpFormatSt(char *psz,S_INT fFmt) { U_LONG ie; U_LONG i, j; - S_INT nf; + S_INT nf = 0; char ch; int fDot = 0; @@ -3871,10 +3869,10 @@ Exit: } /* - * Calculates pai(=3.141592653589793238462........). + * Calculates pi(=3.141592653589793238462........). */ VP_EXPORT void -VpPai(Real *y) +VpPi(Real *y) { Real *n, *n25, *n956, *n57121; Real *r, *f, *t; @@ -3944,7 +3942,7 @@ VpPai(Real *y) VpFree(f); VpFree(r); #ifdef _DEBUG - printf("VpPai: # of iterations=%lu+%lu\n",i1,i2); + printf("VpPi: # of iterations=%lu+%lu\n",i1,i2); #endif /* _DEBUG */ } @@ -4202,7 +4200,7 @@ SkipWhiteChar(char *szVal) char ch; U_LONG i = 0; while(ch = szVal[i++]) { - if(IsWhiteChar(ch)) continue; + if(ISSPACE(ch)) continue; break; } return i - 1; diff --git a/ext/bigdecimal/bigdecimal.h b/ext/bigdecimal/bigdecimal.h index 050bdccc07..8708d04b6f 100644 --- a/ext/bigdecimal/bigdecimal.h +++ b/ext/bigdecimal/bigdecimal.h @@ -126,7 +126,7 @@ VP_EXPORT int VpSqrt(Real *y,Real *x); VP_EXPORT void VpRound(Real *y,Real *x,int sw,int f,int il); VP_EXPORT void VpFrac(Real *y,Real *x); VP_EXPORT int VpPower(Real *y,Real *x,S_INT n); -VP_EXPORT void VpPai(Real *y); +VP_EXPORT void VpPi(Real *y); VP_EXPORT void VpExp1(Real *y); VP_EXPORT void VpExp(Real *y,Real *x); VP_EXPORT void VpSinCos(Real *psin,Real *pcos,Real *x); @@ -141,8 +141,6 @@ VP_EXPORT int VPrint(FILE *fp,char *cntl_chr,Real *a); #define Max(a, b) (((a)>(b))?(a):(b)) #define Min(a, b) (((a)>(b))?(b):(a)) -#define IsWhiteChar(ch) (((ch==' ')||(ch=='\n')||(ch=='\t')||(ch=='\b'))?1:0) - #define VpMaxPrec(a) ((a)->MaxPrec) #define VpPrec(a) ((a)->Prec) #define VpGetFlag(a) ((a)->flag) diff --git a/ext/bigdecimal/bigdecimal_en.html b/ext/bigdecimal/bigdecimal_en.html index ad4ac460cd..b8e9768f8f 100644 --- a/ext/bigdecimal/bigdecimal_en.html +++ b/ext/bigdecimal/bigdecimal_en.html @@ -704,17 +704,17 @@ its dirmeter(pi=3.14159265358979....) using J.Machin's formula. #!/usr/local/bin/ruby # -# pai.rb -# USAGE: ruby pai.rb n +# pi.rb +# USAGE: ruby pi.rb n # where n is the number of digits required. -# EX.: ruby pai.rb 1000 +# EX.: ruby pi.rb 1000 # require "bigdecimal" # # Calculates 3.1415.... using J. Machin's formula. # -def pai(sig) # sig: Number of significant figures +def big_pi(sig) # sig: Number of significant figures exp = -sig pi = BigDecimal::new("0") two = BigDecimal::new("2") @@ -746,8 +746,8 @@ def pai(sig) # sig: Number of significant figures end if $0 == __FILE__ - print "PAI("+ARGV[0]+"):\n" - p pai(ARGV[0].to_i) + print "PI("+ARGV[0]+"):\n" + p pi(ARGV[0].to_i) end </PRE></CODE> diff --git a/ext/bigdecimal/bigdecimal_ja.html b/ext/bigdecimal/bigdecimal_ja.html index e9fa7a0906..efd4228d9a 100644 --- a/ext/bigdecimal/bigdecimal_ja.html +++ b/ext/bigdecimal/bigdecimal_ja.html @@ -303,12 +303,11 @@ a が Infinity や NaN のとき、i は nil になります。 <LI>to_f</LI><BR> dup と全く同じです。 同じ値の BigDecimal オブジェクトを生成します。 -<LI>to_s</LI><BR> +<LI>to_s[(n)]</LI><BR> 文字列に変換します("0.xxxxxEn"の形になります)。<BR> -s = a.to_s -<LI>to_s2</LI><BR> -文字列に変換します。仮数部分を n 桁毎に空白で区切ります。<BR> -s = a.to_s2(n) +s = a.to_s<BR> +n が指定されたときは、仮数部分を n 桁毎に空白で区切ります。<BR> +s = a.to_s(n) <LI>exponent</LI><BR> 指数部を整数値で返します。 n = a.exponent <BR> @@ -644,17 +643,17 @@ c = a op b という計算(op は + - * /)をしたときの動作は #!/usr/local/bin/ruby # -# pai.rb -# USAGE: ruby pai.rb n +# pi.rb +# USAGE: ruby pi.rb n # where n is the number of digits required. -# EX.: ruby pai.rb 1000 +# EX.: ruby pi.rb 1000 # require "bigdecimal" # # Calculates 3.1415.... using J. Machin's formula. # -def pai(sig) # sig: Number of significant figures +def big_pi(sig) # sig: Number of significant figures exp = -sig pi = BigDecimal::new("0") two = BigDecimal::new("2") @@ -686,8 +685,8 @@ def pai(sig) # sig: Number of significant figures end if $0 == __FILE__ - print "PAI("+ARGV[0]+"):\n" - p pai(ARGV[0].to_i) + print "PI("+ARGV[0]+"):\n" + p pi(ARGV[0].to_i) end </PRE></CODE> |