[ruby-dev:5287] Time class

ふなばです。

暦や時刻関連で、調べたことをまとめていたのですが、Ruby  についても、少
し発見があったので、報告します。

最近気がついたことを簡単にいいます。

o Time#strftime は結果が空になると文句をいう。

そんなつかいかたをしなければよいと思うかもしれませんが、%Z は空になる
ことがあります。書式に "\0" を与えても同じ結果になります。

とりあえず、書式として空を与えられたら、すぐさま空を返えすことはできま
す。しかし、これは問題の一部を解決するだけです。 GAWK 3.0.3 では一応こ
の問題に対応済みでした (これが Ruby に適用できるかは疑問です)。

o Time#strftime の %c などの説明は必要以上にくわしいかもしれない。

o Ruby の missing/strftime.c は GAWK のそれに比べると旧いように思う。

o rb_strftime() の strftime(3) の呼び出しで、第2引数に与える i を -1し
ていますが、たぶん、これは必要ないと思います (別の場所ではそうなってな
いし)。

o  Time#+、Time#- は浮動小数点数対して正しく機能しない。
1.2.x でも Time#- はおかしい。

o Time#+ aTime を許す仕様は、ちょっと解せない。

o Time#inspect、Time#to_s、Time#zone はタイムゾーンをとても短いものだと
思っています。これはバグではありませんが、もう少し大きめに考えておいて
もよいかなと思います。

o Time#mktime などの引数検査はやはり中途半端な感じがします。

僕は 69-99 => 1969-1999, 00-68 => 2000-2068 ということにして、検査のほ
うもこれに従うことでよいかなと思っています。

# 検査において、64ビット time_t のことを一切考えていないというのも課題と
# してあると思います。

あと、質問なんですが、Time#strftime は \0 があると、そこで区切って
strftime(3) を繰り返し呼びだしますよね。僕はもちろん、\0 も書式の一部
なのだから残るのだろうと思っていたのですが、\0 はなくなっちゃうんです
ね。これは仕様なんでしょうか。

下記にもくわしくまとめてあります。

http://www.kt.rim.or.jp/~tadf/programming-and-calendar.html#ruby

# 嘘を書いているといけないので、添削大歓迎です。

とりあえず、提案も含めて修正できるところはやってみました。参考まで。


--- time.c.orig	Tue Jan 26 19:08:17 1999
+++ time.c	Thu Feb 18 20:57:04 1999
@@ -187,7 +187,7 @@
     }
 
     args[0] = obj2int(v[0]);
-    if (args[0] < 70) args[0] += 100;
+    if (args[0] < 69) args[0] += 100;
     if (args[0] > 1900) args[0] -= 1900;
     if (NIL_P(v[1])) {
 	args[1] = 0;
@@ -227,7 +227,7 @@
     }
 
     /* value validation */
