996 lines
25 KiB
Ruby
996 lines
25 KiB
Ruby
# format.rb: Written by Tadayoshi Funaba 1999-2006
|
|
# $Id: format.rb,v 2.20 2006-08-19 22:58:36+09 tadf Exp $
|
|
|
|
require 'rational'
|
|
|
|
class Date
|
|
|
|
module Format # :nodoc:
|
|
|
|
MONTHS = {
|
|
'january' => 1, 'february' => 2, 'march' => 3, 'april' => 4,
|
|
'may' => 5, 'june' => 6, 'july' => 7, 'august' => 8,
|
|
'september'=> 9, 'october' =>10, 'november' =>11, 'december' =>12
|
|
}
|
|
|
|
DAYS = {
|
|
'sunday' => 0, 'monday' => 1, 'tuesday' => 2, 'wednesday'=> 3,
|
|
'thursday' => 4, 'friday' => 5, 'saturday' => 6
|
|
}
|
|
|
|
ABBR_MONTHS = {
|
|
'jan' => 1, 'feb' => 2, 'mar' => 3, 'apr' => 4,
|
|
'may' => 5, 'jun' => 6, 'jul' => 7, 'aug' => 8,
|
|
'sep' => 9, 'oct' =>10, 'nov' =>11, 'dec' =>12
|
|
}
|
|
|
|
ABBR_DAYS = {
|
|
'sun' => 0, 'mon' => 1, 'tue' => 2, 'wed' => 3,
|
|
'thu' => 4, 'fri' => 5, 'sat' => 6
|
|
}
|
|
|
|
ZONES = {
|
|
'ut' => 0*3600, 'gmt' => 0*3600, 'est' => -5*3600, 'edt' => -4*3600,
|
|
'cst' => -6*3600, 'cdt' => -5*3600, 'mst' => -7*3600, 'mdt' => -6*3600,
|
|
'pst' => -8*3600, 'pdt' => -7*3600,
|
|
'a' => 1*3600, 'b' => 2*3600, 'c' => 3*3600, 'd' => 4*3600,
|
|
'e' => 5*3600, 'f' => 6*3600, 'g' => 7*3600, 'h' => 8*3600,
|
|
'i' => 9*3600, 'k' => 10*3600, 'l' => 11*3600, 'm' => 12*3600,
|
|
'n' => -1*3600, 'o' => -2*3600, 'p' => -3*3600, 'q' => -4*3600,
|
|
'r' => -5*3600, 's' => -6*3600, 't' => -7*3600, 'u' => -8*3600,
|
|
'v' => -9*3600, 'w' =>-10*3600, 'x' =>-11*3600, 'y' =>-12*3600,
|
|
'z' => 0*3600,
|
|
'utc' => 0*3600, 'wet' => 0*3600, 'bst' => 1*3600, 'wat' => -1*3600,
|
|
'at' => -2*3600, 'ast' => -4*3600, 'adt' => -3*3600, 'yst' => -9*3600,
|
|
'ydt' => -8*3600, 'hst' =>-10*3600, 'hdt' => -9*3600, 'cat' =>-10*3600,
|
|
'ahst'=>-10*3600, 'nt' =>-11*3600, 'idlw'=>-12*3600, 'cet' => 1*3600,
|
|
'met' => 1*3600, 'mewt'=> 1*3600, 'mest'=> 2*3600, 'mesz'=> 2*3600,
|
|
'swt' => 1*3600, 'sst' => 2*3600, 'fwt' => 1*3600, 'fst' => 2*3600,
|
|
'eet' => 2*3600, 'bt' => 3*3600, 'zp4' => 4*3600, 'zp5' => 5*3600,
|
|
'zp6' => 6*3600, 'wast'=> 7*3600, 'wadt'=> 8*3600, 'cct' => 8*3600,
|
|
'jst' => 9*3600, 'east'=> 10*3600, 'eadt'=> 11*3600, 'gst' => 10*3600,
|
|
'nzt' => 12*3600, 'nzst'=> 12*3600, 'nzdt'=> 13*3600, 'idle'=> 12*3600,
|
|
|
|
'afghanistan' => 16200, 'alaskan' => -32400,
|
|
'arab' => 10800, 'arabian' => 14400,
|
|
'arabic' => 10800, 'atlantic' => -14400,
|
|
'aus central' => 34200, 'aus eastern' => 36000,
|
|
'azores' => -3600, 'canada central' => -21600,
|
|
'cape verde' => -3600, 'caucasus' => 14400,
|
|
'cen. australia' => 34200, 'central america' => -21600,
|
|
'central asia' => 21600, 'central europe' => 3600,
|
|
'central european' => 3600, 'central pacific' => 39600,
|
|
'central' => -21600, 'china' => 28800,
|
|
'dateline' => -43200, 'e. africa' => 10800,
|
|
'e. australia' => 36000, 'e. europe' => 7200,
|
|
'e. south america' => -10800, 'eastern' => -18000,
|
|
'egypt' => 7200, 'ekaterinburg' => 18000,
|
|
'fiji' => 43200, 'fle' => 7200,
|
|
'greenland' => -10800, 'greenwich' => 0,
|
|
'gtb' => 7200, 'hawaiian' => -36000,
|
|
'india' => 19800, 'iran' => 12600,
|
|
'jerusalem' => 7200, 'korea' => 32400,
|
|
'mexico' => -21600, 'mid-atlantic' => -7200,
|
|
'mountain' => -25200, 'myanmar' => 23400,
|
|
'n. central asia' => 21600, 'nepal' => 20700,
|
|
'new zealand' => 43200, 'newfoundland' => -12600,
|
|
'north asia east' => 28800, 'north asia' => 25200,
|
|
'pacific sa' => -14400, 'pacific' => -28800,
|
|
'romance' => 3600, 'russian' => 10800,
|
|
'sa eastern' => -10800, 'sa pacific' => -18000,
|
|
'sa western' => -14400, 'samoa' => -39600,
|
|
'se asia' => 25200, 'malay peninsula' => 28800,
|
|
'south africa' => 7200, 'sri lanka' => 21600,
|
|
'taipei' => 28800, 'tasmania' => 36000,
|
|
'tokyo' => 32400, 'tonga' => 46800,
|
|
'us eastern' => -18000, 'us mountain' => -25200,
|
|
'vladivostok' => 36000, 'w. australia' => 28800,
|
|
'w. central africa' => 3600, 'w. europe' => 3600,
|
|
'west asia' => 18000, 'west pacific' => 36000,
|
|
'yakutsk' => 32400
|
|
}
|
|
|
|
class Bag # :nodoc:
|
|
|
|
def method_missing(t, *args, &block)
|
|
t = t.to_s
|
|
set = t.chomp!('=')
|
|
t = '@' + t
|
|
if set
|
|
instance_variable_set(t, *args)
|
|
else
|
|
if instance_variables.include?(t)
|
|
instance_variable_get(t)
|
|
end
|
|
end
|
|
end
|
|
|
|
def to_hash
|
|
instance_variables.
|
|
select{|n| !instance_variable_get(n).nil?}.grep(/\A@[^_]/).
|
|
inject({}){|r, n| r[n[1..-1].intern] = instance_variable_get(n); r}
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
def self.num_pattern? (s) # :nodoc:
|
|
/\A%[EO]?[CDdeFGgHIjkLlMmNQRrSsTUuVvWwXxYy\d]/ =~ s ||/\A\d/ =~ s
|
|
end
|
|
|
|
private_class_method :num_pattern?
|
|
|
|
def self._strptime_i(str, fmt, e) # :nodoc:
|
|
fmt.scan(/%[EO]?(.)|(.)/m) do |s, c|
|
|
if s
|
|
case s
|
|
when 'A', 'a'
|
|
return unless str.sub!(/\A(#{Format::DAYS.keys.join('|')})/io, '') ||
|
|
str.sub!(/\A(#{Format::ABBR_DAYS.keys.join('|')})/io, '')
|
|
val = Format::DAYS[$1.downcase] || Format::ABBR_DAYS[$1.downcase]
|
|
return unless val
|
|
e.wday = val
|
|
when 'B', 'b', 'h'
|
|
return unless str.sub!(/\A(#{Format::MONTHS.keys.join('|')})/io, '') ||
|
|
str.sub!(/\A(#{Format::ABBR_MONTHS.keys.join('|')})/io, '')
|
|
val = Format::MONTHS[$1.downcase] || Format::ABBR_MONTHS[$1.downcase]
|
|
return unless val
|
|
e.mon = val
|
|
when 'C'
|
|
return unless str.sub!(if num_pattern?($')
|
|
then /\A([-+]?\d{1,2})/
|
|
else /\A([-+]?\d{1,})/
|
|
end, '')
|
|
val = $1.to_i
|
|
e._cent = val
|
|
when 'c'
|
|
return unless _strptime_i(str, '%a %b %e %H:%M:%S %Y', e)
|
|
when 'D'
|
|
return unless _strptime_i(str, '%m/%d/%y', e)
|
|
when 'd', 'e'
|
|
return unless str.sub!(/\A( \d|\d{1,2})/, '')
|
|
val = $1.to_i
|
|
return unless (1..31) === val
|
|
e.mday = val
|
|
when 'F'
|
|
return unless _strptime_i(str, '%Y-%m-%d', e)
|
|
when 'G'
|
|
return unless str.sub!(if num_pattern?($')
|
|
then /\A([-+]?\d{1,4})/
|
|
else /\A([-+]?\d{1,})/
|
|
end, '')
|
|
val = $1.to_i
|
|
e.cwyear = val
|
|
when 'g'
|
|
return unless str.sub!(/\A(\d{1,2})/, '')
|
|
val = $1.to_i
|
|
return unless (0..99) === val
|
|
e.cwyear = val
|
|
e._cent ||= if val >= 69 then 19 else 20 end
|
|
when 'H', 'k'
|
|
return unless str.sub!(/\A( \d|\d{1,2})/, '')
|
|
val = $1.to_i
|
|
return unless (0..24) === val
|
|
e.hour = val
|
|
when 'I', 'l'
|
|
return unless str.sub!(/\A( \d|\d{1,2})/, '')
|
|
val = $1.to_i
|
|
return unless (1..12) === val
|
|
e.hour = val
|
|
when 'j'
|
|
return unless str.sub!(/\A(\d{1,3})/, '')
|
|
val = $1.to_i
|
|
return unless (1..366) === val
|
|
e.yday = val
|
|
when 'L'
|
|
return unless str.sub!(if num_pattern?($')
|
|
then /\A([-+]?\d{1,3})/
|
|
else /\A([-+]?\d{1,})/
|
|
end, '')
|
|
# val = $1.to_i.to_r / (10**3)
|
|
val = $1.to_i.to_r / (10**$1.size)
|
|
e.sec_fraction = val
|
|
when 'M'
|
|
return unless str.sub!(/\A(\d{1,2})/, '')
|
|
val = $1.to_i
|
|
return unless (0..59) === val
|
|
e.min = val
|
|
when 'm'
|
|
return unless str.sub!(/\A(\d{1,2})/, '')
|
|
val = $1.to_i
|
|
return unless (1..12) === val
|
|
e.mon = val
|
|
when 'N'
|
|
return unless str.sub!(if num_pattern?($')
|
|
then /\A([-+]?\d{1,9})/
|
|
else /\A([-+]?\d{1,})/
|
|
end, '')
|
|
# val = $1.to_i.to_r / (10**9)
|
|
val = $1.to_i.to_r / (10**$1.size)
|
|
e.sec_fraction = val
|
|
when 'n', 't'
|
|
return unless _strptime_i(str, "\s", e)
|
|
when 'P', 'p'
|
|
return unless str.sub!(/\A([ap])(?:m\b|\.m\.)/i, '')
|
|
e._merid = if $1.downcase == 'a' then 0 else 12 end
|
|
when 'Q'
|
|
return unless str.sub!(/\A(\d{1,})/, '')
|
|
val = $1.to_i.to_r / 10**3
|
|
e.seconds = val
|
|
when 'R'
|
|
return unless _strptime_i(str, '%H:%M', e)
|
|
when 'r'
|
|
return unless _strptime_i(str, '%I:%M:%S %p', e)
|
|
when 'S'
|
|
return unless str.sub!(/\A(\d{1,2})/, '')
|
|
val = $1.to_i
|
|
return unless (0..60) === val
|
|
e.sec = val
|
|
when 's'
|
|
return unless str.sub!(/\A(\d{1,})/, '')
|
|
val = $1.to_i
|
|
e.seconds = val
|
|
when 'T'
|
|
return unless _strptime_i(str, '%H:%M:%S', e)
|
|
when 'U', 'W'
|
|
return unless str.sub!(/\A(\d{1,2})/, '')
|
|
val = $1.to_i
|
|
return unless (0..53) === val
|
|
e.__send__(if s == 'U' then :wnum0= else :wnum1= end, val)
|
|
when 'u'
|
|
return unless str.sub!(/\A(\d{1})/, '')
|
|
val = $1.to_i
|
|
return unless (1..7) === val
|
|
e.cwday = val
|
|
when 'V'
|
|
return unless str.sub!(/\A(\d{1,2})/, '')
|
|
val = $1.to_i
|
|
return unless (1..53) === val
|
|
e.cweek = val
|
|
when 'v'
|
|
return unless _strptime_i(str, '%e-%b-%Y', e)
|
|
when 'w'
|
|
return unless str.sub!(/\A(\d{1})/, '')
|
|
val = $1.to_i
|
|
return unless (0..6) === val
|
|
e.wday = val
|
|
when 'X'
|
|
return unless _strptime_i(str, '%H:%M:%S', e)
|
|
when 'x'
|
|
return unless _strptime_i(str, '%m/%d/%y', e)
|
|
when 'Y'
|
|
return unless str.sub!(if num_pattern?($')
|
|
then /\A([-+]?\d{1,4})/
|
|
else /\A([-+]?\d{1,})/
|
|
end, '')
|
|
val = $1.to_i
|
|
e.year = val
|
|
when 'y'
|
|
return unless str.sub!(/\A(\d{1,2})/, '')
|
|
val = $1.to_i
|
|
return unless (0..99) === val
|
|
e.year = val
|
|
e._cent ||= if val >= 69 then 19 else 20 end
|
|
when 'Z', 'z'
|
|
return unless str.sub!(/\A((?:gmt|utc?)?[-+]\d+(?:[,.:]\d+(?::\d+)?)?
|
|
|[a-z.\s]+(?:standard|daylight)\s+time\b
|
|
|[a-z]+(?:\s+dst)?\b
|
|
)/ix, '')
|
|
val = $1
|
|
e.zone = val
|
|
offset = zone_to_diff(val)
|
|
e.offset = offset
|
|
when '%'
|
|
return unless str.sub!(/\A%/, '')
|
|
when '+'
|
|
return unless _strptime_i(str, '%a %b %e %H:%M:%S %Z %Y', e)
|
|
when '1'
|
|
if $VERBOSE
|
|
warn("warning: strptime: %1 is deprecated; forget this")
|
|
end
|
|
return unless str.sub!(/\A(\d+)/, '')
|
|
val = $1.to_i
|
|
e.jd = val
|
|
when '2'
|
|
if $VERBOSE
|
|
warn("warning: strptime: %2 is deprecated; use '%Y-%j'")
|
|
end
|
|
return unless _strptime_i(str, '%Y-%j', e)
|
|
when '3'
|
|
if $VERBOSE
|
|
warn("warning: strptime: %3 is deprecated; use '%F'")
|
|
end
|
|
return unless _strptime_i(str, '%F', e)
|
|
else
|
|
return unless str.sub!(Regexp.new('\\A' + Regexp.quote(s)), '')
|
|
end
|
|
else
|
|
case c
|
|
when /\A[\s\v]/
|
|
str.sub!(/\A[\s\v]+/, '')
|
|
else
|
|
return unless str.sub!(Regexp.new('\\A' + Regexp.quote(c)), '')
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
private_class_method :_strptime_i
|
|
|
|
def self._strptime(str, fmt='%F')
|
|
e = Format::Bag.new
|
|
return unless _strptime_i(str.dup, fmt, e)
|
|
|
|
if e._cent
|
|
if e.cwyear
|
|
e.cwyear += e._cent * 100
|
|
end
|
|
if e.year
|
|
e. year += e._cent * 100
|
|
end
|
|
end
|
|
|
|
if e._merid
|
|
if e.hour
|
|
e.hour %= 12
|
|
e.hour += e._merid
|
|
end
|
|
end
|
|
|
|
e.to_hash
|
|
end
|
|
|
|
def self._parse_day(str, e) # :nodoc:
|
|
if str.sub!(/(#{e._parse_daypat})[^-\d\s]*/in, ' ')
|
|
e.wday = Format::ABBR_DAYS[$1.downcase]
|
|
true
|
|
end
|
|
end
|
|
|
|
def self._parse_time(str, e) # :nodoc:
|
|
if str.sub!(
|
|
/(?:
|
|
(\d+)\s*:\s*(\d+)
|
|
(?:
|
|
\s*:\s*(\d+)(?:[,.](\d*)\s*s?)?
|
|
)?
|
|
(?:
|
|
\s*
|
|
([ap])(?:m\b|\.m\.)
|
|
)?
|
|
|
|
|
(\d+)\s*([ap])(?:m\b|\.m\.)
|
|
)
|
|
(?:
|
|
\s*
|
|
(
|
|
(?:gmt|utc?)?[-+]\d+(?:[,.:]\d+(?::\d+)?)?
|
|
|
|
|
[a-z.\s]+(?:standard|daylight)\stime\b
|
|
|
|
|
[a-z]+(?:\sdst)?\b
|
|
)
|
|
)?
|
|
/inx,
|
|
' ')
|
|
e.hour = ($1 || $6).to_i
|
|
e.min = $2.to_i if $2
|
|
e.sec = $3.to_i if $3
|
|
if $4
|
|
e.sec_fraction = $4.to_i.to_r / (10**$4.size)
|
|
end
|
|
|
|
if $5 || $7
|
|
e.hour %= 12
|
|
if ($5 || $7).downcase == 'p'
|
|
e.hour += 12
|
|
end
|
|
end
|
|
|
|
if $8
|
|
e.zone = $8
|
|
end
|
|
true
|
|
end
|
|
end
|
|
|
|
def self._parse_beat(str, e) # :nodoc:
|
|
if str.sub!(/@\s*(\d+)(?:[,.](\d*))?/, ' ')
|
|
beat = $1.to_i.to_r
|
|
beat += $2.to_i.to_r / (10**$2.size) if $2
|
|
secs = beat.to_r / 1000
|
|
h, min, s, fr = self.day_fraction_to_time(secs)
|
|
e.hour = h
|
|
e.min = min
|
|
e.sec = s
|
|
e.sec_fraction = fr * 86400
|
|
e.zone = '+0100'
|
|
true
|
|
end
|
|
end
|
|
|
|
def self._parse_eu(str, e) # :nodoc:
|
|
if str.sub!(
|
|
/(\d+)[^-\d\s]*
|
|
\s*
|
|
(#{e._parse_monthpat})[^-\d\s]*
|
|
(?:
|
|
\s*
|
|
(c(?:e|\.e\.)|b(?:ce|\.c\.e\.)|a(?:d|\.d\.)|b(?:c|\.c\.))?
|
|
\s*
|
|
(-?\d+)
|
|
)?
|
|
/inx,
|
|
' ')
|
|
e.mday = $1.to_i
|
|
e.mon = Format::ABBR_MONTHS[$2.downcase]
|
|
|
|
if $4
|
|
e.year = $4.to_i
|
|
if $4.size > 2
|
|
e._comp = false
|
|
end
|
|
end
|
|
|
|
if $3 && $4
|
|
if $3[0,1].downcase == 'b'
|
|
e.year = -e.year + 1
|
|
end
|
|
end
|
|
true
|
|
end
|
|
end
|
|
|
|
def self._parse_us(str, e) # :nodoc:
|
|
if str.sub!(
|
|
/(#{e._parse_monthpat})[^-\d\s]*
|
|
\s*
|
|
(\d+)[^-\d\s]*
|
|
(?:
|
|
\s*
|
|
(c(?:e|\.e\.)|b(?:ce|\.c\.e\.)|a(?:d|\.d\.)|b(?:c|\.c\.))?
|
|
\s*
|
|
(-?\d+)
|
|
)?
|
|
/inx,
|
|
' ')
|
|
e.mon = Format::ABBR_MONTHS[$1.downcase]
|
|
|
|
unless $2.size > 2 && $3.nil?
|
|
e.mday = $2.to_i
|
|
else
|
|
e.year = $2.to_i
|
|
end
|
|
|
|
if $4
|
|
e.year = $4.to_i
|
|
if $4.size > 2
|
|
e._comp = false
|
|
end
|
|
end
|
|
|
|
if $3 && $4
|
|
if $3[0,1].downcase == 'b'
|
|
e.year = -e.year + 1
|
|
end
|
|
end
|
|
true
|
|
end
|
|
end
|
|
|
|
def self._parse_iso(str, e) # :nodoc:
|
|
if str.sub!(/([-+]?\d+)-(\d+)-(-?\d+)/n, ' ')
|
|
e.year = $1.to_i
|
|
e.mon = $2.to_i
|
|
e.mday = $3.to_i
|
|
|
|
if $1.size > 2
|
|
e._comp = false
|
|
elsif $3.size > 2
|
|
e._comp = false
|
|
e.mday, e.mon, e.year = e.year, e.mon, e.mday
|
|
end
|
|
true
|
|
elsif str.sub!(/\b(\d{2}|\d{4})-?w(\d{2})-?(\d+)\b/in, ' ')
|
|
e.cwyear = $1.to_i
|
|
e.cweek = $2.to_i
|
|
e.cwday = $3.to_i
|
|
true
|
|
elsif str.sub!(/\b(\d{2}|\d{4})-(\d{3})\b/n, ' ')
|
|
e.year = $1.to_i
|
|
e.yday = $2.to_i
|
|
true
|
|
end
|
|
end
|
|
|
|
def self._parse_jis(str, e) # :nodoc:
|
|
if str.sub!(/([MTSH])(\d+)\.(\d+)\.(\d+)/in, ' ')
|
|
era = { 'm'=>1867,
|
|
't'=>1911,
|
|
's'=>1925,
|
|
'h'=>1988
|
|
}[$1.downcase]
|
|
e.year = $2.to_i + era
|
|
e.mon = $3.to_i
|
|
e.mday = $4.to_i
|
|
true
|
|
end
|
|
end
|
|
|
|
def self._parse_vms(str, e) # :nodoc:
|
|
if str.sub!(/(-?\d+)-(#{e._parse_monthpat})[^-]*-(-?\d+)/in, ' ')
|
|
e.mday = $1.to_i
|
|
e.mon = Format::ABBR_MONTHS[$2.downcase]
|
|
e.year = $3.to_i
|
|
|
|
if $1.size > 2
|
|
e._comp = false
|
|
e.year, e.mon, e.mday = e.mday, e.mon, e.year
|
|
elsif $3.size > 2
|
|
e._comp = false
|
|
end
|
|
true
|
|
end
|
|
end
|
|
|
|
def self._parse_sla_ja(str, e) # :nodoc:
|
|
if str.sub!(%r|(-?\d+)[/.](\d+)(?:[/.](-?\d+))?|n, ' ')
|
|
if $3
|
|
e.year = $1.to_i
|
|
e.mon = $2.to_i
|
|
e.mday = $3.to_i
|
|
if $1.size > 2
|
|
e._comp = false
|
|
end
|
|
else
|
|
if $1.size > 2
|
|
e.year = $1.to_i
|
|
e.mon = $2.to_i
|
|
elsif $2.size > 2
|
|
e.mon = $1.to_i
|
|
e.year = $2.to_i
|
|
else
|
|
e.mon = $1.to_i
|
|
e.mday = $2.to_i
|
|
end
|
|
end
|
|
|
|
if $3 && $3.size > 2
|
|
e._comp = false
|
|
e.mday, e.mon, e.year = e.year, e.mon, e.mday
|
|
end
|
|
true
|
|
end
|
|
end
|
|
|
|
def self._parse_sla_eu(str, e) # :nodoc:
|
|
if str.sub!(%r|(-?\d+)[/.](\d+)(?:[/.](-?\d+))?|n, ' ')
|
|
if $3
|
|
e.mday = $1.to_i
|
|
e.mon = $2.to_i
|
|
e.year = $3.to_i
|
|
if $3.size > 2
|
|
e._comp = false
|
|
end
|
|
else
|
|
if $1.size > 2
|
|
e.year = $1.to_i
|
|
e.mon = $2.to_i
|
|
elsif $2.size > 2
|
|
e.mon = $1.to_i
|
|
e.year = $2.to_i
|
|
else
|
|
e.mday = $1.to_i
|
|
e.mon = $2.to_i
|
|
end
|
|
end
|
|
|
|
if $3 && $1.size > 2
|
|
e._comp = false
|
|
e.year, e.mon, e.mday = e.mday, e.mon, e.year
|
|
end
|
|
true
|
|
end
|
|
end
|
|
|
|
def self._parse_sla_us(str, e) # :nodoc:
|
|
if str.sub!(%r|(-?\d+)[/.](\d+)(?:[/.](-?\d+))?|n, ' ')
|
|
if $3
|
|
e.mon = $1.to_i
|
|
e.mday = $2.to_i
|
|
e.year = $3.to_i
|
|
if $3.size > 2
|
|
e._comp = false
|
|
end
|
|
else
|
|
if $1.size > 2
|
|
e.year = $1.to_i
|
|
e.mon = $2.to_i
|
|
elsif $2.size > 2
|
|
e.mon = $1.to_i
|
|
e.year = $2.to_i
|
|
else
|
|
e.mon = $1.to_i
|
|
e.mday = $2.to_i
|
|
end
|
|
end
|
|
|
|
if $3 && $1.size > 2
|
|
e._comp = false
|
|
e.year, e.mon, e.mday = e.mon, e.mday, e.year
|
|
end
|
|
true
|
|
end
|
|
end
|
|
|
|
def self._parse_ddd(str, e) # :nodoc:
|
|
if str.sub!(
|
|
/([-+]?)(\d{2,14})
|
|
(?:
|
|
\s*
|
|
T?
|
|
\s*
|
|
(\d{2,6})(?:[,.](\d*))?
|
|
)?
|
|
(?:
|
|
\s*
|
|
(
|
|
Z
|
|
|
|
|
[-+]\d{1,4}
|
|
)
|
|
\b
|
|
)?
|
|
/inx,
|
|
' ')
|
|
case $2.size
|
|
when 2
|
|
e.mday = $2[ 0, 2].to_i
|
|
when 4
|
|
e.mon = $2[ 0, 2].to_i
|
|
e.mday = $2[ 2, 2].to_i
|
|
when 6
|
|
e.year = ($1 + $2[ 0, 2]).to_i
|
|
e.mon = $2[ 2, 2].to_i
|
|
e.mday = $2[ 4, 2].to_i
|
|
when 8, 10, 12, 14
|
|
e.year = ($1 + $2[ 0, 4]).to_i
|
|
e.mon = $2[ 4, 2].to_i
|
|
e.mday = $2[ 6, 2].to_i
|
|
e.hour = $2[ 8, 2].to_i if $2.size >= 10
|
|
e.min = $2[10, 2].to_i if $2.size >= 12
|
|
e.sec = $2[12, 2].to_i if $2.size >= 14
|
|
e._comp = false
|
|
when 3
|
|
e.yday = $2[ 0, 3].to_i
|
|
when 5
|
|
e.year = ($1 + $2[ 0, 2]).to_i
|
|
e.yday = $2[ 2, 3].to_i
|
|
when 7
|
|
e.year = ($1 + $2[ 0, 4]).to_i
|
|
e.yday = $2[ 4, 3].to_i
|
|
end
|
|
if $3
|
|
case $3.size
|
|
when 2, 4, 6
|
|
e.hour = $3[ 0, 2].to_i
|
|
e.min = $3[ 2, 2].to_i if $3.size >= 4
|
|
e.sec = $3[ 4, 2].to_i if $3.size >= 6
|
|
end
|
|
end
|
|
if $4
|
|
e.sec_fraction = $4.to_i.to_r / (10**$4.size)
|
|
end
|
|
if $5
|
|
e.zone = $5
|
|
end
|
|
true
|
|
end
|
|
end
|
|
|
|
def self._parse_k_hi(str, e) # :nodoc:
|
|
if str.sub!(/(\265\252\270\265\301\260|\271\304\265\252|\300\276\316\361|\314\300\274\243|\302\347\300\265|\276\274\317\302|\312\277\300\256|\271\304|\300\276|\314\300|\302\347|\276\274|\312\277)?\s*
|
|
(?:(\270\265|\d+)\s*\307\257\s*)?
|
|
(?:(\d+)\s*\267\356\s*)
|
|
(?:(\d+)\s*\306\374\s*)
|
|
/nx, ' ') ||
|
|
str.sub!(/(\265\252\270\265\301\260|\271\304\265\252|\300\276\316\361|\314\300\274\243|\302\347\300\265|\276\274\317\302|\312\277\300\256|\271\304|\300\276|\314\300|\302\347|\276\274|\312\277)\s*
|
|
(?:(\270\265|\d+))
|
|
(?:\s*[-\/.]+\s*(\d+)
|
|
(?:\s*[-\/.]+\s*(\d+))?)?
|
|
/nx, ' ')
|
|
|
|
era = { "\271\304\265\252" => -660,
|
|
"\300\276\316\361" => 0,
|
|
"\314\300\274\243" => 1867,
|
|
"\302\347\300\265" => 1911,
|
|
"\276\274\317\302" => 1925,
|
|
"\312\277\300\256" => 1988,
|
|
"\271\304" => -660,
|
|
"\300\276" => 0,
|
|
"\314\300" => 1867,
|
|
"\302\347" => 1911,
|
|
"\276\274" => 1925,
|
|
"\312\277" => 1988
|
|
}[$1]
|
|
if $2
|
|
e.year = ($2.to_i.nonzero? || 1)
|
|
e.year += era if era
|
|
end
|
|
if $1 && $2
|
|
if $1 == "\265\252\270\265\301\260"
|
|
e.year = -e.year + 1
|
|
end
|
|
end
|
|
e.mon = $3.to_i if $3
|
|
e.mday = $4.to_i if $4
|
|
end
|
|
end
|
|
|
|
def self._parse_k_ji(str, e) # :nodoc:
|
|
if str.sub!(/(?:(?:\270\341)?(\301\260|\270\345)|\277\274(?:\314\353)?)?\s*
|
|
(?:(\d+)\s*(?:\273\376)\s*)
|
|
(?:(\d+)\s*(?:\312\254)\s*)?
|
|
(?:(\d+)(?:[.,](\d*))?\s*(?:\311\303))?
|
|
(?i:
|
|
\s*
|
|
(
|
|
(?:gmt|utc?)?[-+]\d+(?:[,.:]\d+(?::\d+)?)?
|
|
|
|
|
[a-z.\s]+(?:standard|daylight)\stime\b
|
|
|
|
|
[a-z]+(?:\sdst)?\b
|
|
)
|
|
)?
|
|
/nx, ' ') ||
|
|
str.sub!(/(?:(?:\270\341)?(\301\260|\270\345)|\277\274(?:\314\353)?)\s*
|
|
(\d+)
|
|
(?:\s*:+\s*(\d+)
|
|
(?:\s*:+\s*(\d+)(?:[.,](\d*))?)?)?
|
|
(?i:
|
|
\s*
|
|
(
|
|
(?:gmt|utc?)?[-+]\d+(?:[,.:]\d+(?::\d+)?)?
|
|
|
|
|
[a-z.\s]+(?:standard|daylight)\stime\b
|
|
|
|
|
[a-z]+(?:\sdst)?\b
|
|
)
|
|
)?
|
|
/nx, ' ')
|
|
|
|
e.hour = $2.to_i if $2
|
|
e.min = $3.to_i if $3
|
|
e.sec = $4.to_i if $4
|
|
if $5
|
|
e.sec_fraction = $5.to_i.to_r / (10**$5.size)
|
|
end
|
|
|
|
if $1 && $2
|
|
e.hour %= 12
|
|
if $1 == "\270\345"
|
|
e.hour += 12
|
|
end
|
|
end
|
|
|
|
if $6
|
|
e.zone = $6
|
|
end
|
|
end
|
|
end
|
|
|
|
def self._parse_k_yo(str, e) # :nodoc:
|
|
if str.sub!(/(\306\374|\267\356|\262\320|\277\345|\314\332|\266\342|\305\332)[^-\d\s]*/n, ' ')
|
|
wday = { "\306\374" => 0,
|
|
"\267\356" => 1,
|
|
"\262\320" => 2,
|
|
"\277\345" => 3,
|
|
"\314\332" => 4,
|
|
"\266\342" => 5,
|
|
"\305\332" => 6
|
|
}[$1]
|
|
e.wday = wday
|
|
end
|
|
end
|
|
|
|
private_class_method :_parse_day, :_parse_time, :_parse_beat,
|
|
:_parse_eu, :_parse_us, :_parse_iso, :_parse_jis, :_parse_vms,
|
|
:_parse_sla_ja, :_parse_sla_eu, :_parse_sla_us, :_parse_ddd,
|
|
:_parse_k_hi, :_parse_k_ji, :_parse_k_yo
|
|
|
|
def self._parse(str, comp=false)
|
|
str = str.dup
|
|
|
|
e = Format::Bag.new
|
|
|
|
e._comp = comp
|
|
e._parse_monthpat = Format::ABBR_MONTHS.keys.join('|')
|
|
e._parse_daypat = Format::ABBR_DAYS .keys.join('|')
|
|
|
|
require 'nkf'
|
|
|
|
ostr = str
|
|
str = NKF.nkf('-e', str)
|
|
|
|
str.gsub!(/[^-+,.\/:0-9@a-z\x80-\xff]+/in, ' ')
|
|
|
|
_parse_k_hi(str, e)
|
|
_parse_k_ji(str, e)
|
|
_parse_k_yo(str, e)
|
|
|
|
if e.to_hash.empty?
|
|
str = ostr
|
|
str.gsub!(/[^-+,.\/:0-9@a-z\x80-\xff]+/in, ' ')
|
|
end
|
|
|
|
_parse_time(str, e) # || _parse_beat(str, e)
|
|
_parse_day(str, e)
|
|
|
|
_parse_eu(str, e) ||
|
|
_parse_us(str, e) ||
|
|
_parse_iso(str, e) ||
|
|
_parse_jis(str, e) ||
|
|
_parse_vms(str, e) ||
|
|
_parse_sla_us(str, e) ||
|
|
_parse_ddd(str, e)
|
|
|
|
if str.sub!(/\b(bc\b|bce\b|b\.c\.|b\.c\.e\.)/in, ' ')
|
|
if e.year
|
|
e.year = -e.year + 1
|
|
end
|
|
end
|
|
|
|
if e._comp and e.year
|
|
if e.year >= 0 and e.year <= 99
|
|
if e.year >= 69
|
|
e.year += 1900
|
|
else
|
|
e.year += 2000
|
|
end
|
|
end
|
|
end
|
|
|
|
e.offset ||= zone_to_diff(e.zone) if e.zone
|
|
|
|
e.to_hash
|
|
end
|
|
|
|
def self.zone_to_diff(zone) # :nodoc:
|
|
zone = zone.downcase
|
|
if zone.sub!(/\s+(standard|daylight)\s+time\z/, '')
|
|
dst = $1 == 'daylight'
|
|
else
|
|
dst = zone.sub!(/\s+dst\z/, '')
|
|
end
|
|
if Format::ZONES.include?(zone)
|
|
offset = Format::ZONES[zone]
|
|
offset += 3600 if dst
|
|
elsif zone.sub!(/\A(?:gmt|utc?)?([-+])/, '')
|
|
sign = $1
|
|
if zone.include?(':')
|
|
hour, min, sec, = zone.split(':')
|
|
elsif zone.include?(',') || zone.include?('.')
|
|
hour, fr, = zone.split(/[,.]/)
|
|
min = fr.to_i.to_r / (10**fr.size) * 60
|
|
else
|
|
case zone.size
|
|
when 3
|
|
hour = zone[0,1]
|
|
min = zone[1,2]
|
|
else
|
|
hour = zone[0,2]
|
|
min = zone[2,2]
|
|
sec = zone[4,2]
|
|
end
|
|
end
|
|
offset = hour.to_i * 3600 + min.to_i * 60 + sec.to_i
|
|
offset *= -1 if sign == '-'
|
|
end
|
|
offset
|
|
end
|
|
|
|
def strftime(fmt='%F')
|
|
fmt.gsub(/%[EO]?(.)/m) do |_|
|
|
case $1
|
|
when 'A'; DAYNAMES[wday]
|
|
when 'a'; ABBR_DAYNAMES[wday]
|
|
when 'B'; MONTHNAMES[mon]
|
|
when 'b'; ABBR_MONTHNAMES[mon]
|
|
when 'C'; '%02d' % (year / 100) # P2,ID
|
|
when 'c'; strftime('%a %b %e %H:%M:%S %Y')
|
|
when 'D'; strftime('%m/%d/%y') # P2,ID
|
|
when 'd'; '%02d' % mday
|
|
when 'e'; '%2d' % mday
|
|
when 'F'; strftime('%Y-%m-%d') # ID
|
|
when 'G'; '%.4d' % cwyear # ID
|
|
when 'g'; '%02d' % (cwyear % 100) # ID
|
|
when 'H'; '%02d' % hour
|
|
when 'h'; strftime('%b') # P2,ID
|
|
when 'I'; '%02d' % ((hour % 12).nonzero? or 12)
|
|
when 'j'; '%03d' % yday
|
|
when 'k'; '%2d' % hour # AR,TZ,GL
|
|
when 'L' # JV
|
|
'%03d' % (sec_fraction / (1.to_r/86400/(10**3)))
|
|
when 'l'; '%2d' % ((hour % 12).nonzero? or 12) # AR,TZ,GL
|
|
when 'M'; '%02d' % min
|
|
when 'm'; '%02d' % mon
|
|
when 'N' # JV, GD
|
|
'%09d' % (sec_fraction / (1.to_r/86400/(10**9)))
|
|
when 'n'; "\n" # P2,ID
|
|
when 'P'; strftime('%p').downcase # GL
|
|
when 'p'; if hour < 12 then 'AM' else 'PM' end
|
|
when 'Q' # JV
|
|
d = ajd - self.class.jd_to_ajd(self.class.civil_to_jd(1970,1,1), 0)
|
|
s = (d * 86400*10**3).to_i
|
|
'%d' % s
|
|
when 'R'; strftime('%H:%M') # ID
|
|
when 'r'; strftime('%I:%M:%S %p') # P2,ID
|
|
when 'S'; '%02d' % sec
|
|
when 's' # TZ,GL
|
|
d = ajd - self.class.jd_to_ajd(self.class.civil_to_jd(1970,1,1), 0)
|
|
s = (d * 86400).to_i
|
|
'%d' % s
|
|
when 'T'; strftime('%H:%M:%S') # P2,ID
|
|
when 't'; "\t" # P2,ID
|
|
when 'U', 'W'
|
|
k = if $1 == 'U' then 0 else 1 end
|
|
'%02d' % self.class.jd_to_weeknum(jd, k, fix_style)[1]
|
|
when 'u'; '%d' % cwday # P2,ID
|
|
when 'V'; '%02d' % cweek # P2,ID
|
|
when 'v'; strftime('%e-%b-%Y') # AR,TZ
|
|
when 'w'; '%d' % wday
|
|
when 'X'; strftime('%H:%M:%S')
|
|
when 'x'; strftime('%m/%d/%y')
|
|
when 'Y'; '%.4d' % year
|
|
when 'y'; '%02d' % (year % 100)
|
|
when 'Z'; (if offset.zero? then 'Z' else strftime('%z') end)
|
|
when 'z' # ID
|
|
p = if offset < 0 then '-' else '+' end
|
|
of = offset.abs
|
|
hh, fr = of.divmod(1.to_r/24)
|
|
mm = fr / (1.to_r/1440)
|
|
'%s%02d%02d' % [p, hh, mm]
|
|
when '%'; '%'
|
|
when '+'; strftime('%a %b %e %H:%M:%S %Z %Y') # TZ
|
|
when '1'
|
|
if $VERBOSE
|
|
warn("warning: strftime: %1 is deprecated; forget this")
|
|
end
|
|
'%d' % jd
|
|
when '2'
|
|
if $VERBOSE
|
|
warn("warning: strftime: %2 is deprecated; use '%Y-%j'")
|
|
end
|
|
strftime('%Y-%j')
|
|
when '3'
|
|
if $VERBOSE
|
|
warn("warning: strftime: %3 is deprecated; use '%F'")
|
|
end
|
|
strftime('%F')
|
|
else
|
|
$1
|
|
end
|
|
end
|
|
end
|
|
|
|
# alias_method :format, :strftime
|
|
|
|
def asctime() strftime('%c') end
|
|
|
|
alias_method :ctime, :asctime
|
|
|
|
end
|
|
|
|
class DateTime < Date
|
|
|
|
def self._strptime(str, fmt='%FT%T%Z')
|
|
super(str, fmt)
|
|
end
|
|
|
|
def strftime(fmt='%FT%T%Z')
|
|
super(fmt)
|
|
end
|
|
|
|
end
|