tadf	2007-12-26 21:29:20 +0900 (Wed, 26 Dec 2007)

  New Revision: 14721

  Modified files:
    trunk/ChangeLog
    trunk/lib/date/format.rb

  Log:
    * lib/date/format.rb (_xmlschema): some improvements.
    
    * lib/date/format.rb (_parse): a new hint compfunc. [experimental]
    


  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi/trunk/lib/date/format.rb?r1=14721&r2=14720
  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi/trunk/ChangeLog?r1=14721&r2=14720

Index: ChangeLog
===================================================================
--- ChangeLog	(revision 14720)
+++ ChangeLog	(revision 14721)
@@ -1,3 +1,9 @@
+Wed Dec 26 21:27:02 2007  Tadayoshi Funaba  <tadf@d...>
+
+	* lib/date/format.rb (_xmlschema): some improvements.
+
+	* lib/date/format.rb (_parse): a new hint compfunc. [experimental]
+
 Wed Dec 26 17:31:08 2007  Tanaka Akira  <akr@f...>
 
 	* io.c (io_fflush): check closed fptr after rb_write_internal to avoid
Index: lib/date/format.rb
===================================================================
--- lib/date/format.rb	(revision 14720)
+++ lib/date/format.rb	(revision 14721)
@@ -1101,6 +1101,8 @@
 	case k
 	when :comp, :complete
 	  e._comp = v
+	when :compfunc
+	  e._compfunc = v
 	when :style, :endian, :endianness, :order
 	  v = {
 	    :jp     => :jp,
@@ -1214,21 +1216,19 @@
       end
     end
 
-    if e._comp
-      if e.cwyear
-	if e.cwyear >= 0 && e.cwyear <= 99
-	  e.cwyear += if e.cwyear >= 69
-		      then 1900 else 2000 end
+    e._compfunc ||= lambda do |y|
+      if e._comp
+	if y >= 0 && y <= 99
+	  y += if y >= 69
+	       then 1900 else 2000 end
 	end
       end
-      if e.year
-	if e.year >= 0 && e.year <= 99
-	  e.year += if e.year >= 69
-		    then 1900 else 2000 end
-	end
-      end
+      y
     end
 
+    e.cwyear = e._compfunc.call(e.cwyear) if e.cwyear
+    e.  year = e._compfunc.call(e.  year) if e.  year
+
     e.offset ||= zone_to_diff(e.zone) if e.zone
 
     e.to_hash
@@ -1269,17 +1269,46 @@
   end
 
   def self._xmlschema(str) # :nodoc:
-    if /\A\s*-?\d{4}-\d{2}-\d{2}
-	(t
-	\d{2}:\d{2}:\d{2}(?:\.\d+)?)?
+    if /\A\s*(-?\d{4,})(?:-(\d{2})(?:-(\d{2}))?)?
+	(?:t
+	  (\d{2}):(\d{2}):(\d{2})(?:\.(\d+))?)?
 	(z|[-+]\d{2}:\d{2})?\s*\z/inx =~ str
-      if $1.nil? && $2
-	str = str.sub(/(z|[-+]\d{2}:\d{2})/in, 'T00:00:00\1')
+      e = Format::Bag.new
+      e.year = $1.to_i
+      e.mon = $2.to_i if $2
+      e.mday = $3.to_i if $3
+      e.hour = $4.to_i if $4
+      e.min = $5.to_i if $5
+      e.sec = $6.to_i if $6
+      e.sec_fraction = $7.to_i.to_r / (10**$7.size) if $7
+      if $8
+	e.zone = $8
+	e.offset = zone_to_diff($8)
       end
-      _parse(str)
-    elsif /\A\s*\d{2}:\d{2}:\d{2}(\.\d+)?
+      e.to_hash
+    elsif /\A\s*(\d{2}):(\d{2}):(\d{2})(?:\.(\d+))?
 	(z|[-+]\d{2}:\d{2})?\s*\z/inx =~ str
-      _parse(str)
+      e = Format::Bag.new
+      e.hour = $1.to_i if $1
+      e.min = $2.to_i if $2
+      e.sec = $3.to_i if $3
+      e.sec_fraction = $4.to_i.to_r / (10**$4.size) if $4
+      if $5
+	e.zone = $5
+	e.offset = zone_to_diff($5)
+      end
+      e.to_hash
+    elsif /\A\s*(?:--(\d{2})(?:-(\d{2}))?|---(\d{2}))
+	(z|[-+]\d{2}:\d{2})?\s*\z/inx =~ str
+      e = Format::Bag.new
+      e.mon = $1.to_i if $1
+      e.mday = $2.to_i if $2
+      e.mday = $3.to_i if $3
+      if $4
+	e.zone = $4
+	e.offset = zone_to_diff($4)
+      end
+      e.to_hash
     end
   end
 
@@ -1290,15 +1319,17 @@
 	-?(\d{2,})\s+ # allow minus, anyway
 	\d{2}:\d{2}(:\d{2})?\s*
 	(?:[-+]\d{4}|ut|gmt|e[sd]t|c[sd]t|m[sd]t|p[sd]t|[a-ik-z])\s*\z/inox =~ str
-      e = _parse(str, :comp=>false)
-      if $1.size < 4
-	if e[:year] < 50
-	  e[:year] += 2000
-	elsif e[:year] < 1000
-	  e[:year] += 1900
-	end
-      end
-      e
+      _parse(str, :compfunc=>
+	     lambda do |y|
+	       if $1.size < 4
+		 if y < 50
+		   y += 2000
+		 elsif y < 1000
+		   y += 1900
+		 end
+	       end
+	       y
+	     end)
     end
   end
 

--
ML: ruby-changes@q...
Info: http://www.atdot.net/~ko1/quickml