-    if (   args[0] < 70|| args[0] > 137
+    if (   args[0] < 69|| args[0] > 138
 	|| args[1] < 0 || args[1] > 11
 	|| args[2] < 1 || args[2] > 31
 	|| args[3] < 0 || args[3] > 23
@@ -264,7 +264,6 @@
     t = args[0];
     while (diff = t - (tm->tm_year)) {
 	guess += diff * 364 * 24 * 3600;
-	if (guess < 0) rb_raise(rb_eArgError, "too far future");
 	tm = (*fn)(&guess);
 	if (!tm) goto error;
     }
@@ -278,6 +277,7 @@
     guess += (args[3] - tm->tm_hour) * 3600;
     guess += (args[4] - tm->tm_min) * 60;
     guess += args[5] - tm->tm_sec;
+    if (guess < 0) rb_raise(rb_eArgError, "too far future");
 
     time = time_new_internal(klass, guess, 0);
     if (gm_or_local) return time_gmtime(time);
@@ -463,7 +463,7 @@
     VALUE time;
 {
     struct time_object *tobj;
-    char buf[64];
+    char buf[128];
     int len;
 
     GetTimeval(time, tobj);
@@ -472,12 +472,12 @@
     }
 #ifndef HAVE_TM_ZONE
     if (tobj->gmt == 1) {
-	len = strftime(buf, 64, "%a %b %d %H:%M:%S GMT %Y", &(tobj->tm));
+	len = strftime(buf, 128, "%a %b %d %H:%M:%S GMT %Y", &(tobj->tm));
     }
     else
 #endif
     {
-	len = strftime(buf, 64, "%a %b %d %H:%M:%S %Z %Y", &(tobj->tm));
+	len = strftime(buf, 128, "%a %b %d %H:%M:%S %Z %Y", &(tobj->tm));
     }
     return rb_str_new(buf, len);
 }
@@ -493,7 +493,7 @@
     if (TYPE(time2) == T_FLOAT) {
 	unsigned int nsec = (unsigned int)RFLOAT(time2)->value;
 	sec = tobj1->tv.tv_sec + nsec;
-	usec = tobj1->tv.tv_usec + (long)(RFLOAT(time2)->value-(double)nsec)*1e6;
+	usec = tobj1->tv.tv_usec + (long)((RFLOAT(time2)->value - (double)nsec)*1e6);
     }
     else if (rb_obj_is_instance_of(time2, rb_cTime)) {
 	GetTimeval(time2, tobj2);
@@ -517,7 +517,7 @@
     VALUE time1, time2;
 {
     struct time_object *tobj1, *tobj2;
-    int sec, usec;
+    long sec, usec;
 
     GetTimeval(time1, tobj1);
     if (rb_obj_is_instance_of(time2, rb_cTime)) {
@@ -531,8 +531,9 @@
 	return rb_float_new(f);
     }
     else if (TYPE(time2) == T_FLOAT) {
-	sec = tobj1->tv.tv_sec - (int)RFLOAT(time2)->value;
-	usec = tobj1->tv.tv_usec - (RFLOAT(time2)->value - (double)sec)*1e6;
+	unsigned int nsec = (unsigned int)RFLOAT(time2)->value;
+	sec = tobj1->tv.tv_sec - nsec;
+	usec = tobj1->tv.tv_usec - (long)((RFLOAT(time2)->value - (double)nsec)*1e6);
     }
     else {
 	sec = tobj1->tv.tv_sec - NUM2INT(time2);
@@ -647,7 +648,7 @@
     if (tobj->tm_got == 0) {
 	time_localtime(time);
     }
-    return INT2FIX(tobj->tm.tm_yday);
+    return INT2FIX(tobj->tm.tm_yday+1);
 }
 
 static VALUE
@@ -668,7 +669,7 @@
     VALUE time;
 {
     struct time_object *tobj;
-    char buf[10];
+    char buf[64];
     int len;
 
     GetTimeval(time, tobj);
@@ -676,7 +677,7 @@
 	time_localtime(time);
     }
 
-    len = strftime(buf, 10, "%Z", &(tobj->tm));
+    len = strftime(buf, 64, "%Z", &(tobj->tm));
     return rb_str_new(buf, len);
 }
 
@@ -698,7 +699,7 @@
 		    INT2FIX(tobj->tm.tm_mon+1),
 		    INT2FIX(tobj->tm.tm_year+1900),
 		    INT2FIX(tobj->tm.tm_wday),
-		    INT2FIX(tobj->tm.tm_yday),
+		    INT2FIX(tobj->tm.tm_yday+1),
 		    tobj->tm.tm_isdst?Qtrue:Qfalse,
 		    time_zone(time));
 }
@@ -713,11 +714,12 @@
     volatile int i;
     int len;
 
+    if (strlen(format) == 0) return 0;
     len = strftime(*buf, SMALLBUF, format, time);
     if (len != 0) return len;
     for (i=1024; i<8192; i+=1024) {
 	*buf = xmalloc(i);
-	len = strftime(*buf, i-1, format, time);
+	len = strftime(*buf, i, format, time);
 	if (len == 0) {
 	    free(*buf);
 	    continue;
@@ -754,6 +756,8 @@
 	    len = rb_strftime(&buf, p, &(tobj->tm));
 	    rb_str_cat(str, buf, len);
 	    p += strlen(p) + 1;
+	    if (p <= pe)
+		rb_str_cat(str, "\0", 1);
 	    if (len > SMALLBUF) free(buf);
 	}
 	return str;



ふなば ただよし