home_run 0.9.0-x86-mingw32 → 0.9.1-x86-mingw32

data/ext/{datetime.c → date_ext/datetime.c}

@@ -1,6 +1,67 @@
+#include "date_ext.h"
+
+extern const unsigned char rhrd_days_in_month[];
+extern const long rhrd_cumulative_days_in_month[];
+extern const unsigned char rhrd_yday_to_month[];
+extern const unsigned char rhrd_leap_yday_to_month[];
+
+extern const char * rhrd__abbr_month_names[];
+extern const char * rhrd__abbr_day_names[];
+
+static VALUE rhrdt_step(int argc, VALUE *argv, VALUE self);
+static VALUE rhrdt_to_s(VALUE self);
+VALUE rhrdt__new_offset(VALUE self, double offset);
+void rhrdt__jd_to_civil(rhrdt_t *date);
+void rhrdt__nanos_to_hms(rhrdt_t *d);
+
+extern VALUE rhrd_class;
+extern VALUE rhrdt_class;
+extern VALUE rhrdt_s_class;
+extern ID rhrd_id__parse;
+extern ID rhrd_id_cwday;
+extern ID rhrd_id_cweek;
+extern ID rhrd_id_cwyear;
+extern ID rhrd_id_hash;
+extern ID rhrd_id_now;
+extern ID rhrd_id_offset;
+extern ID rhrd_id_to_i;
+#ifdef RUBY19
+extern ID rhrd_id_nsec;
+#else
+extern ID rhrd_id_usec;
+#endif
+extern ID rhrd_id_utc_offset;
+extern VALUE rhrd_sym_hour;
+extern VALUE rhrd_sym_min;
+extern VALUE rhrd_sym_offset;
+extern VALUE rhrd_sym_sec;
+extern VALUE rhrd_sym_sec_fraction;
+extern VALUE rhrd_sym_seconds;
+
+#ifdef RUBY19
+extern ID rhrd_id__httpdate;
+extern ID rhrd_id__iso8601;
+extern ID rhrd_id__jisx0301;
+extern ID rhrd_id__rfc2822;
+extern ID rhrd_id__rfc3339;
+extern ID rhrd_id__xmlschema;
+
+extern ID rhrd_id_to_enum;
+extern ID rhrd_id_localtime;
+extern ID rhrd_id_utc;
+
+extern VALUE rhrd_sym_step;
+#endif
 
 /* Helper methods */
 
