[ruby-dev:40082] Re: [BUG] marshaling Time.utc_offset

なかだです。

At Thu, 14 Jan 2010 15:13:53 +0900,
Tanaka Akira wrote in [ruby-dev:40081]:
> 先のメールで約483m 以下の違いを表現できなくなるという問題を述べ、
> それが必要であるかどうかを問いかけました。

タイムゾーンというものは物理的な位置を表現するためのものではなく、
あくまで制度的な取り決めとして使われていることからすれば、不要で
はないかと思います。

> また、DateTime との相互変換の問題がありますね。
> 
> % ruby -rdate -e 'p DateTime.new(2000,1,1,0,0,0,Rational(1,3*24*3600)).offset'
> (1/259200)
> 
> Time だけで 1秒を単位にすれば、相互変換で情報が落ちることになります。

とりあえず。


Index: time.c
===================================================================
--- time.c	(revision 26324)
+++ time.c	(working copy)
@@ -104,5 +104,5 @@ rb_localtime(const time_t *tm, struct tm
 #endif
 
-static ID id_divmod, id_mul, id_submicro, id_nano_num, id_nano_den;
+static ID id_divmod, id_mul, id_submicro, id_nano_num, id_nano_den, id_offset;
 static ID id_eq, id_ne, id_quo, id_div, id_cmp, id_lshift;
 
@@ -3676,4 +3676,11 @@ time_mdump(VALUE time)
         rb_ivar_set(str, id_submicro, rb_str_new(buf, len));
     }
+    if (!TIME_UTC_P(tobj)) {
+	VALUE off = time_utc_offset(time), div, mod;
+	divmodv(off, INT2FIX(1), &div, &mod);
+	if (rb_equal(mod, INT2FIX(0)))
+	    off = rb_Integer(div);
+	rb_ivar_set(str, id_offset, off);
+    }
     return str;
 }
@@ -3712,5 +3719,5 @@ time_mload(VALUE time, VALUE str)
     int i, gmt;
     long nsec;
-    VALUE timexv, submicro, nano_num, nano_den;
+    VALUE timexv, submicro, nano_num, nano_den, offset;
 
     time_modify(time);
@@ -3728,4 +3735,9 @@ time_mload(VALUE time, VALUE str)
         st_delete(rb_generic_ivar_table(str), (st_data_t*)&id_submicro, 0);
     }
+    offset = rb_attr_get(str, id_offset);
+    if (offset != Qnil) {
+        validate_utc_offset(offset);
+        st_delete(rb_generic_ivar_table(str), (st_data_t*)&id_offset, 0);
+    }
     rb_copy_generic_ivar(time, str);
 
@@ -3746,4 +3758,5 @@ time_mload(VALUE time, VALUE str)
     if ((p & (1UL<<31)) == 0) {
         gmt = 0;
+	offset = Qnil;
 	sec = p;
 	usec = s;
@@ -3798,6 +3811,12 @@ end_submicro: ;
     GetTimeval(time, tobj);
     tobj->tm_got = 0;
-    if (gmt) TIME_SET_UTC(tobj);
     tobj->timexv = timexv;
+    if (gmt) {
+	TIME_SET_UTC(tobj);
+    }
+    else if (!NIL_P(offset)) {
+	time_set_utc_offset(time, offset);
+	time_fixoff(time);
+    }
 
     return time;
@@ -3854,4 +3873,5 @@ Init_Time(void)
     id_nano_num = rb_intern("nano_num");
     id_nano_den = rb_intern("nano_den");
+    id_offset = rb_intern("offset");
 
     rb_cTime = rb_define_class("Time", rb_cObject);


-- 
--- 僕の前にBugはない。
--- 僕の後ろにBugはできる。
    中田 伸悦