ruby-changes:12965
From: akr <ko1@a...>
Date: Sun, 30 Aug 2009 04:06:48 +0900 (JST)
Subject: [ruby-changes:12965] Ruby:r24707 (trunk): * timev.h (TIME_SCALE): defined as 1000000000.
akr 2009-08-30 04:06:29 +0900 (Sun, 30 Aug 2009) New Revision: 24707 http://svn.ruby-lang.org/cgi-bin/viewvc.cgi?view=rev&revision=24707 Log: * timev.h (TIME_SCALE): defined as 1000000000. (struct vtm): subsec is replaced by subsecx. subsec * TIME_SCALE == subsecx. * time.c: avoid rational in most cases. (struct time_object): timev is replaced by timexv. timev * TIME_SCALE == timexv. Modified files: trunk/ChangeLog trunk/time.c trunk/timev.h Index: time.c =================================================================== --- time.c (revision 24706) +++ time.c (revision 24707) @@ -66,7 +66,7 @@ static int vtmcmp(struct vtm *a, struct vtm *b); static const char *find_time_t(struct tm *tptr, int utc_p, time_t *tp); -static struct vtm *localtimev(VALUE timev, struct vtm *result); +static struct vtm *localtimexv(VALUE timexv, struct vtm *result); static int leap_year_p(long y); #define leap_year_v_p(y) leap_year_p(NUM2LONG(mod(v, INT2FIX(400)))) @@ -133,6 +133,8 @@ return ret; } +#define mulquo(x,y,z) ((y == z) ? x : quo(mul(x,y),z)) + static void divmodv(VALUE n, VALUE d, VALUE *q, VALUE *r) { @@ -180,6 +182,18 @@ return v; } +static VALUE +rb_time_magnify(VALUE v) +{ + return mul(v, INT2FIX(TIME_SCALE)); +} + +static VALUE +rb_time_unmagnify(VALUE v) +{ + return quo(v, INT2FIX(TIME_SCALE)); +} + static const int common_year_yday_offset[] = { -1, -1 + 31, @@ -219,7 +233,7 @@ }; static VALUE -timegmv_noleapsecond(struct vtm *vtm) +timegmxv_noleapsecond(struct vtm *vtm) { VALUE year1900; VALUE q400, r400; @@ -255,7 +269,7 @@ ret = add(ret, mul(LONG2NUM(days_in400), INT2FIX(86400))); ret = add(ret, mul(q400, INT2FIX(97*86400))); ret = add(ret, mul(year1900, INT2FIX(365*86400))); - ret = add(ret, vtm->subsec); + ret = add(rb_time_magnify(ret), vtm->subsecx); return ret; } @@ -282,16 +296,17 @@ } static void -gmtimev_noleapsecond(VALUE timev, struct vtm *vtm) +gmtimexv_noleapsecond(VALUE timexv, struct vtm *vtm) { VALUE v; int i, n, x, y; const int *yday_offset; int wday; + VALUE timev; vtm->isdst = 0; - divmodv(timev, INT2FIX(1), &timev, &vtm->subsec); + divmodv(timexv, INT2FIX(TIME_SCALE), &timev, &vtm->subsecx); divmodv(timev, INT2FIX(86400), &timev, &v); wday = NUM2INT(mod(timev, INT2FIX(7))); @@ -521,7 +536,7 @@ time_t now; struct tm *tm, result; struct vtm vtm; - VALUE timev; + VALUE timexv; now = time(NULL); gmtime(&now); tm = gmtime_with_leapsecond(&now, &result); @@ -541,19 +556,19 @@ vtm.hour = result.tm_hour; vtm.min = result.tm_min; vtm.sec = result.tm_sec; - vtm.subsec = INT2FIX(0); + vtm.subsecx = INT2FIX(0); vtm.utc_offset = INT2FIX(0); - timev = timegmv_noleapsecond(&vtm); + timexv = timegmxv_noleapsecond(&vtm); - number_of_leap_seconds_known = NUM2INT(sub(TIMET2NUM(known_leap_seconds_limit), timev)); + number_of_leap_seconds_known = NUM2INT(sub(TIMET2NUM(known_leap_seconds_limit), rb_time_unmagnify(timexv))); } } static VALUE -timegmv(struct vtm *vtm) +timegmxv(struct vtm *vtm) { - VALUE timev; + VALUE timexv; struct tm tm; time_t t; const char *errmsg; @@ -561,14 +576,14 @@ /* The first leap second is 1972-06-30 23:59:60 UTC. * No leap seconds before. */ if (RTEST(gt(INT2FIX(1972), vtm->year))) - return timegmv_noleapsecond(vtm); + return timegmxv_noleapsecond(vtm); init_leap_second_info(); - timev = timegmv_noleapsecond(vtm); + timexv = timegmxv_noleapsecond(vtm); - if (RTEST(lt(TIMET2NUM(known_leap_seconds_limit), timev))) { - return add(timev, INT2NUM(number_of_leap_seconds_known)); + if (RTEST(lt(rb_time_magnify(TIMET2NUM(known_leap_seconds_limit)), timexv))) { + return add(timexv, rb_time_magnify(INT2NUM(number_of_leap_seconds_known))); } tm.tm_year = NUM2LONG(vtm->year) - 1900; @@ -582,30 +597,31 @@ errmsg = find_time_t(&tm, 1, &t); if (errmsg) rb_raise(rb_eArgError, "%s", errmsg); - return add(TIMET2NUM(t), vtm->subsec); + return add(rb_time_magnify(TIMET2NUM(t)), vtm->subsecx); } static struct vtm * -gmtimev(VALUE timev, struct vtm *result) +gmtimexv(VALUE timexv, struct vtm *result) { time_t t; struct tm tm; - VALUE subsec; + VALUE subsecx; + VALUE timev; - if (RTEST(lt(timev, INT2FIX(0)))) { - gmtimev_noleapsecond(timev, result); + if (RTEST(lt(timexv, INT2FIX(0)))) { + gmtimexv_noleapsecond(timexv, result); return result; } init_leap_second_info(); - if (RTEST(lt(LONG2NUM(known_leap_seconds_limit), timev))) { - timev = sub(timev, INT2NUM(number_of_leap_seconds_known)); - gmtimev_noleapsecond(timev, result); + if (RTEST(lt(rb_time_magnify(LONG2NUM(known_leap_seconds_limit)), timexv))) { + timexv = sub(timexv, rb_time_magnify(INT2NUM(number_of_leap_seconds_known))); + gmtimexv_noleapsecond(timexv, result); return result; } - divmodv(timev, INT2FIX(1), &timev, &subsec); + divmodv(timexv, INT2FIX(TIME_SCALE), &timev, &subsecx); t = NUM2TIMET(timev); if (!gmtime_with_leapsecond(&t, &tm)) @@ -617,7 +633,7 @@ result->hour = tm.tm_hour; result->min = tm.tm_min; result->sec = tm.tm_sec; - result->subsec = subsec; + result->subsecx = subsecx; result->utc_offset = INT2FIX(0); result->wday = tm.tm_wday; result->yday = tm.tm_yday+1; @@ -760,7 +776,7 @@ else vtm2.year = INT2FIX(compat_common_month_table[vtm_utc->mon-1][wday]); - timev = timegmv(&vtm2); + timev = rb_time_unmagnify(timegmxv(&vtm2)); t = NUM2TIMET(timev); if (localtime_with_gmtoff(&t, &tm, &gmtoff)) return LONG2FIX(gmtoff); @@ -796,12 +812,12 @@ } static VALUE -timelocalv(struct vtm *vtm) +timelocalxv(struct vtm *vtm) { time_t t; struct tm tm; VALUE v; - VALUE timev1, timev2; + VALUE timexv1, timexv2; struct vtm vtm1, vtm2; int n; @@ -827,54 +843,54 @@ if (find_time_t(&tm, 0, &t)) goto no_localtime; - return add(TIMET2NUM(t), vtm->subsec); + return add(rb_time_magnify(TIMET2NUM(t)), vtm->subsecx); no_localtime: - timev1 = timegmv(vtm); + timexv1 = timegmxv(vtm); - if (!localtimev(timev1, &vtm1)) - rb_raise(rb_eArgError, "localtimev error"); + if (!localtimexv(timexv1, &vtm1)) + rb_raise(rb_eArgError, "localtimexv error"); n = vtmcmp(vtm, &vtm1); if (n == 0) { - timev1 = sub(timev1, INT2FIX(12*3600)); - if (!localtimev(timev1, &vtm1)) - rb_raise(rb_eArgError, "localtimev error"); + timexv1 = sub(timexv1, rb_time_magnify(INT2FIX(12*3600))); + if (!localtimexv(timexv1, &vtm1)) + rb_raise(rb_eArgError, "localtimexv error"); n = 1; } if (n < 0) { - timev2 = timev1; + timexv2 = timexv1; vtm2 = vtm1; - timev1 = sub(timev1, INT2FIX(24*3600)); - if (!localtimev(timev1, &vtm1)) - rb_raise(rb_eArgError, "localtimev error"); + timexv1 = sub(timexv1, rb_time_magnify(INT2FIX(24*3600))); + if (!localtimexv(timexv1, &vtm1)) + rb_raise(rb_eArgError, "localtimexv error"); } else { - timev2 = add(timev1, INT2FIX(24*3600)); - if (!localtimev(timev2, &vtm2)) - rb_raise(rb_eArgError, "localtimev error"); + timexv2 = add(timexv1, rb_time_magnify(INT2FIX(24*3600))); + if (!localtimexv(timexv2, &vtm2)) + rb_raise(rb_eArgError, "localtimexv error"); } - timev1 = add(timev1, small_vtm_sub(vtm, &vtm1)); - timev2 = add(timev2, small_vtm_sub(vtm, &vtm2)); + timexv1 = add(timexv1, rb_time_magnify(small_vtm_sub(vtm, &vtm1))); + timexv2 = add(timexv2, rb_time_magnify(small_vtm_sub(vtm, &vtm2))); - if (eq(timev1, timev2)) - return timev1; + if (eq(timexv1, timexv2)) + return timexv1; - if (!localtimev(timev1, &vtm1)) - rb_raise(rb_eArgError, "localtimev error"); + if (!localtimexv(timexv1, &vtm1)) + rb_raise(rb_eArgError, "localtimexv error"); if (vtm->hour != vtm1.hour || vtm->min != vtm1.min || vtm->sec != vtm1.sec) - return timev2; + return timexv2; - if (!localtimev(timev2, &vtm2)) - rb_raise(rb_eArgError, "localtimev error"); + if (!localtimexv(timexv2, &vtm2)) + rb_raise(rb_eArgError, "localtimexv error"); if (vtm->hour != vtm2.hour || vtm->min != vtm2.min || vtm->sec != vtm2.sec) - return timev1; + return timexv1; if (vtm->isdst) - return lt(vtm1.utc_offset, vtm2.utc_offset) ? timev2 : timev1; + return lt(vtm1.utc_offset, vtm2.utc_offset) ? timexv2 : timexv1; else - return lt(vtm1.utc_offset, vtm2.utc_offset) ? timev1 : timev2; + return lt(vtm1.utc_offset, vtm2.utc_offset) ? timexv1 : timexv2; } static struct tm * @@ -913,10 +929,10 @@ } static struct vtm * -localtimev(VALUE timev, struct vtm *result) +localtimexv(VALUE timexv, struct vtm *result) { - VALUE subsec, offset; - divmodv(timev, INT2FIX(1), &timev, &subsec); + VALUE timev, subsecx, offset; + divmodv(timexv, INT2FIX(TIME_SCALE), &timev, &subsecx); if (le(TIMET2NUM(TIMET_MIN), timev) && le(timev, TIMET2NUM(TIMET_MAX))) { @@ -932,7 +948,7 @@ result->hour = tm.tm_hour; result->min = tm.tm_min; result->sec = tm.tm_sec; - result->subsec = subsec; + result->subsecx = subsecx; result->wday = tm.tm_wday; result->yday = tm.tm_yday+1; result->isdst = tm.tm_isdst; @@ -954,12 +970,12 @@ } } - if (!gmtimev(timev, result)) + if (!gmtimexv(timexv, result)) return NULL; offset = guess_local_offset(result); - if (!gmtimev(add(timev, offset), result)) + if (!gmtimexv(add(timexv, rb_time_magnify(offset)), result)) return NULL; result->utc_offset = offset; @@ -968,7 +984,7 @@ } struct time_object { - VALUE timev; + VALUE timexv; struct vtm vtm; int gmt; int tm_got; @@ -1004,9 +1020,9 @@ { struct time_object *tobj = ptr; if (!tobj) return; - rb_gc_mark(tobj->timev); + rb_gc_mark(tobj->timexv); rb_gc_mark(tobj->vtm.year); - rb_gc_mark(tobj->vtm.subsec); + rb_gc_mark(tobj->vtm.subsecx); rb_gc_mark(tobj->vtm.utc_offset); } @@ -1024,7 +1040,7 @@ obj = Data_Make_Struct(klass, struct time_object, time_mark, time_free, tobj); tobj->tm_got=0; - tobj->timev = INT2FIX(0); + tobj->timexv = INT2FIX(0); return obj; } @@ -1038,27 +1054,27 @@ } static VALUE -timespec2timev(struct timespec *ts) +timespec2timexv(struct timespec *ts) { - VALUE timev; + VALUE timexv; - timev = TIMET2NUM(ts->tv_sec); + timexv = rb_time_magnify(TIMET2NUM(ts->tv_sec)); if (ts->tv_nsec) - timev = add(timev, quo(LONG2NUM(ts->tv_nsec), INT2FIX(1000000000))); - return timev; + timexv = add(timexv, mulquo(LONG2NUM(ts->tv_nsec), INT2FIX(TIME_SCALE), INT2FIX(1000000000))); + return timexv; } static struct timespec -timev2timespec(VALUE timev) +timexv2timespec(VALUE timexv) { - VALUE subsec; + VALUE timev, subsecx; struct timespec ts; - divmodv(timev, INT2FIX(1), &timev, &subsec); + divmodv(timexv, INT2FIX(TIME_SCALE), &timev, &subsecx); if (lt(timev, TIMET2NUM(TIMET_MIN)) || lt(TIMET2NUM(TIMET_MAX), timev)) rb_raise(rb_eArgError, "time out of system range"); ts.tv_sec = NUM2TIMET(timev); - ts.tv_nsec = NUM2LONG(mul(subsec, INT2FIX(1000000000))); + ts.tv_nsec = NUM2LONG(mulquo(subsecx, INT2FIX(1000000000), INT2FIX(TIME_SCALE))); return ts; } @@ -1078,7 +1094,7 @@ time_modify(time); GetTimeval(time, tobj); tobj->tm_got=0; - tobj->timev = INT2FIX(0); + tobj->timexv = INT2FIX(0); #ifdef HAVE_CLOCK_GETTIME if (clock_gettime(CLOCK_REALTIME, &ts) == -1) { rb_sys_fail("clock_gettime"); @@ -1093,7 +1109,7 @@ ts.tv_nsec = tv.tv_usec * 1000; } #endif - tobj->timev = timespec2timev(&ts); + tobj->timexv = timespec2timexv(&ts); return time; } @@ -1148,13 +1164,13 @@ day = 0; if (!rb_equal(subsec, INT2FIX(0))) { - vtm->subsec = add(vtm->subsec, subsec); - if (lt(vtm->subsec, INT2FIX(0))) { - vtm->subsec = add(vtm->subsec, INT2FIX(1)); + vtm->subsecx = add(vtm->subsecx, rb_time_magnify(subsec)); + if (lt(vtm->subsecx, INT2FIX(0))) { + vtm->subsecx = add(vtm->subsecx, INT2FIX(TIME_SCALE)); sec -= 1; } - if (le(INT2FIX(1), vtm->subsec)) { - vtm->subsec = sub(vtm->subsec, INT2FIX(1)); + if (le(INT2FIX(TIME_SCALE), vtm->subsecx)) { + vtm->subsecx = sub(vtm->subsecx, INT2FIX(TIME_SCALE)); sec += 1; } goto not_zero_sec; @@ -1293,13 +1309,13 @@ vtm.min = NIL_P(v[4]) ? 0 : obj2long(v[4]); vtm.sec = 0; - vtm.subsec = INT2FIX(0); + vtm.subsecx = INT2FIX(0); if (!NIL_P(v[5])) { VALUE sec = num_exact(v[5]); VALUE subsec; divmodv(sec, INT2FIX(1), &sec, &subsec); vtm.sec = NUM2INT(sec); - vtm.subsec = subsec; + vtm.subsecx = rb_time_magnify(subsec); } vtm.isdst = -1; @@ -1319,17 +1335,17 @@ time_modify(time); GetTimeval(time, tobj); tobj->tm_got=0; - tobj->timev = INT2FIX(0); + tobj->timexv = INT2FIX(0); if (!NIL_P(vtm.utc_offset)) { VALUE off = vtm.utc_offset; vtm_add_offset(&vtm, neg(off)); vtm.utc_offset = Qnil; - tobj->timev = timegmv(&vtm); + tobj->timexv = timegmxv(&vtm); return time_set_utc_offset(time, off); } else { - tobj->timev = timelocalv(&vtm); + tobj->timexv = timelocalxv(&vtm); return time_localtime(time); } } @@ -1409,23 +1425,23 @@ *nsecp = nsec; } -static VALUE nsec2timev(time_t sec, long nsec) +static VALUE nsec2timexv(time_t sec, long nsec) { struct timespec ts; time_overflow_p(&sec, &nsec); ts.tv_sec = sec; ts.tv_nsec = nsec; - return timespec2timev(&ts); + return timespec2timexv(&ts); } static VALUE -time_new_internal(VALUE klass, VALUE timev) +time_new_internal(VALUE klass, VALUE timexv) { VALUE time = time_s_alloc(klass); struct time_object *tobj; GetTimeval(time, tobj); - tobj->timev = num_exact(timev); + tobj->timexv = num_exact(timexv); return time; } @@ -1433,19 +1449,19 @@ VALUE rb_time_new(time_t sec, long usec) { - return time_new_internal(rb_cTime, nsec2timev(sec, usec * 1000)); + return time_new_internal(rb_cTime, nsec2timexv(sec, usec * 1000)); } VALUE rb_time_nano_new(time_t sec, long nsec) { - return time_new_internal(rb_cTime, nsec2timev(sec, nsec)); + return time_new_internal(rb_cTime, nsec2timexv(sec, nsec)); } VALUE rb_time_num_new(VALUE timev, VALUE off) { - VALUE time = time_new_internal(rb_cTime, timev); + VALUE time = time_new_internal(rb_cTime, rb_time_magnify(timev)); if (!NIL_P(off)) { off = utc_offset_arg(off); @@ -1458,13 +1474,13 @@ } static VALUE -time_new_timev(VALUE klass, VALUE timev) +time_new_timexv(VALUE klass, VALUE timexv) { VALUE time = time_s_alloc(klass); struct time_object *tobj; GetTimeval(time, tobj); - tobj->timev = timev; + tobj->timexv = timexv; return time; } @@ -1568,7 +1584,7 @@ if (TYPE(time) == T_DATA && RDATA(time)->dfree == time_free) { GetTimeval(time, tobj); - ts = timev2timespec(tobj->timev); + ts = timexv2timespec(tobj->timexv); t.tv_sec = (TYPEOF_TIMEVAL_TV_SEC)ts.tv_sec; t.tv_usec = (TYPEOF_TIMEVAL_TV_USEC)(ts.tv_nsec / 1000); return t; @@ -1584,7 +1600,7 @@ if (TYPE(time) == T_DATA && RDATA(time)->dfree == time_free) { GetTimeval(time, tobj); - t = timev2timespec(tobj->timev); + t = timexv2timespec(tobj->timexv); return t; } return time_timespec(time, Qfalse); @@ -1629,24 +1645,24 @@ static VALUE time_s_at(int argc, VALUE *argv, VALUE klass) { - VALUE time, t, timev; + VALUE time, t, timexv; if (rb_scan_args(argc, argv, "11", &time, &t) == 2) { time = num_exact(time); t = num_exact(t); - timev = add(time, quo(t, INT2FIX(1000000))); - t = time_new_timev(klass, timev); + timexv = add(rb_time_magnify(time), mulquo(t, INT2FIX(TIME_SCALE), INT2FIX(1000000))); + t = time_new_timexv(klass, timexv); } else if (TYPE(time) == T_DATA && RDATA(time)->dfree == time_free) { struct time_object *tobj, *tobj2; GetTimeval(time, tobj); - t = time_new_timev(klass, tobj->timev); + t = time_new_timexv(klass, tobj->timexv); GetTimeval(t, tobj2); TIME_COPY_GMT(tobj2, tobj); } else { - timev = num_exact(time); - t = time_new_timev(klass, timev); + timexv = rb_time_magnify(num_exact(time)); + t = time_new_timexv(klass, timexv); } return t; @@ -1681,26 +1697,29 @@ } static long -obj2subsec(VALUE obj, VALUE *subsec) +obj2subsecx(VALUE obj, VALUE *subsecx) { + VALUE subsec; + if (TYPE(obj) == T_STRING) { obj = rb_str_to_inum(obj, 10, Qfalse); - *subsec = INT2FIX(0); + *subsecx = INT2FIX(0); return NUM2LONG(obj); } - divmodv(num_exact(obj), INT2FIX(1), &obj, subsec); + divmodv(num_exact(obj), INT2FIX(1), &obj, &subsec); + *subsecx = rb_time_magnify(subsec); return NUM2LONG(obj); } static long -usec2subsec(VALUE obj) +usec2subsecx(VALUE obj) { if (TYPE(obj) == T_STRING) { obj = rb_str_to_inum(obj, 10, Qfalse); } - return quo(num_exact(obj), INT2FIX(1000000)); + return mulquo(num_exact(obj), INT2FIX(TIME_SCALE), INT2FIX(1000000)); } static int @@ -1748,7 +1767,7 @@ || (vtm->hour == 24 && (vtm->min > 0 || vtm->sec > 0)) || vtm->min < 0 || vtm->min > 59 || vtm->sec < 0 || vtm->sec > 60 - || lt(vtm->subsec, INT2FIX(0)) || ge(vtm->subsec, INT2FIX(1)) + || lt(vtm->subsecx, INT2FIX(0)) || ge(vtm->subsecx, INT2FIX(TIME_SCALE)) || (!NIL_P(vtm->utc_offset) && (validate_utc_offset(vtm->utc_offset), 0))) rb_raise(rb_eArgError, "argument out of range"); } @@ -1764,7 +1783,7 @@ vtm->hour = 0; vtm->min = 0; vtm->sec = 0; - vtm->subsec = INT2FIX(0); + vtm->subsecx = INT2FIX(0); vtm->utc_offset = Qnil; vtm->wday = 0; vtm->yday = 0; @@ -1811,11 +1830,11 @@ if (!NIL_P(v[6]) && argc == 7) { vtm->sec = NIL_P(v[5])?0:obj2long(v[5]); - vtm->subsec = usec2subsec(v[6]); + vtm->subsecx = usec2subsecx(v[6]); } else { /* when argc == 8, v[6] is timezone, but ignored */ - vtm->sec = NIL_P(v[5])?0:obj2subsec(v[5], &vtm->subsec); + vtm->sec = NIL_P(v[5])?0:obj2subsecx(v[5], &vtm->subsecx); } validate_vtm(vtm); @@ -2139,8 +2158,8 @@ return a->min < b->min ? -1 : 1; else if (a->sec != b->sec) return a->sec < b->sec ? -1 : 1; - else if (ne(a->subsec, b->subsec)) - return lt(a->subsec, b->subsec) ? -1 : 1; + else if (ne(a->subsecx, b->subsecx)) + return lt(a->subsecx, b->subsecx) ? -1 : 1; else return 0; } @@ -2172,9 +2191,9 @@ time_arg(argc, argv, &vtm); if (utc_p) - time = time_new_timev(klass, timegmv(&vtm)); + time = time_new_timexv(klass, timegmxv(&vtm)); else - time = time_new_timev(klass, timelocalv(&vtm)); + time = time_new_timexv(klass, timelocalxv(&vtm)); if (utc_p) return time_gmtime(time); return time_localtime(time); } @@ -2267,7 +2286,7 @@ struct time_object *tobj; GetTimeval(time, tobj); - return div(tobj->timev, INT2FIX(1)); + return div(tobj->timexv, INT2FIX(TIME_SCALE)); } /* @@ -2291,7 +2310,7 @@ struct time_object *tobj; GetTimeval(time, tobj); - return rb_Float(tobj->timev); + return rb_Float(rb_time_unmagnify(tobj->timexv)); } /* @@ -2315,7 +2334,7 @@ struct time_object *tobj; GetTimeval(time, tobj); - return tobj->timev; + return rb_time_unmagnify(tobj->timexv); } /* @@ -2336,7 +2355,7 @@ struct time_object *tobj; GetTimeval(time, tobj); - return rb_to_int(mul(mod(tobj->timev, INT2FIX(1)), INT2FIX(1000000))); + return rb_to_int(mulquo(mod(tobj->timexv, INT2FIX(TIME_SCALE)), INT2FIX(1000000), INT2FIX(TIME_SCALE))); } /* @@ -2362,7 +2381,7 @@ struct time_object *tobj; GetTimeval(time, tobj); - return rb_to_int(mul(mod(tobj->timev, INT2FIX(1)), INT2FIX(1000000000))); + return rb_to_int(mulquo(mod(tobj->timexv, INT2FIX(TIME_SCALE)), INT2FIX(1000000000), INT2FIX(TIME_SCALE))); } /* @@ -2389,7 +2408,7 @@ struct time_object *tobj; GetTimeval(time, tobj); - return mod(tobj->timev, INT2FIX(1)); + return quo(mod(tobj->timexv, INT2FIX(TIME_SCALE)), INT2FIX(TIME_SCALE)); } /* @@ -2421,7 +2440,7 @@ GetTimeval(time1, tobj1); if (TYPE(time2) == T_DATA && RDATA(time2)->dfree == time_free) { GetTimeval(time2, tobj2); - n = rb_cmpint(cmp(tobj1->timev, tobj2->timev), tobj1->timev, tobj2->timev); + n = rb_cmpint(cmp(tobj1->timexv, tobj2->timexv), tobj1->timexv, tobj2->timexv); } else { VALUE cmp; @@ -2453,7 +2472,7 @@ GetTimeval(time1, tobj1); if (TYPE(time2) == T_DATA && RDATA(time2)->dfree == time_free) { GetTimeval(time2, tobj2); - return rb_equal(tobj1->timev, tobj2->timev); + return rb_equal(tobj1->timexv, tobj2->timexv); } return Qfalse; } @@ -2500,7 +2519,7 @@ struct time_object *tobj; GetTimeval(time, tobj); - return rb_hash(tobj->timev); + return rb_hash(tobj->timexv); } /* :nodoc: */ @@ -2544,7 +2563,7 @@ time_modify(time); } - if (!localtimev(tobj->timev, &vtm)) + if (!localtimexv(tobj->timexv, &vtm)) rb_raise(rb_eArgError, "localtime error"); tobj->vtm = vtm; @@ -2623,7 +2642,7 @@ time_modify(time); } - if (!gmtimev(tobj->timev, &vtm)) + if (!gmtimexv(tobj->timexv, &vtm)) rb_raise(rb_eArgError, "gmtime error"); tobj->vtm = vtm; @@ -2653,7 +2672,7 @@ else off = INT2FIX(0); - if (!gmtimev(tobj->timev, &vtm)) + if (!gmtimexv(tobj->timexv, &vtm)) rb_raise(rb_eArgError, "gmtime error"); tobj->vtm = vtm; @@ -2788,9 +2807,9 @@ VALUE result; offset = num_exact(offset); if (sign < 0) - result = time_new_timev(rb_cTime, sub(tobj->timev, offset)); + result = time_new_timexv(rb_cTime, sub(tobj->timexv, rb_time_magnify(offset))); else - result = time_new_timev(rb_cTime, add(tobj->timev, offset)); + result = time_new_timexv(rb_cTime, add(tobj->timexv, rb_time_magnify(offset))); if (TIME_UTC_P(tobj)) { GetTimeval(result, tobj); TIME_SET_UTC(tobj); @@ -2846,7 +2865,7 @@ struct time_object *tobj2; GetTimeval(time2, tobj2); - return rb_Float(sub(tobj->timev, tobj2->timev)); + return rb_Float(rb_time_unmagnify(sub(tobj->timexv, tobj2->timexv))); } return time_add(tobj, time2, -1); } @@ -2868,7 +2887,7 @@ struct time_object *tobj2; GetTimeval(time, tobj); - time = time_new_timev(rb_cTime, add(tobj->timev, INT2FIX(1))); + time = time_new_timexv(rb_cTime, add(tobj->timexv, INT2FIX(TIME_SCALE))); GetTimeval(time, tobj2); TIME_COPY_GMT(tobj2, tobj); return time; @@ -3351,7 +3370,7 @@ GetTimeval(time, tobj); MAKE_TM(time, tobj); - len = rb_strftime_alloc(&buf, fmt, &tobj->vtm, tobj->timev, TIME_UTC_P(tobj)); + len = rb_strftime_alloc(&buf, fmt, &tobj->vtm, rb_time_unmagnify(tobj->timexv), TIME_UTC_P(tobj)); str = rb_str_new(buf, len); if (buf != buffer) xfree(buf); return str; @@ -3449,7 +3468,7 @@ str = rb_str_new(0, 0); while (p < pe) { - len = rb_strftime_alloc(&buf, p, &tobj->vtm, tobj->timev, TIME_UTC_P(tobj)); + len = rb_strftime_alloc(&buf, p, &tobj->vtm, rb_time_unmagnify(tobj->timexv), TIME_UTC_P(tobj)); rb_str_cat(str, buf, len); p += strlen(p); if (buf != buffer) { @@ -3463,7 +3482,7 @@ } else { len = rb_strftime_alloc(&buf, RSTRING_PTR(format), - &tobj->vtm, tobj->timev, TIME_UTC_P(tobj)); + &tobj->vtm, rb_time_unmagnify(tobj->timexv), TIME_UTC_P(tobj)); } str = rb_str_new(buf, len); if (buf != buffer) xfree(buf); @@ -3487,11 +3506,11 @@ struct vtm vtm; long year; long usec, nsec; - VALUE subsec, subnano, v; + VALUE subsecx, nano, subnano, v; GetTimeval(time, tobj); - gmtimev(tobj->timev, &vtm); + gmtimexv(tobj->timexv, &vtm); if (FIXNUM_P(vtm.year)) { year = FIX2LONG(vtm.year); @@ -3502,10 +3521,10 @@ rb_raise(rb_eArgError, "year too big to marshal"); } - subsec = vtm.subsec; + subsecx = vtm.subsecx; - subsec = mul(subsec, INT2FIX(1000000000)); - divmodv(subsec, INT2FIX(1), &v, &subnano); + nano = mulquo(subsecx, INT2FIX(1000000000), INT2FIX(TIME_SCALE)); + divmodv(nano, INT2FIX(1), &v, &subnano); nsec = FIX2LONG(v); usec = nsec / 1000; nsec = nsec % 1000; @@ -3589,7 +3608,7 @@ struct vtm vtm; int i, gmt; long nsec; - VALUE timev, submicro, subnano; + VALUE timexv, submicro, subnano; time_modify(time); @@ -3622,7 +3641,7 @@ sec = p; usec = s; nsec = usec * 1000; - timev = add(TIMET2NUM(sec), quo(LONG2FIX(usec), LONG2FIX(1000000))); + timexv = add(rb_time_magnify(TIMET2NUM(sec)), mulquo(LONG2FIX(usec), INT2FIX(TIME_SCALE), LONG2FIX(1000000))); } else { p &= ~(1UL<<31); @@ -3661,18 +3680,18 @@ end_submicro: ; } - vtm.subsec = quo(LONG2FIX(nsec), LONG2FIX(1000000000)); + vtm.subsecx = mulquo(LONG2FIX(nsec), INT2FIX(TIME_SCALE), LONG2FIX(1000000000)); if (subnano != Qnil) { subnano = num_exact(subnano); - vtm.subsec = add(vtm.subsec, quo(subnano, LONG2FIX(1000000000))); + vtm.subsecx = add(vtm.subsecx, mulquo(subnano, INT2FIX(TIME_SCALE), LONG2FIX(1000000000))); } - timev = timegmv(&vtm); + timexv = timegmxv(&vtm); } GetTimeval(time, tobj); tobj->tm_got = 0; if (gmt) TIME_SET_UTC(tobj); - tobj->timev = timev; + tobj->timexv = timexv; return time; } Index: ChangeLog =================================================================== --- ChangeLog (revision 24706) +++ ChangeLog (revision 24707) @@ -1,3 +1,13 @@ +Sun Aug 30 03:59:43 2009 Tanaka Akira <akr@f...> + + * timev.h (TIME_SCALE): defined as 1000000000. + (struct vtm): subsec is replaced by subsecx. + subsec * TIME_SCALE == subsecx. + + * time.c: avoid rational in most cases. + (struct time_object): timev is replaced by timexv. + timev * TIME_SCALE == timexv. + Sun Aug 30 03:17:25 2009 Tanaka Akira <akr@f...> * time.c (init_leap_second_info): use TIMET_MAX. Index: timev.h =================================================================== --- timev.h (revision 24706) +++ timev.h (revision 24707) @@ -8,7 +8,7 @@ int hour; /* 0..23 */ int min; /* 0..59 */ int sec; /* 0..60 */ - VALUE subsec; /* 0 <= subsec < 1. possibly Rational. */ + VALUE subsecx; /* 0 <= subsecx < TIME_SCALE. possibly Rational. */ VALUE utc_offset; /* -3600 as -01:00 for example. possibly Rational. */ int wday; /* 0:Sunday, 1:Monday, ..., 6:Saturday */ int yday; /* 1..366 */ @@ -16,4 +16,6 @@ const char *zone; /* "JST", "EST", "EDT", etc. */ }; +#define TIME_SCALE 1000000000 + #endif -- ML: ruby-changes@q... Info: http://www.atdot.net/~ko1/quickml/