+/* Raise an ArgumentError if the offset is outside the allowed range. */
+void rhrdt__check_offset(long offset) {
+  if (offset > RHR_MAX_OFFSET || offset < RHR_MIN_OFFSET) {
+    rb_raise(rb_eArgError, "invalid offset: %ld minutes", offset);
+  }
+}
+
 /* Identical for rhrd__valid_civil, but for rhrdt_t.  Not very
  * DRY, but the arguments get modified by the method and then
  * used to populate the rhrdt_t. Because the rhrd_t field structure
@@ -38,7 +99,7 @@ int rhrdt__valid_civil(rhrdt_t *dt, long year, long month, long day) {
   }
 
   if(!rhrd__valid_civil_limits(year, month, day)) {
-    return 0;
+    rb_raise(rb_eRangeError, "datetime out of range: year = %li, month = %li, day = %li", year, month, day);
   } 
 
   dt->year = year;
@@ -49,23 +110,21 @@ int rhrdt__valid_civil(rhrdt_t *dt, long year, long month, long day) {
 }
 
 /* Check if the given offset is valid.  If so, set the offset field
- * in the rhrdt_t and return 1.  Otherwise, return 0. */
-int rhrdt__valid_offset(rhrdt_t *dt, double offset) {
-  if (offset < RHR_MIN_OFFSET_FRACT || offset > RHR_MAX_OFFSET_FRACT) {
-    return 0;
-  }
-
-  dt->offset = lround(offset * 1440);
-  return 1;
+ * in the rhrdt_t, otherwise, raise an ArgumentError. */
+void rhrdt__set_offset(rhrdt_t *dt, double offset) {
+  long offset_min;
+  offset_min = lround(offset * 1440);
+  rhrdt__check_offset(offset_min);
+  dt->offset = offset_min;
 }
 
-/* Check if the time information consistutes a valid time.  If not, return
- * 0.  If so, fill in the fields in the rhrdt_t and return 1.  This handles
+/* Check if the time information consistutes a valid time.  If not, raise an
+ * ArgumentError.  If so, fill in the fields in the rhrdt_t.  This handles
  * wrap around for negative hour, minute, and second arguments, and handles
  * an hour of 24 with no minute or second value as the 0th hour of the next
  * day, so either the julian day or civil day fields in the rhrdt_t should
  * be filled out before calling this method. */
-int rhrdt__valid_time(rhrdt_t *dt, long h, long m, long s, double offset) {
+void rhrdt__set_time(rhrdt_t *dt, long h, long m, long s, double offset) {
   if (h < 0) {
     h += 24;
   }
@@ -82,17 +141,14 @@ int rhrdt__valid_time(rhrdt_t *dt, long h, long m, long s, double offset) {
     dt->flags &= ~RHR_HAVE_CIVIL;
     h = 0;
   } else if (h < 0 || m < 0 || s < 0 || h > 23 || m > 59 || s > 59) {
-    return 0;
-  }
-  if(!rhrdt__valid_offset(dt, offset)) {
-    return 0;
+    rb_raise(rb_eArgError, "invalid time: %ld hours, %ld minutes, %ld seconds", h, m, s);
   }
+  rhrdt__set_offset(dt, offset);
 
   dt->hour = h;
   dt->minute = m;
   dt->second = s;
   dt->flags |= RHR_HAVE_HMS;
-  return 1;
 }
 
 /* Same as rhrd__civil_to_jd for rhrdt_t. */
@@ -172,7 +228,7 @@ int rhrdt__valid_commercial(rhrdt_t *d, long cwyear, long cweek, long cwday) {
   }
 
   if ((n.jd > RHR_JD_MAX) || (n.jd < RHR_JD_MIN)) {
-    return 0;
+    rb_raise(rb_eRangeError, "datetime out of range");
   }
 
   d->jd = n.jd;
@@ -209,7 +265,7 @@ int rhrdt__valid_ordinal(rhrdt_t *d, long year, long yday) {
   }
 
   if(!rhrd__valid_civil_limits(year, month, day)) {
-    return 0;
+    rb_raise(rb_eRangeError, "datetime out of range");
   } 
 
   d->year = year;
@@ -251,7 +307,7 @@ VALUE rhrdt__from_jd_nanos(long jd, long long nanos, short offset) {
   long t;
   rhrdt_t *dt;
   VALUE new;
-  new = Data_Make_Struct(rhrdt_class, rhrdt_t, NULL, free, dt);
+  new = Data_Make_Struct(rhrdt_class, rhrdt_t, NULL, -1, dt);
   
   if (nanos < 0) {
     t = nanos/RHR_NANOS_PER_DAY - 1;
@@ -263,6 +319,7 @@ VALUE rhrdt__from_jd_nanos(long jd, long long nanos, short offset) {
     jd += t;
   }
   dt->jd = jd;
+  RHR_CHECK_JD(dt)
   dt->nanos = nanos;
   dt->offset = offset;
   dt->flags = RHR_HAVE_JD | RHR_HAVE_NANOS;
@@ -314,7 +371,7 @@ VALUE rhrdt__add_months(VALUE self, long n) {
   long x;
   Data_Get_Struct(self, rhrdt_t, d);
 
-  new = Data_Make_Struct(rhrdt_class, rhrdt_t, NULL, free, newd);
+  new = Data_Make_Struct(rhrdt_class, rhrdt_t, NULL, -1, newd);
   RHRDT_FILL_CIVIL(d)
   memcpy(newd, d, sizeof(rhrdt_t));
 
@@ -377,9 +434,7 @@ void rhrdt__fill_from_hash(rhrdt_t *dt, VALUE hash) {
     dt->minute = (time_set - dt->hour * RHR_SECONDS_PER_HOUR)/60;
     dt->second = rhrd__mod(time_set, 60);
     offset /= 60;
-    if (offset > RHR_MAX_OFFSET_MINUTES || offset < RHR_MIN_OFFSET_MINUTES) {
-      rb_raise(rb_eArgError, "invalid offset: %ld minutes", offset);
-    }
+    rhrdt__check_offset(offset);
     RHR_CHECK_JD(dt);
     dt->flags = RHR_HAVE_JD | RHR_HAVE_NANOS | RHR_HAVE_HMS;
     return;
@@ -428,15 +483,13 @@ void rhrdt__fill_from_hash(rhrdt_t *dt, VALUE hash) {
     dt->flags |= RHR_HAVE_CIVIL;
   }
   if(time_set) {
-    rhrdt__valid_time(dt, hour, minute, second, offset/RHR_SECONDS_PER_DAYD);
+    rhrdt__set_time(dt, hour, minute, second, offset/RHR_SECONDS_PER_DAYD);
     if(nanos) {
       RHRDT_FILL_NANOS(dt)
       dt->nanos += nanos;
     }
   } else if (offset) {
-    if(!rhrdt__valid_offset(dt, offset/RHR_SECONDS_PER_DAYD)){
-      rb_raise(rb_eArgError, "invalid date");
-    } 
+    rhrdt__set_offset(dt, offset/RHR_SECONDS_PER_DAYD);
   }
 }
 
@@ -447,10 +500,8 @@ VALUE rhrdt__new_offset(VALUE self, double offset) {
   rhrdt_t *dt;
   long offset_min;
 
-  if(offset < RHR_MIN_OFFSET_FRACT || offset > RHR_MAX_OFFSET_FRACT) {
-    rb_raise(rb_eArgError, "invalid offset (%f)", offset);
-  } 
   offset_min = lround(offset * 1440.0);
+  rhrdt__check_offset(offset_min);
   Data_Get_Struct(self, rhrdt_t, dt);
   RHRDT_FILL_JD(dt)
   RHRDT_FILL_NANOS(dt)
@@ -473,7 +524,7 @@ static VALUE rhrdt_s__load(VALUE klass, VALUE string) {
   rhrdt_t * d;
   long x;
   VALUE ary, rd;
-  rd = Data_Make_Struct(klass, rhrdt_t, NULL, free, d);
+  rd = Data_Make_Struct(klass, rhrdt_t, NULL, -1, d);
 
   ary = rb_marshal_load(string);
   if (!RTEST(rb_obj_is_kind_of(ary, rb_cArray)) || RARRAY_LEN(ary) != 3) {
@@ -489,9 +540,7 @@ static VALUE rhrdt_s__load(VALUE klass, VALUE string) {
   }
 
   x = NUM2LONG(rb_ary_entry(ary, 2));
-  if (x > RHR_MAX_OFFSET_MINUTES || x < RHR_MIN_OFFSET_MINUTES) {
-    rb_raise(rb_eArgError, "invalid offset: %ld minutes", x);
-  }
+  rhrdt__check_offset(x);
   d->offset = x;
   
   d->flags = RHR_HAVE_JD | RHR_HAVE_NANOS;
@@ -545,7 +594,7 @@ static VALUE rhrdt_s_civil(int argc, VALUE *argv, VALUE klass) {
   long minute = 0;
   long second = 0;
   double offset = 0.0;
-  VALUE rdt = Data_Make_Struct(klass, rhrdt_t, NULL, free, dt);
+  VALUE rdt = Data_Make_Struct(klass, rhrdt_t, NULL, -1, dt);
 
   switch(argc) {
     case 0:
@@ -573,13 +622,9 @@ static VALUE rhrdt_s_civil(int argc, VALUE *argv, VALUE klass) {
   }
 
   if (!rhrdt__valid_civil(dt, year, month, day)) {
-    RHR_CHECK_CIVIL(dt)
     rb_raise(rb_eArgError, "invalid date (year: %li, month: %li, day: %li)", year, month, day);
   }
-  if (!rhrdt__valid_time(dt, hour, minute, second, offset)) {
-    rb_raise(rb_eArgError, "invalid time (hour: %li, minute: %li, second: %li, offset: %f)", hour, minute, second, offset);
-  }
-
+  rhrdt__set_time(dt, hour, minute, second, offset);
   return rdt;
 }
 
@@ -606,7 +651,7 @@ static VALUE rhrdt_s_commercial(int argc, VALUE *argv, VALUE klass) {
   long minute = 0;
   long second = 0;
   double offset = 0.0;
-  VALUE rdt = Data_Make_Struct(klass, rhrdt_t, NULL, free, dt);
+  VALUE rdt = Data_Make_Struct(klass, rhrdt_t, NULL, -1, dt);
 
   switch(argc) {
     case 8:
@@ -638,13 +683,9 @@ static VALUE rhrdt_s_commercial(int argc, VALUE *argv, VALUE klass) {
       break;
   }
   if(!rhrdt__valid_commercial(dt, cwyear, cweek, cwday)) {
-    RHR_CHECK_JD(dt)
     rb_raise(rb_eArgError, "invalid date (cwyear: %li, cweek: %li, cwday: %li)", cwyear, cweek, cwday);
   }
-  if (!rhrdt__valid_time(dt, hour, minute, second, offset)) {
-    rb_raise(rb_eArgError, "invalid time (hour: %li, minute: %li, second: %li, offset: %f)", hour, minute, second, offset);
-  }
-
+  rhrdt__set_time(dt, hour, minute, second, offset);
   return rdt;
 }
 
@@ -662,7 +703,7 @@ static VALUE rhrdt_s_jd(int argc, VALUE *argv, VALUE klass) {
   long minute = 0;
   long second = 0;
   double offset = 0.0;
-  VALUE rdt = Data_Make_Struct(klass, rhrdt_t, NULL, free, dt);
+  VALUE rdt = Data_Make_Struct(klass, rhrdt_t, NULL, -1, dt);
 
   switch(argc) {
     case 0:
@@ -687,10 +728,7 @@ static VALUE rhrdt_s_jd(int argc, VALUE *argv, VALUE klass) {
 
   RHR_CHECK_JD(dt)
   dt->flags = RHR_HAVE_JD;
-  if (!rhrdt__valid_time(dt, hour, minute, second, offset)) {
-    rb_raise(rb_eArgError, "invalid time (hour: %li, minute: %li, second: %li, offset: %f)", hour, minute, second, offset);
-  }
-
+  rhrdt__set_time(dt, hour, minute, second, offset);
   return rdt;
 }
 
@@ -715,7 +753,7 @@ static VALUE rhrdt_s_jd(int argc, VALUE *argv, VALUE klass) {
 static VALUE rhrdt_s_new_b(int argc, VALUE *argv, VALUE klass) {
   double offset = 0;
   rhrdt_t *dt;
-  VALUE rdt = Data_Make_Struct(klass, rhrdt_t, NULL, free, dt);
+  VALUE rdt = Data_Make_Struct(klass, rhrdt_t, NULL, -1, dt);
 
   switch(argc) {
     case 0:
@@ -724,12 +762,11 @@ static VALUE rhrdt_s_new_b(int argc, VALUE *argv, VALUE klass) {
     case 2:
     case 3:
       offset = NUM2DBL(argv[1]);
-      if (!rhrdt__valid_offset(dt, offset)) {
-        rb_raise(rb_eArgError, "invalid offset (%f)", offset);
-      }
+      rhrdt__set_offset(dt, offset);
     case 1:
       offset += NUM2DBL(argv[0]) + 0.5;
       dt->jd = offset;
+      RHR_CHECK_JD(dt)
       dt->nanos = (offset - dt->jd)*RHR_NANOS_PER_DAY;
       dt->flags = RHR_HAVE_JD | RHR_HAVE_NANOS;
       break;
@@ -751,7 +788,7 @@ static VALUE rhrdt_s_new_b(int argc, VALUE *argv, VALUE klass) {
  */
 static VALUE rhrdt_s_now(int argc, VALUE *argv, VALUE klass) {
   rhrdt_t *dt;
-  VALUE rdt = Data_Make_Struct(klass, rhrdt_t, NULL, free, dt);
+  VALUE rdt = Data_Make_Struct(klass, rhrdt_t, NULL, -1, dt);
 
   switch(argc) {
     case 0:
@@ -784,7 +821,7 @@ static VALUE rhrdt_s_ordinal(int argc, VALUE *argv, VALUE klass) {
   long second = 0;
   double offset = 0.0;
   rhrdt_t *dt;
-  VALUE rdt = Data_Make_Struct(klass, rhrdt_t, NULL, free, dt);
+  VALUE rdt = Data_Make_Struct(klass, rhrdt_t, NULL, -1, dt);
 
   switch(argc) {
     case 7:
@@ -813,9 +850,7 @@ static VALUE rhrdt_s_ordinal(int argc, VALUE *argv, VALUE klass) {
     RHR_CHECK_JD(dt)
     rb_raise(rb_eArgError, "invalid date (year: %li, yday: %li)", year, day);
   }
-  if (!rhrdt__valid_time(dt, hour, minute, second, offset)) {
-    rb_raise(rb_eArgError, "invalid time (hour: %li, minute: %li, second: %li, offset: %f)", hour, minute, second, offset);
-  }
+  rhrdt__set_time(dt, hour, minute, second, offset);
   return rdt;
 }
 
@@ -833,7 +868,7 @@ static VALUE rhrdt_s_ordinal(int argc, VALUE *argv, VALUE klass) {
  */
 static VALUE rhrdt_s_parse(int argc, VALUE *argv, VALUE klass) {
   rhrdt_t *dt;
-  VALUE rdt = Data_Make_Struct(klass, rhrdt_t, NULL, free, dt);
+  VALUE rdt = Data_Make_Struct(klass, rhrdt_t, NULL, -1, dt);
 
   switch(argc) {
     case 0:
@@ -867,7 +902,7 @@ static VALUE rhrdt_s_parse(int argc, VALUE *argv, VALUE klass) {
  */
 static VALUE rhrdt_s_strptime(int argc, VALUE *argv, VALUE klass) {
   rhrdt_t *dt;
-  VALUE rdt = Data_Make_Struct(klass, rhrdt_t, NULL, free, dt);
+  VALUE rdt = Data_Make_Struct(klass, rhrdt_t, NULL, -1, dt);
 
   switch(argc) {
     case 0:
@@ -1403,18 +1438,19 @@ static VALUE rhrdt_step(int argc, VALUE *argv, VALUE self) {
   double step, limit;
   long long step_nanos, limit_nanos, current_nanos;
   long step_jd, limit_jd, current_jd;
-  VALUE rlimit, new;
+  VALUE rlimit, new, rstep;
   Data_Get_Struct(self, rhrdt_t, d);
   Data_Get_Struct(rhrdt__new_offset(self, 0), rhrdt_t, d0);
 
-  rb_need_block();
   switch(argc) {
     case 1:
       step_nanos = 0;
       step_jd = 1;
+      rstep = LONG2NUM(step_jd);
       break;
     case 2:
-      step = NUM2DBL(argv[1]);
+      rstep = argv[1];
+      step = NUM2DBL(rstep);
       step_jd = floor(step);
       step_nanos = llround((step - step_jd)*RHR_NANOS_PER_DAY);
       break;
@@ -1422,8 +1458,16 @@ static VALUE rhrdt_step(int argc, VALUE *argv, VALUE self) {
       rb_raise(rb_eArgError, "wrong number of arguments: %i for 2", argc);
       break;
   }
-
   rlimit = argv[0];
+
+#ifdef RUBY19
+  if (!rb_block_given_p()) {
+    return rb_funcall(self, rhrd_id_to_enum, 3, rhrd_sym_step, rlimit, rstep);
+  }
+#else
+  rb_need_block();
+#endif
+
   if (RTEST(rb_obj_is_kind_of(rlimit, rb_cNumeric))) {
     limit = NUM2DBL(rlimit);
     limit_jd = floor(limit);
@@ -1864,7 +1908,7 @@ VALUE rhrdt__add_years(VALUE self, long n) {
   VALUE new;
   Data_Get_Struct(self, rhrdt_t, d);
 
-  new = Data_Make_Struct(rhrdt_class, rhrdt_t, NULL, free, newd);
+  new = Data_Make_Struct(rhrdt_class, rhrdt_t, NULL, -1, newd);
   RHRDT_FILL_CIVIL(d)
   memcpy(newd, d, sizeof(rhrdt_t));
 
@@ -1943,7 +1987,7 @@ long rhrdt__add_iso_time_format(rhrdt_t *dt, char *str, long len, long i) {
 static VALUE rhrdt_s_httpdate(int argc, VALUE *argv, VALUE klass) {
   rhrdt_t *d;
   VALUE rd;
-  rd = Data_Make_Struct(klass, rhrdt_t, NULL, free, d);
+  rd = Data_Make_Struct(klass, rhrdt_t, NULL, -1, d);
 
   switch(argc) {
     case 0:
@@ -1978,7 +2022,7 @@ static VALUE rhrdt_s_httpdate(int argc, VALUE *argv, VALUE klass) {
 static VALUE rhrdt_s_iso8601(int argc, VALUE *argv, VALUE klass) {
   rhrdt_t *d;
   VALUE rd;
-  rd = Data_Make_Struct(klass, rhrdt_t, NULL, free, d);
+  rd = Data_Make_Struct(klass, rhrdt_t, NULL, -1, d);
 
   switch(argc) {
     case 0:
@@ -2013,7 +2057,7 @@ static VALUE rhrdt_s_iso8601(int argc, VALUE *argv, VALUE klass) {
 static VALUE rhrdt_s_jisx0301(int argc, VALUE *argv, VALUE klass) {
   rhrdt_t *d;
   VALUE rd;
-  rd = Data_Make_Struct(klass, rhrdt_t, NULL, free, d);
+  rd = Data_Make_Struct(klass, rhrdt_t, NULL, -1, d);
 
   switch(argc) {
     case 0:
@@ -2048,7 +2092,7 @@ static VALUE rhrdt_s_jisx0301(int argc, VALUE *argv, VALUE klass) {
 static VALUE rhrdt_s_rfc2822(int argc, VALUE *argv, VALUE klass) {
   rhrdt_t *d;
   VALUE rd;
-  rd = Data_Make_Struct(klass, rhrdt_t, NULL, free, d);
+  rd = Data_Make_Struct(klass, rhrdt_t, NULL, -1, d);
 
   switch(argc) {
     case 0:
@@ -2083,7 +2127,7 @@ static VALUE rhrdt_s_rfc2822(int argc, VALUE *argv, VALUE klass) {
 static VALUE rhrdt_s_rfc3339(int argc, VALUE *argv, VALUE klass) {
   rhrdt_t *d;
   VALUE rd;
-  rd = Data_Make_Struct(klass, rhrdt_t, NULL, free, d);
+  rd = Data_Make_Struct(klass, rhrdt_t, NULL, -1, d);
 
   switch(argc) {
     case 0:
@@ -2118,7 +2162,7 @@ static VALUE rhrdt_s_rfc3339(int argc, VALUE *argv, VALUE klass) {
 static VALUE rhrdt_s_xmlschema(int argc, VALUE *argv, VALUE klass) {
   rhrdt_t *d;
   VALUE rd;
-  rd = Data_Make_Struct(klass, rhrdt_t, NULL, free, d);
+  rd = Data_Make_Struct(klass, rhrdt_t, NULL, -1, d);
 
   switch(argc) {
     case 0:
@@ -2512,7 +2556,7 @@ static VALUE rhrdt_rfc2822(VALUE self) {
 static VALUE rhrdt_to_date(VALUE self) {
   rhrd_t *d;
   rhrdt_t *dt;
-  VALUE rd = Data_Make_Struct(rhrd_class, rhrd_t, NULL, free, d);
+  VALUE rd = Data_Make_Struct(rhrd_class, rhrd_t, NULL, -1, d);
   Data_Get_Struct(self, rhrdt_t, dt);
 
   if (RHR_HAS_CIVIL(dt)) {
@@ -2570,7 +2614,7 @@ static VALUE rhrdt_time_to_datetime(VALUE self) {
   rhrdt_t *dt;
   VALUE rd;
   long t, offset;
-  rd = Data_Make_Struct(rhrdt_class, rhrdt_t, NULL, free, dt);
+  rd = Data_Make_Struct(rhrdt_class, rhrdt_t, NULL, -1, dt);
 
   offset = NUM2LONG(rb_funcall(self, rhrd_id_utc_offset, 0));
   t = NUM2LONG(rb_funcall(self, rhrd_id_to_i, 0)) + offset;
@@ -2680,7 +2724,6 @@ void Init_datetime(void) {
   /* Define class */
 
   rhrdt_class = rb_define_class("DateTime", rhrd_class);
-  rb_undef_alloc_func(rhrdt_class);
   rhrdt_s_class = rb_singleton_class(rhrdt_class);
 
   /* Define methods for all ruby versions*/

data/ext/date_ext/extconf.rb

@@ -0,0 +1,6 @@
+require 'mkmf'
+$CFLAGS << " -DRUBY19" if  RUBY_VERSION >= '1.9.0'
+$CFLAGS << " -DRUBY186" if  RUBY_VERSION < '1.8.7'
+$CFLAGS << " -Wall " unless RUBY_PLATFORM =~ /solaris/
+$CFLAGS << ' -g -ggdb -rdynamic -O0 -DDEBUG' if ENV['DEBUG']
+create_makefile("date_ext")

data/{ext → lib}/date/format.rb

@@ -1,7 +1,7 @@
 # format.rb: Written by Tadayoshi Funaba 1999-2009
 # $Id: format.rb,v 2.43 2008-01-17 20:16:31+09 tadf Exp $
 
-require 'date' unless defined?(Date)
+require 'date' unless defined?(Date::ZONES)
 
 class Date
   # Holds some constants used by the pure ruby parsing code.

data/lib/date.rb

@@ -0,0 +1,7 @@
+begin
+  require "date_ext"
+rescue LoadError
+  raise unless RUBY_PLATFORM =~ /mswin|mingw/
+  require "#{RUBY_VERSION[0...3]}/date_ext"
+end
+require "date/format" unless defined?(Date::Format::ZONES)

data/lib/home_run.rb

@@ -0,0 +1,5 @@
+Object.send(:remove_const, :Date) if defined?(Date)
+Object.send(:remove_const, :DateTime) if defined?(DateTime)
+dir = File.dirname(File.expand_path(__FILE__))
+load File.join(dir, 'date.rb')
+load File.join(dir, 'date', 'format.rb') unless defined?(Date::Format)

data/spec/date/allocate_spec.rb

@@ -0,0 +1,7 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+describe "Date.allocate" do
+  it "should not be defined" do
+    proc{Date.allocate}.should raise_error
+  end
+end

data/spec/date/encoding_spec.rb

@@ -0,0 +1,42 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
+ruby_version_is "1.9" do
+  describe "Date string encoding methods" do
+    it "should return strings in US-ASCII encoding by default" do
+      d = Date.today
+      d.asctime.encoding.name.should == 'US-ASCII'
+      d.ctime.encoding.name.should == 'US-ASCII'
+      d.httpdate.encoding.name.should == 'US-ASCII'
+      d.inspect.encoding.name.should == 'US-ASCII'
+      d.iso8601.encoding.name.should == 'US-ASCII'
+      d.jisx0301.encoding.name.should == 'US-ASCII'
+      d.rfc2822.encoding.name.should == 'US-ASCII'
+      d.rfc3339.encoding.name.should == 'US-ASCII'
+      d.rfc822.encoding.name.should == 'US-ASCII'
+      d.strftime('%S:%M:%H').encoding.name.should == 'US-ASCII'
+      d.to_s.encoding.name.should == 'US-ASCII'
+      d.xmlschema.encoding.name.should == 'US-ASCII'
+    end
+
+    it "should return strings in default_internal encoding if set" do
+      begin
+        Encoding.default_internal = 'UTF-8'
+        d = Date.today
+        d.asctime.encoding.name.should == 'UTF-8'
+        d.ctime.encoding.name.should == 'UTF-8'
+        d.httpdate.encoding.name.should == 'UTF-8'
+        d.inspect.encoding.name.should == 'UTF-8'
+        d.iso8601.encoding.name.should == 'UTF-8'
+        d.jisx0301.encoding.name.should == 'UTF-8'
+        d.rfc2822.encoding.name.should == 'UTF-8'
+        d.rfc3339.encoding.name.should == 'UTF-8'
+        d.rfc822.encoding.name.should == 'UTF-8'
+        d.strftime('%S:%M:%H').encoding.name.should == 'UTF-8'
+        d.to_s.encoding.name.should == 'UTF-8'
+        d.xmlschema.encoding.name.should == 'UTF-8'
+      ensure
+        Encoding.default_internal = nil
+      end
+    end
+  end
+end