[ruby-dev:5472] Re: Time class

ふなばです。

>>> Mon, 22 Feb 1999 11:43:10 +0900 の刻に 「matz」、すなわち
>>> [e-mail](Yukihiro Matsumoto) 氏曰く

matz> |# 結構長いわりにはスカスカですよね。ビット単位で割付れば同じ8バイトでも
matz> |# 年に18ビット確保できるなあ、とか考えたりして。僕ってケチなのかしら :-)
matz> それも考えたんですが，結局usecまで考えると8バイトにはおさま
matz> りそうになかったのと，ビット単位でいろいろするのが面倒になっ
matz> てしまったのでした．そうです，私は怠けものです．

# よいプログラマはちょっぴり怠けものだといいますし。

こんな感じではどうですか?


--- time.c.orig2	Thu Feb 18 21:54:09 1999
+++ time.c	Mon Feb 22 21:11:10 1999
@@ -807,21 +807,31 @@
     VALUE time, limit;
 {
     struct time_object *tobj;
-    int sec, usec;
+    unsigned long p, s;
     unsigned char buf[8];
     int i;
 
     GetTimeval(time, tobj);
-    sec = tobj->tv.tv_sec;
-    usec = tobj->tv.tv_usec;
+    time = time_new_internal
+	(rb_cTime, tobj->tv.tv_sec, tobj->tv.tv_usec); /* copy */
+    GetTimeval(time, tobj);
+    time_gmtime(time);
+
+    p=  tobj->tm.tm_year       << 14 | /* 18 */
+	tobj->tm.tm_mon        << 10 | /*  4 */
+	(tobj->tm.tm_mday - 1) <<  5 | /*  5 */
+	tobj->tm.tm_hour;              /*  5 */
+    s = tobj->tm.tm_min        << 26 | /*  6 */
+	tobj->tm.tm_sec        << 20 | /*  6 */
+	tobj->tv.tv_usec;              /* 20 */
 
     for (i=0; i<4; i++) {
-	buf[i] = sec & 0xff;
-	sec = RSHIFT(sec, 8);
+	buf[i] = p & 0xff;
+	p = RSHIFT(p, 8);
     }
     for (i=4; i<8; i++) {
-	buf[i] = usec & 0xff;
-	usec = RSHIFT(usec, 8);
+	buf[i] = s & 0xff;
+	s = RSHIFT(s, 8);
     }
     return rb_str_new(buf, 8);
 }
@@ -830,7 +840,9 @@
 time_load(klass, str)
     VALUE klass, str;
 {
-    int sec, usec;
+    unsigned long p, s;
+    VALUE time;
+    struct time_object *tobj;
     unsigned char *buf;
     int i;
 
@@ -839,15 +851,25 @@
 	rb_raise(rb_eTypeError, "marshaled time format differ");
     }
 
-    sec = usec = 0;
+    p = s = 0;
     for (i=0; i<4; i++) {
-	sec |= buf[i]<<(8*i);
+	p |= buf[i]<<(8*i);
     }
     for (i=4; i<8; i++) {
-	usec |= buf[i]<<(8*(i-4));
+	s |= buf[i]<<(8*(i-4));
     }
 
-    return time_new_internal(klass, sec, usec);
+    time = rb_funcall(rb_cTime, rb_intern("gm"), 6,
+		      INT2FIX(((p >> 14) & 0x3ffff) + 1900),
+		      INT2FIX(((p >> 10) & 0xf)     + 1),
+		      INT2FIX(((p >>  5) & 0x1f)    + 1),
+		      INT2FIX(  p        & 0x1f),
+		      INT2FIX(( s >> 26) & 0x3f),
+		      INT2FIX(( s >> 20) & 0x3f));
+    GetTimeval(time, tobj);
+    tobj->tv.tv_usec = s & 0xfffff;
+
+    return time_new_internal(klass, tobj->tv.tv_sec, tobj->tv.tv_usec);
 }
 
 void


ふなば ただよし