From f2d983cb8dad16cfaa74b71b3efb4eb846858e96 Mon Sep 17 00:00:00 2001
From: tadf <tadf@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sat, 20 Mar 2004 00:48:19 +0000
Subject: [PATCH] synchronized with date2 3.6.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@5980 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog          |  5 +++++
 lib/date.rb        | 10 ++++++----
 lib/date/format.rb | 38 ++++++++++++++++++++++++++++++--------
 3 files changed, 41 insertions(+), 12 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 6e1997dfde..b52cf5f5f2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Sat Mar 20 09:33:36 2004  Tadayoshi Funaba  <tadf@dotrb.org>
+
+	* lib/date.rb, lib/date/format.rb: _parse() now accepts fractional
+	  part of second minute that follows a comma or a full stop.
+
 Fri Mar 19 15:15:15 2004  Yukihiro Matsumoto  <matz@ruby-lang.org>
 
 	* variable.c (rb_cvar_set): class variables become private to the
diff --git a/lib/date.rb b/lib/date.rb
index 0747da1295..fabdc5bdc7 100644
--- a/lib/date.rb
+++ b/lib/date.rb
@@ -6,7 +6,7 @@
 # Documentation: William Webber <william@williamwebber.com>
 #
 #--
-# $Id: date.rb,v 2.11 2004-01-19 04:56:12+09 tadf Exp $
+# $Id: date.rb,v 2.12 2004-03-20 08:05:13+09 tadf Exp $
 #++
 #
 # == Overview
@@ -1196,16 +1196,18 @@ class DateTime < Date
 
   def self.new_with_hash(elem, sg)
     elem ||= {}
-    y, m, d, h, min, s, of =
-      elem.values_at(:year, :mon, :mday, :hour, :min, :sec, :offset)
+    y, m, d, h, min, s, fr, of =
+      elem.values_at(:year, :mon, :mday,
+		     :hour, :min, :sec, :sec_fraction, :offset)
     h   ||= 0
     min ||= 0
     s   ||= 0
+    fr  ||= 0
     of  ||= 0
     if [y, m, d].include? nil
       raise ArgumentError, 'invalid date'
     else
-      civil(y, m, d, h, min, s, of.to_r/86400, sg)
+      civil(y, m, d, h, min, s, of.to_r/86400, sg) + (fr/86400)
     end
   end
 
diff --git a/lib/date/format.rb b/lib/date/format.rb
index d3d8d17511..e8e54e7894 100644
--- a/lib/date/format.rb
+++ b/lib/date/format.rb
@@ -1,5 +1,7 @@
 # format.rb: Written by Tadayoshi Funaba 1999-2004
-# $Id: format.rb,v 2.12 2004-01-19 05:43:28+09 tadf Exp $
+# $Id: format.rb,v 2.13 2004-03-20 08:05:13+09 tadf Exp $
+
+require 'rational'
 
 class Date
 
@@ -182,6 +184,12 @@ class Date
 	return unless str.sub!(/\A%/o, '')
       when '%+'
 	return unless __strptime(str, '%a %b %e %H:%M:%S %Z %Y', elem)
+=begin
+      when '%.'
+	return unless str.sub!(/\A(\d+)/o, '')
+	val = $1.to_i.to_r / (10**$1.size)
+	elem[:sec_fraction] = val
+=end
       when '%1'
 	return unless str.sub!(/\A(\d+)/o, '')
 	val = $1.to_i
@@ -227,7 +235,7 @@ class Date
   def self._parse(str, comp=false)
     str = str.dup
 
-    str.gsub!(/[^-+.\/:0-9a-z]+/ino, ' ')
+    str.gsub!(/[^-+,.\/:0-9a-z]+/ino, ' ')
 
     # day
     if str.sub!(/(#{PARSE_DAYPAT})\S*/ino, ' ')
@@ -236,7 +244,10 @@ class Date
 
     # time
     if str.sub!(
-		/(\d+):(\d+)(?::(\d+))?
+		/(\d+):(\d+)
+		 (?:
+		   :(\d+)(?:[,.](\d*))?
+		 )?
 		 (?:
 		   \s*
 		   ([ap])(?:m\b|\.m\.)
@@ -254,15 +265,18 @@ class Date
       hour = $1.to_i
       min = $2.to_i
       sec = $3.to_i if $3
-
       if $4
+	sec_fraction = $4.to_i.to_r / (10**$4.size)
+      end
+
+      if $5
 	hour %= 12
-	if $4.downcase == 'p'
+	if $5.downcase == 'p'
 	  hour += 12
 	end
       end
 
-      zone = $5
+      zone = $6
     end
 
     # eu
@@ -368,7 +382,7 @@ class Date
 		      \s*
 		      T?
 		      \s*
-		      (\d{2,6})
+		      (\d{2,6})(?:[,.](\d*))?
 		    )?
 		    (?:
 		      \s*
@@ -406,7 +420,10 @@ class Date
 	  sec  = $3[ 4, 2].to_i if $3.size >= 6
 	end
       end
-      zone = $4
+      if $4
+	sec_fraction = $4.to_i.to_r / (10**$4.size)
+      end
+      zone = $5
     end
 
     if str.sub!(/\b(bc\b|bce\b|b\.c\.|b\.c\.e\.)/ino, ' ')
@@ -432,6 +449,7 @@ class Date
     elem[:hour] = hour if hour
     elem[:min] = min if min
     elem[:sec] = sec if sec
+    elem[:sec_fraction] = sec_fraction if sec_fraction
     elem[:zone] = zone if zone
     offset = zone_to_diff(zone) if zone
     elem[:offset] = offset if offset
@@ -511,6 +529,10 @@ class Date
 	o << '%02d' % mm
       when '%%'; o << '%'
       when '%+'; o << strftime('%a %b %e %H:%M:%S %Z %Y')	# TZ
+=begin
+      when '%.'
+	o << '%06d' % (sec_fraction / (1.to_r/86400/(10**6)))
+=end
       when '%1'; o <<   '%d' % jd
       when '%2'; o << strftime('%Y-%j')
       when '%3'; o << strftime('%Y-%m-%d')