From: Tanaka Akira <akr@...17n.org>
Date: 2001-12-16T15:41:15+09:00
Subject: [ruby-dev:15463] Re: Time#utcoff

In article <hvog06bofyp.fsf@coulee.a02.aist.go.jp>,
  Tanaka Akira <akr@m17n.org> writes:

> $B$H$$$&$o$1$G5?Ld$O2r>C$7$?$N$G%Q%C%A$r$D$1$H$-$^$9!#(B

$B$&!<$,!<!#$J$<%a!<%k$rAw$k$HLdBj$,8+$D$+$k$N$@!#(B

> +static time_t
> +make_time_t(tptr, utc_p)
> +    struct tm *tptr;
> +    int utc_p;
> +{
> +    time_t t;
> +    struct tm *tmp, buf;
> +    buf = *tptr;
> +    if (utc_p) {
> +#if defined(HAVE_TIMEGM)
> +	t = timegm(&buf);
> +	if (t == -1)
> +#endif
> +	t = search_time_t(&buf, utc_p);
> +	if (!(tmp = gmtime(&t)))
> +	    rb_raise(rb_eArgError, "gmtime error");
> +    }
> +    else {
> +#if defined(HAVE_MKTIME)
> +	t = mktime(&buf);
> +	if (t == -1)
> +#endif
> +	t = search_time_t(&buf, utc_p);
> +	if (!(tmp = localtime(&t)))
> +	    rb_raise(rb_eArgError, "localtime error");
> +    }
> +    return t;
> +}

search_time_t ($B0JA0$N(B make_time_t) $B$O(B 64bit time_t $B$G>o$K<:GT$9$k$N$G!"(B
$B$3$l$@$H(B 1969-12-31T23:59:59Z $B$r$"$D$+$($^$;$s!#$H$$$&$o$1$G(B

static time_t
make_time_t(tptr, utc_p)
    struct tm *tptr;
    int utc_p;
{
    time_t t;
    struct tm *tmp, buf;
    buf = *tptr;
    if (utc_p) {
#if defined(HAVE_TIMEGM)
        t = timegm(&buf);
        if (t == -1) {
            if (!(tmp = gmtime(&t)) ||
                tptr->tm_year != tmp->tm_year ||
                tptr->tm_mon != tmp->tm_mon ||
                tptr->tm_mday != tmp->tm_mday ||
                tptr->tm_hour != tmp->tm_hour ||
                tptr->tm_min != tmp->tm_min ||
                tptr->tm_sec != tmp->tm_sec)
                rb_raise(rb_eArgError, "gmtime error");
        }
#else
        t = search_time_t(&buf, utc_p);
#endif
    }
    else {
#if defined(HAVE_MKTIME)
        t = mktime(&buf);
        if (t == -1) {
            if (!(tmp = localtime(&t)) ||
                tptr->tm_year != tmp->tm_year ||
                tptr->tm_mon != tmp->tm_mon ||
                tptr->tm_mday != tmp->tm_mday ||
                tptr->tm_hour != tmp->tm_hour ||
                tptr->tm_min != tmp->tm_min ||
                tptr->tm_sec != tmp->tm_sec)
                rb_raise(rb_eArgError, "localtime error");
        }
#else
        t = search_time_t(&buf, utc_p);
#endif
    }
    return t;
}

$B$G$9$+$M$'!#(B
-- 
[$BEDCf(B $BE/(B][$B$?$J$+(B $B$"$-$i(B][Tanaka Akira]
$B!V$U$($m(B! $B$o$+$a$A$c$s:n@o$G$9$(C"=$B!W(B(Little Worker, $B7KM7@84](B)