diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/date.rb | 408 | ||||
| -rw-r--r-- | lib/date/format.rb | 2 | ||||
| -rw-r--r-- | lib/getopts.rb | 2 | ||||
| -rw-r--r-- | lib/net/https.rb | 2 | ||||
| -rw-r--r-- | lib/parsearg.rb | 2 | ||||
| -rw-r--r-- | lib/rdoc/parsers/parse_c.rb | 226 | ||||
| -rw-r--r-- | lib/sync.rb | 2 |
7 files changed, 282 insertions, 362 deletions
diff --git a/lib/date.rb b/lib/date.rb index 6da4d6aa8e..88880c45f5 100644 --- a/lib/date.rb +++ b/lib/date.rb @@ -6,7 +6,7 @@ # Documentation: William Webber <william@williamwebber.com> # #-- -# $Id: date.rb,v 2.30 2006-12-30 21:43:41+09 tadf Exp $ +# $Id: date.rb,v 2.29 2006-11-05 18:21:29+09 tadf Exp $ #++ # # == Overview @@ -14,7 +14,7 @@ # This file provides two classes for working with # dates and times. # -# The first class, Date, represents dates. +# The first class, Date, represents dates. # It works with years, months, weeks, and days. # See the Date class documentation for more details. # @@ -80,7 +80,7 @@ # The standard civil year is 365 days long. However, the # solar year is fractionally longer than this. To account # for this, a *leap* *year* is occasionally inserted. This -# is a year with 366 days, the extra day falling on February 29. +# is a year with 366 days, the extra day falling on February 29. # In the early days of the civil calendar, every fourth # year without exception was a leap year. This way of # reckoning leap years is the *Julian* *Calendar*. @@ -148,7 +148,7 @@ # of time zones. Time zones are represented as an offset # from UTC, as a fraction of a day. This offset is the # how much local time is later (or earlier) than UTC. -# UTC offset 0 is centred on England (also known as GMT). +# UTC offset 0 is centred on England (also known as GMT). # As you travel east, the offset increases until you # reach the dateline in the middle of the Pacific Ocean; # as you travel west, the offset decreases. This offset @@ -323,7 +323,6 @@ class Date # the answer is true; or it may a number representing the Day of # Calendar Reform. Date::ENGLAND and Date::ITALY are two possible such # days. - def self.julian? (jd, sg) case sg when Numeric @@ -342,7 +341,7 @@ class Date # # The reverse of self.os? See the documentation for that method for # more details. - def self.gregorian? (jd, sg) !julian?(jd, sg) end + def self.gregorian? (jd, sg) not julian?(jd, sg) end def self.fix_style(jd, sg) # :nodoc: if julian?(jd, sg) @@ -352,29 +351,6 @@ class Date private_class_method :fix_style - # Convert an Ordinal Date to a Julian Day Number. - # - # +y+ and +d+ are the year and day-of-year to convert. - # +sg+ specifies the Day of Calendar Reform. - # - # Returns the corresponding Julian Day Number. - def self.ordinal_to_jd(y, d, sg=GREGORIAN) - civil_to_jd(y, 1, d, sg) - end - - # Convert a Julian Day Number to an Ordinal Date. - # - # +jd+ is the Julian Day Number to convert. - # +sg+ specifies the Day of Calendar Reform. - # - # Returns the corresponding Ordinal Date as - # [year, day_of_year] - def self.jd_to_ordinal(jd, sg=GREGORIAN) - y = jd_to_civil(jd, sg)[0] - doy = jd - civil_to_jd(y - 1, 12, 31, fix_style(jd, sg)) - return y, doy - end - # Convert a Civil Date to a Julian Day Number. # +y+, +m+, and +d+ are the year, month, and day of the # month. +sg+ specifies the Day of Calendar Reform. @@ -424,16 +400,27 @@ class Date return y, m, dom end - # Convert a Commercial Date to a Julian Day Number. + # Convert a Julian Day Number to an Ordinal Date. # - # +y+, +w+, and +d+ are the (commercial) year, week of the year, - # and day of the week of the Commercial Date to convert. + # +jd+ is the Julian Day Number to convert. # +sg+ specifies the Day of Calendar Reform. - def self.commercial_to_jd(y, w, d, ns=GREGORIAN) - jd = civil_to_jd(y, 1, 4, ns) - (jd - (((jd - 1) + 1) % 7)) + - 7 * (w - 1) + - (d - 1) + # + # Returns the corresponding Ordinal Date as + # [year, day_of_year] + def self.jd_to_ordinal(jd, sg=GREGORIAN) + y = jd_to_civil(jd, sg)[0] + doy = jd - civil_to_jd(y - 1, 12, 31, fix_style(jd, sg)) + return y, doy + end + + # Convert an Ordinal Date to a Julian Day Number. + # + # +y+ and +d+ are the year and day-of-year to convert. + # +sg+ specifies the Day of Calendar Reform. + # + # Returns the corresponding Julian Day Number. + def self.ordinal_to_jd(y, d, sg=GREGORIAN) + civil_to_jd(y, 1, d, sg) end # Convert a Julian Day Number to a Commercial Date @@ -449,29 +436,39 @@ class Date y = if jd >= commercial_to_jd(a + 1, 1, 1, ns) then a + 1 else a end w = 1 + ((jd - commercial_to_jd(y, 1, 1, ns)) / 7).floor d = (jd + 1) % 7 - d = 7 if d == 0 + if d.zero? then d = 7 end return y, w, d end - def self.weeknum_to_jd(y, w, d, f=0, ns=GREGORIAN) # :nodoc: - a = civil_to_jd(y, 1, 1, ns) + 6 - (a - ((a - f) + 1) % 7 - 7) + 7 * w + d + # Convert a Commercial Date to a Julian Day Number. + # + # +y+, +w+, and +d+ are the (commercial) year, week of the year, + # and day of the week of the Commercial Date to convert. + # +sg+ specifies the Day of Calendar Reform. + def self.commercial_to_jd(y, w, d, ns=GREGORIAN) + jd = civil_to_jd(y, 1, 4, ns) + (jd - (((jd - 1) + 1) % 7)) + + 7 * (w - 1) + + (d - 1) end - def self.jd_to_weeknum(jd, f=0, sg=GREGORIAN) # :nodoc: + def self.jd_to_weeknum(jd, k=0, sg=GREGORIAN) # :nodoc: ns = fix_style(jd, sg) y, m, d = jd_to_civil(jd, ns) a = civil_to_jd(y, 1, 1, ns) + 6 - w, d = (jd - (a - ((a - f) + 1) % 7) + 7).divmod(7) + w, d = (jd - (a - ((a - k) + 1) % 7) + 7).divmod(7) return y, w, d end - private_class_method :weeknum_to_jd, :jd_to_weeknum + def self.weeknum_to_jd(y, w, d, k=0, ns=GREGORIAN) # :nodoc: + a = civil_to_jd(y, 1, 1, ns) + 6 + (a - ((a - k) + 1) % 7 - 7) + 7 * w + d + end # Convert an Astronomical Julian Day Number to a (civil) Julian # Day Number. # - # +ajd+ is the Astronomical Julian Day Number to convert. + # +ajd+ is the Astronomical Julian Day Number to convert. # +of+ is the offset from UTC as a fraction of a day (defaults to 0). # # Returns the (civil) Julian Day Number as [day_number, @@ -482,7 +479,7 @@ class Date # Day Number. # # +jd+ is the Julian Day Number to convert, and +fr+ is a - # fractional day. + # fractional day. # +of+ is the offset from UTC as a fraction of a day (defaults to 0). # # Returns the Astronomical Julian Day Number as a single @@ -542,10 +539,10 @@ class Date # # All years divisible by 4 are leap years in the Gregorian calendar, # except for years divisible by 100 and not by 400. - def self.gregorian_leap? (y) y % 4 == 0 && y % 100 != 0 || y % 400 == 0 end + def self.gregorian_leap? (y) y % 4 == 0 and y % 100 != 0 or y % 400 == 0 end class << self; alias_method :leap?, :gregorian_leap? end - class << self; alias_method :new!, :new end + class << self; alias_method :new0, :new end # Is +jd+ a valid Julian Day Number? # @@ -553,6 +550,16 @@ class Date # Julian Day Number. def self.valid_jd? (jd, sg=ITALY) jd end + # Create a new Date object from a Julian Day Number. + # + # +jd+ is the Julian Day Number; if not specified, it defaults to + # 0. + # +sg+ specifies the Day of Calendar Reform. + def self.jd(jd=0, sg=ITALY) + jd = valid_jd?(jd, sg) + new0(jd_to_ajd(jd, 0, 0), 0, sg) + end + # Do the year +y+ and day-of-year +d+ make a valid Ordinal Date? # Returns the corresponding Julian Day Number if they do, or # nil if they don't. @@ -561,7 +568,7 @@ class Date # from the end of the year (-1 being the last day of the year). # No year wraparound is performed, however, so valid values of # +d+ are -365 .. -1, 1 .. 365 on a non-leap-year, - # -366 .. -1, 1 .. 366 on a leap year. + # -366 .. -1, 1 .. 366 on a leap year. # A date falling in the period skipped in the Day of Calendar Reform # adjustment is not valid. # @@ -580,6 +587,23 @@ class Date jd end + # Create a new Date object from an Ordinal Date, specified + # by year +y+ and day-of-year +d+. +d+ can be negative, + # in which it counts backwards from the end of the year. + # No year wraparound is performed, however. An invalid + # value for +d+ results in an ArgumentError being raised. + # + # +y+ defaults to -4712, and +d+ to 1; this is Julian Day + # Number day 0. + # + # +sg+ specifies the Day of Calendar Reform. + def self.ordinal(y=-4712, d=1, sg=ITALY) + unless jd = valid_ordinal?(y, d, sg) + raise ArgumentError, 'invalid date' + end + new0(jd_to_ajd(jd, 0, 0), 0, sg) + end + # Do year +y+, month +m+, and day-of-month +d+ make a # valid Civil Date? Returns the corresponding Julian # Day Number if they do, nil if they don't. @@ -612,6 +636,28 @@ class Date class << self; alias_method :valid_date?, :valid_civil? end + # Create a new Date object for the Civil Date specified by + # year +y+, month +m+, and day-of-month +d+. + # + # +m+ and +d+ can be negative, in which case they count + # backwards from the end of the year and the end of the + # month respectively. No wraparound is performed, however, + # and invalid values cause an ArgumentError to be raised. + # can be negative + # + # +y+ defaults to -4712, +m+ to 1, and +d+ to 1; this is + # Julian Day Number day 0. + # + # +sg+ specifies the Day of Calendar Reform. + def self.civil(y=-4712, m=1, d=1, sg=ITALY) + unless jd = valid_civil?(y, m, d, sg) + raise ArgumentError, 'invalid date' + end + new0(jd_to_ajd(jd, 0, 0), 0, sg) + end + + class << self; alias_method :new, :civil end + # Do year +y+, week-of-year +w+, and day-of-week +d+ make a # valid Commercial Date? Returns the corresponding Julian # Day Number if they do, nil if they don't. @@ -631,10 +677,7 @@ class Date d += 8 end if w < 0 - ny, nw, nd = - jd_to_commercial(commercial_to_jd(y + 1, 1, 1) + w * 7) - return unless ny == y - w = nw + w = jd_to_commercial(commercial_to_jd(y + 1, 1, 1) + w * 7)[1] end jd = commercial_to_jd(y, w, d) return unless gregorian?(jd, sg) @@ -642,95 +685,6 @@ class Date jd end - def self.valid_weeknum? (y, w, d, f, sg=ITALY) # :nodoc: - if d < 0 - d += 7 - end - if w < 0 - ny, nw, nd, nf = - jd_to_weeknum(weeknum_to_jd(y + 1, 1, f, f) + w * 7, f) - return unless ny == y - w = nw - end - jd = weeknum_to_jd(y, w, d, f) - return unless gregorian?(jd, sg) - return unless [y, w, d] == jd_to_weeknum(jd, f) - jd - end - - private_class_method :valid_weeknum? - - # Do hour +h+, minute +min+, and second +s+ constitute a valid time? - # - # If they do, returns their value as a fraction of a day. If not, - # returns nil. - # - # The 24-hour clock is used. Negative values of +h+, +min+, and - # +sec+ are treating as counting backwards from the end of the - # next larger unit (e.g. a +min+ of -2 is treated as 58). No - # wraparound is performed. - def self.valid_time? (h, min, s) - h += 24 if h < 0 - min += 60 if min < 0 - s += 60 if s < 0 - return unless ((0..23) === h && - (0..59) === min && - (0..59) === s) || - (24 == h && - 0 == min && - 0 == s) - time_to_day_fraction(h, min, s) - end - - # Create a new Date object from a Julian Day Number. - # - # +jd+ is the Julian Day Number; if not specified, it defaults to - # 0. - # +sg+ specifies the Day of Calendar Reform. - def self.jd(jd=0, sg=ITALY) - jd = valid_jd?(jd, sg) - new!(jd_to_ajd(jd, 0, 0), 0, sg) - end - - # Create a new Date object from an Ordinal Date, specified - # by year +y+ and day-of-year +d+. +d+ can be negative, - # in which it counts backwards from the end of the year. - # No year wraparound is performed, however. An invalid - # value for +d+ results in an ArgumentError being raised. - # - # +y+ defaults to -4712, and +d+ to 1; this is Julian Day - # Number day 0. - # - # +sg+ specifies the Day of Calendar Reform. - def self.ordinal(y=-4712, d=1, sg=ITALY) - unless jd = valid_ordinal?(y, d, sg) - raise ArgumentError, 'invalid date' - end - new!(jd_to_ajd(jd, 0, 0), 0, sg) - end - - # Create a new Date object for the Civil Date specified by - # year +y+, month +m+, and day-of-month +d+. - # - # +m+ and +d+ can be negative, in which case they count - # backwards from the end of the year and the end of the - # month respectively. No wraparound is performed, however, - # and invalid values cause an ArgumentError to be raised. - # can be negative - # - # +y+ defaults to -4712, +m+ to 1, and +d+ to 1; this is - # Julian Day Number day 0. - # - # +sg+ specifies the Day of Calendar Reform. - def self.civil(y=-4712, m=1, d=1, sg=ITALY) - unless jd = valid_civil?(y, m, d, sg) - raise ArgumentError, 'invalid date' - end - new!(jd_to_ajd(jd, 0, 0), 0, sg) - end - - class << self; alias_method :new, :civil end - # Create a new Date object for the Commercial Date specified by # year +y+, week-of-year +w+, and day-of-week +d+. # @@ -749,19 +703,24 @@ class Date unless jd = valid_commercial?(y, w, d, sg) raise ArgumentError, 'invalid date' end - new!(jd_to_ajd(jd, 0, 0), 0, sg) + new0(jd_to_ajd(jd, 0, 0), 0, sg) end - def self.weeknum(y=1582, w=41, d=5, f=0, sg=ITALY) # :nodoc: - unless jd = valid_weeknum?(y, w, d, f, sg) - raise ArgumentError, 'invalid date' + def self.valid_weeknum? (y, w, d, k, sg=ITALY) # :nodoc: + if d < 0 + d += 7 end - new!(jd_to_ajd(jd, 0, 0), 0, sg) + if w < 0 + w = jd_to_weeknum(weeknum_to_jd(y + 1, 1, k, k) + w * 7, k)[1] + end + jd = weeknum_to_jd(y, w, d, k) + return unless [y, w, d] == jd_to_weeknum(jd, k) + jd end - private_class_method :weeknum + private_class_method :valid_weeknum? - def self.rewrite_frags(elem) # :nodoc: + def self.rewrite_hash(elem) # :nodoc: elem ||= {} if seconds = elem[:seconds] d, fr = seconds.divmod(86400) @@ -779,9 +738,7 @@ class Date elem end - private_class_method :rewrite_frags - - def self.complete_frags(elem) # :nodoc: + def self.complete_hash(elem) # :nodoc: i = 0 g = [[:time, [:hour, :min, :sec]], [nil, [:jd]], @@ -855,9 +812,7 @@ class Date elem end - private_class_method :complete_frags - - def self.valid_date_frags?(elem, sg) # :nodoc: + def self.valid_date_with_hash?(elem, sg) # :nodoc: catch :jd do a = elem.values_at(:jd) if a.all? @@ -915,25 +870,17 @@ class Date end end - private_class_method :valid_date_frags? - - def self.valid_time_frags? (elem) # :nodoc: - h, min, s = elem.values_at(:hour, :min, :sec) - valid_time?(h, min, s) - end - - private_class_method :valid_time_frags? - - def self.new_by_frags(elem, sg) # :nodoc: - elem = rewrite_frags(elem) - elem = complete_frags(elem) - unless jd = valid_date_frags?(elem, sg) + def self.new_with_hash(elem, sg) # :nodoc: + elem = rewrite_hash(elem) + elem = complete_hash(elem) + unless jd = valid_date_with_hash?(elem, sg) raise ArgumentError, 'invalid date' end - new!(jd_to_ajd(jd, 0, 0), 0, sg) + new0(jd_to_ajd(jd, 0, 0), 0, sg) end - private_class_method :new_by_frags + private_class_method :rewrite_hash, :complete_hash, + :valid_date_with_hash?, :new_with_hash # Create a new Date object by parsing from a String # according to a specified format. @@ -952,13 +899,13 @@ class Date # parsed. def self.strptime(str='-4712-01-01', fmt='%F', sg=ITALY) elem = _strptime(str, fmt) - new_by_frags(elem, sg) + new_with_hash(elem, sg) end # Create a new Date object by parsing from a String, # without specifying the format. # - # +str+ is a String holding a date representation. + # +str+ is a String holding a date representation. # +comp+ specifies whether to interpret 2-digit years # as 19XX (>= 69) or 20XX (< 69); the default is not to. # The method will attempt to parse a date from the String @@ -972,7 +919,7 @@ class Date # +sg+ specifies the Day of Calendar Reform. def self.parse(str='-4712-01-01', comp=false, sg=ITALY) elem = _parse(str, comp) - new_by_frags(elem, sg) + new_with_hash(elem, sg) end class << self @@ -993,7 +940,7 @@ class Date end - # *NOTE* this is the documentation for the method new!(). If + # *NOTE* this is the documentation for the method new0(). If # you are reading this as the documentation for new(), that is # because rdoc doesn't fully support the aliasing of the # initialize() method. @@ -1046,8 +993,8 @@ class Date # Get the date as a Commercial Date, [year, week_of_year, day_of_week] def commercial() self.class.jd_to_commercial(jd, @sg) end # :nodoc: - def weeknum0() self.class.__send__(:jd_to_weeknum, jd, 0, @sg) end # :nodoc: - def weeknum1() self.class.__send__(:jd_to_weeknum, jd, 1, @sg) end # :nodoc: + def weeknum0() self.class.jd_to_weeknum(jd, 0, @sg) end # :nodoc: + def weeknum1() self.class.jd_to_weeknum(jd, 1, @sg) end # :nodoc: once :civil, :ordinal, :commercial, :weeknum0, :weeknum1 private :civil, :ordinal, :commercial, :weeknum0, :weeknum1 @@ -1092,8 +1039,7 @@ class Date # Get the second of this date. def sec() time[2] end - # Get the fraction-of-a-second of this date. The unit is in days. - # I do NOT recommend you to use this method. + # Get the fraction-of-a-second of this date. def sec_fraction() time[3] end private :hour, :min, :sec, :sec_fraction @@ -1159,7 +1105,7 @@ class Date def start() @sg end # Create a copy of this Date object using a new Day of Calendar Reform. - def new_start(sg=self.class::ITALY) self.class.new!(@ajd, @of, sg) end + def new_start(sg=self.class::ITALY) self.class.new0(@ajd, @of, sg) end # Create a copy of this Date object that uses the Italian/Catholic # Day of Calendar Reform. @@ -1183,7 +1129,7 @@ class Date if String === of of = (self.class.zone_to_diff(of) || 0).to_r/86400 end - self.class.new!(@ajd, of, @sg) + self.class.new0(@ajd, of, @sg) end private :offset, :new_offset @@ -1199,7 +1145,7 @@ class Date # particular, two Dates cannot be added to each other. def + (n) case n - when Numeric; return self.class.new!(@ajd + n, @of, @sg) + when Numeric; return self.class.new0(@ajd + n, @of, @sg) end raise TypeError, 'expected numeric' end @@ -1214,7 +1160,7 @@ class Date # If +x+ is neither Numeric nor a Date, a TypeError is raised. def - (x) case x - when Numeric; return self.class.new!(@ajd - x, @of, @sg) + when Numeric; return self.class.new0(@ajd - x, @of, @sg) when Date; return @ajd - x.ajd end raise TypeError, 'expected numeric or date' @@ -1271,7 +1217,7 @@ class Date # of the returned Date will be the last day of the target month. def >> (n) y, m = (year * 12 + (mon - 1) + n).divmod(12) - m, = (m + 1) .divmod(1) + m, = (m + 1).divmod(1) d = mday d -= 1 until jd2 = self.class.valid_civil?(y, m, d, fix_style) self + (jd2 - jd) @@ -1329,7 +1275,7 @@ class Date # Is this Date equal to +other+? # # +other+ must both be a Date object, and represent the same date. - def eql? (other) Date === other && self == other end + def eql? (other) Date === other and self == other end # Calculate a hash value for this date. def hash() @ajd.hash end @@ -1345,7 +1291,7 @@ class Date # Dump to Marshal format. def _dump(limit) Marshal.dump([@ajd, @of, @sg], -1) end -# def self._load(str) new!(*Marshal.load(str)) end +# def self._load(str) new0(*Marshal.load(str)) end # Load from Marshall format. def self._load(str) @@ -1357,7 +1303,7 @@ class Date else ajd, of, sg = a end - new!(ajd, of, sg) + new0(ajd, of, sg) end end @@ -1392,8 +1338,7 @@ end # === sec_fraction() # # Get the fraction of a second of the time. This is returned as -# a +Rational+. The unit is in days. -# I do NOT recommend you to use this method. +# a +Rational+. # # === zone() # @@ -1413,6 +1358,35 @@ end # class DateTime < Date + # Do hour +h+, minute +min+, and second +s+ constitute a valid time? + # + # If they do, returns their value as a fraction of a day. If not, + # returns nil. + # + # The 24-hour clock is used. Negative values of +h+, +min+, and + # +sec+ are treating as counting backwards from the end of the + # next larger unit (e.g. a +min+ of -2 is treated as 58). No + # wraparound is performed. + def self.valid_time? (h, min, s) + h += 24 if h < 0 + min += 60 if min < 0 + s += 60 if s < 0 + return unless ((0..23) === h and + (0..59) === min and + (0..59) === s) or + (24 == h and + 0 == min and + 0 == s) + time_to_day_fraction(h, min, s) + end + + def self.valid_time_with_hash? (elem) # :nodoc: + h, min, s = elem.values_at(:hour, :min, :sec) + valid_time?(h, min, s) + end + + private_class_method :valid_time_with_hash? + # Create a new DateTime object corresponding to the specified # Julian Day Number +jd+ and hour +h+, minute +min+, second +s+. # @@ -1427,14 +1401,14 @@ class DateTime < Date # # All day/time values default to 0. def self.jd(jd=0, h=0, min=0, s=0, of=0, sg=ITALY) - unless (jd = valid_jd?(jd, sg)) && + unless (jd = valid_jd?(jd, sg)) and (fr = valid_time?(h, min, s)) raise ArgumentError, 'invalid date' end if String === of of = (zone_to_diff(of) || 0).to_r/86400 end - new!(jd_to_ajd(jd, fr, of), of, sg) + new0(jd_to_ajd(jd, fr, of), of, sg) end # Create a new DateTime object corresponding to the specified @@ -1452,14 +1426,14 @@ class DateTime < Date # +y+ defaults to -4712, and +d+ to 1; this is Julian Day Number # day 0. The time values default to 0. def self.ordinal(y=-4712, d=1, h=0, min=0, s=0, of=0, sg=ITALY) - unless (jd = valid_ordinal?(y, d, sg)) && + unless (jd = valid_ordinal?(y, d, sg)) and (fr = valid_time?(h, min, s)) raise ArgumentError, 'invalid date' end if String === of of = (zone_to_diff(of) || 0).to_r/86400 end - new!(jd_to_ajd(jd, fr, of), of, sg) + new0(jd_to_ajd(jd, fr, of), of, sg) end # Create a new DateTime object corresponding to the specified @@ -1477,14 +1451,14 @@ class DateTime < Date # +y+ defaults to -4712, +m+ to 1, and +d+ to 1; this is Julian Day # Number day 0. The time values default to 0. def self.civil(y=-4712, m=1, d=1, h=0, min=0, s=0, of=0, sg=ITALY) - unless (jd = valid_civil?(y, m, d, sg)) && + unless (jd = valid_civil?(y, m, d, sg)) and (fr = valid_time?(h, min, s)) raise ArgumentError, 'invalid date' end if String === of of = (zone_to_diff(of) || 0).to_r/86400 end - new!(jd_to_ajd(jd, fr, of), of, sg) + new0(jd_to_ajd(jd, fr, of), of, sg) end class << self; alias_method :new, :civil end @@ -1505,44 +1479,31 @@ class DateTime < Date # Calendar Reform for Italy and the Catholic countries. # The time values default to 0. def self.commercial(y=1582, w=41, d=5, h=0, min=0, s=0, of=0, sg=ITALY) - unless (jd = valid_commercial?(y, w, d, sg)) && - (fr = valid_time?(h, min, s)) - raise ArgumentError, 'invalid date' - end - if String === of - of = (zone_to_diff(of) || 0).to_r/86400 - end - new!(jd_to_ajd(jd, fr, of), of, sg) - end - - def self.weeknum(y=1582, w=41, d=5, f=0, h=0, min=0, s=0, of=0, sg=ITALY) # :nodoc: - unless (jd = valid_weeknum?(y, w, d, f, sg)) && + unless (jd = valid_commercial?(y, w, d, sg)) and (fr = valid_time?(h, min, s)) raise ArgumentError, 'invalid date' end if String === of of = (zone_to_diff(of) || 0).to_r/86400 end - new!(jd_to_ajd(jd, fr, of), of, sg) + new0(jd_to_ajd(jd, fr, of), of, sg) end - private_class_method :weeknum - - def self.new_by_frags(elem, sg) # :nodoc: - elem = rewrite_frags(elem) - elem = complete_frags(elem) - unless (jd = valid_date_frags?(elem, sg)) && - (fr = valid_time_frags?(elem)) + def self.new_with_hash(elem, sg) # :nodoc: + elem = rewrite_hash(elem) + elem = complete_hash(elem) + unless (jd = valid_date_with_hash?(elem, sg)) and + (fr = valid_time_with_hash?(elem)) raise ArgumentError, 'invalid date' end sf = (elem[:sec_fraction] || 0) fr += sf/86400 of = (elem[:offset] || 0) of = of.to_r/86400 - new!(jd_to_ajd(jd, fr, of), of, sg) + new0(jd_to_ajd(jd, fr, of), of, sg) end - private_class_method :new_by_frags + private_class_method :new_with_hash # Create a new DateTime object by parsing from a String # according to a specified format. @@ -1560,13 +1521,13 @@ class DateTime < Date # parsed. def self.strptime(str='-4712-01-01T00:00:00+00:00', fmt='%FT%T%z', sg=ITALY) elem = _strptime(str, fmt) - new_by_frags(elem, sg) + new_with_hash(elem, sg) end # Create a new DateTime object by parsing from a String, # without specifying the format. # - # +str+ is a String holding a date-time representation. + # +str+ is a String holding a date-time representation. # +comp+ specifies whether to interpret 2-digit years # as 19XX (>= 69) or 20XX (< 69); the default is not to. # The method will attempt to parse a date-time from the String @@ -1580,7 +1541,7 @@ class DateTime < Date # +sg+ specifies the Day of Calendar Reform. def self.parse(str='-4712-01-01T00:00:00+00:00', comp=false, sg=ITALY) elem = _parse(str, comp) - new_by_frags(elem, sg) + new_with_hash(elem, sg) end public :hour, :min, :sec, :sec_fraction, :zone, :offset, :new_offset @@ -1593,7 +1554,7 @@ class Time def to_date jd = Date.civil_to_jd(year, mon, mday, Date::ITALY) - Date.new!(Date.jd_to_ajd(jd, 0, 0), 0, Date::ITALY) + Date.new0(Date.jd_to_ajd(jd, 0, 0), 0, Date::ITALY) end def to_datetime @@ -1601,7 +1562,7 @@ class Time fr = DateTime.time_to_day_fraction(hour, min, [sec, 59].min) + usec.to_r/86400000000 of = utc_offset.to_r/86400 - DateTime.new!(DateTime.jd_to_ajd(jd, fr, of), of, DateTime::ITALY) + DateTime.new0(DateTime.jd_to_ajd(jd, fr, of), of, DateTime::ITALY) end private :to_date, :to_datetime @@ -1613,7 +1574,7 @@ class Date =begin def to_time() Time.local(year, mon, mday) end def to_date() self end - def to_datetime() DateTime.new!(self.class.jd_to_ajd(jd, 0, 0), @of, @sg) end + def to_datetime() DateTime.new0(self.class.jd_to_ajd(jd, 0, 0), @of, @sg) end =end # Create a new Date object representing today. @@ -1642,7 +1603,7 @@ class DateTime < Date getlocal end - def to_date() Date.new!(self.class.jd_to_ajd(jd, 0, 0), 0, @sg) end + def to_date() Date.new0(self.class.jd_to_ajd(jd, 0, 0), 0, @sg) end def to_datetime() self end =end @@ -1660,7 +1621,6 @@ class Date %w(exist3? valid_date?), %w(exist? valid_date?), %w(existw? valid_commercial?), - %w(new0 new!), %w(new1 jd), %w(new2 ordinal), %w(new3 new), diff --git a/lib/date/format.rb b/lib/date/format.rb index 0119982944..14726b081c 100644 --- a/lib/date/format.rb +++ b/lib/date/format.rb @@ -1,5 +1,5 @@ # format.rb: Written by Tadayoshi Funaba 1999-2006 -# $Id: format.rb,v 2.29 2006-12-30 21:43:41+09 tadf Exp $ +# $Id: format.rb,v 2.28 2006-10-25 06:45:12+09 tadf Exp $ require 'rational' diff --git a/lib/getopts.rb b/lib/getopts.rb index 7124269351..40d61b47be 100644 --- a/lib/getopts.rb +++ b/lib/getopts.rb @@ -17,7 +17,7 @@ warn "Warning:#{caller[0].sub(/:in `.*'\z/, '')}: getopts is deprecated after Ruby 1.8.1; use optparse instead" if caller[0] and $VERBOSE -$RCS_ID=%q$Header$ +$RCS_ID=%q$Header: /var/cvs/src/ruby/lib/getopts.rb,v 1.8.2.4 2006/08/04 22:00:21 drbrain Exp $ # getopts is obsolete. Use GetoptLong. diff --git a/lib/net/https.rb b/lib/net/https.rb index e296dbbed4..ab45e0fa08 100644 --- a/lib/net/https.rb +++ b/lib/net/https.rb @@ -1,6 +1,6 @@ =begin -= $RCSfile$ -- SSL/TLS enhancement for Net::HTTP. += $RCSfile: https.rb,v $ -- SSL/TLS enhancement for Net::HTTP. == Info 'OpenSSL for Ruby 2' project diff --git a/lib/parsearg.rb b/lib/parsearg.rb index cab2dba789..4788bcdf5a 100644 --- a/lib/parsearg.rb +++ b/lib/parsearg.rb @@ -12,7 +12,7 @@ warn "Warning:#{caller[0].sub(/:in `.*'\z/, '')}: parsearg is deprecated after Ruby 1.8.1; use optparse instead" -$RCS_ID=%q$Header$ +$RCS_ID=%q$Header: /var/cvs/src/ruby/lib/parsearg.rb,v 1.2.2.2 2006/08/04 22:00:21 drbrain Exp $ require "getopts" diff --git a/lib/rdoc/parsers/parse_c.rb b/lib/rdoc/parsers/parse_c.rb index 4ebd25c709..19b5d443f6 100644 --- a/lib/rdoc/parsers/parse_c.rb +++ b/lib/rdoc/parsers/parse_c.rb @@ -1,78 +1,3 @@ -# Classes and modules built in to the interpreter. We need -# these to define superclasses of user objects - -require "rdoc/code_objects" -require "rdoc/parsers/parserfactory" -require "rdoc/options" -require "rdoc/rdoc" - -module RDoc - - ## - # Ruby's built-in classes. - - KNOWN_CLASSES = { - "rb_cObject" => "Object", - "rb_cArray" => "Array", - "rb_cBignum" => "Bignum", - "rb_cClass" => "Class", - "rb_cDir" => "Dir", - "rb_cData" => "Data", - "rb_cFalseClass" => "FalseClass", - "rb_cFile" => "File", - "rb_cFixnum" => "Fixnum", - "rb_cFloat" => "Float", - "rb_cHash" => "Hash", - "rb_cInteger" => "Integer", - "rb_cIO" => "IO", - "rb_cModule" => "Module", - "rb_cNilClass" => "NilClass", - "rb_cNumeric" => "Numeric", - "rb_cProc" => "Proc", - "rb_cRange" => "Range", - "rb_cRegexp" => "Regexp", - "rb_cString" => "String", - "rb_cSymbol" => "Symbol", - "rb_cThread" => "Thread", - "rb_cTime" => "Time", - "rb_cTrueClass" => "TrueClass", - "rb_cStruct" => "Struct", - "rb_eException" => "Exception", - "rb_eStandardError" => "StandardError", - "rb_eSystemExit" => "SystemExit", - "rb_eInterrupt" => "Interrupt", - "rb_eSignal" => "Signal", - "rb_eFatal" => "Fatal", - "rb_eArgError" => "ArgError", - "rb_eEOFError" => "EOFError", - "rb_eIndexError" => "IndexError", - "rb_eRangeError" => "RangeError", - "rb_eIOError" => "IOError", - "rb_eRuntimeError" => "RuntimeError", - "rb_eSecurityError" => "SecurityError", - "rb_eSystemCallError" => "SystemCallError", - "rb_eTypeError" => "TypeError", - "rb_eZeroDivError" => "ZeroDivError", - "rb_eNotImpError" => "NotImpError", - "rb_eNoMemError" => "NoMemError", - "rb_eFloatDomainError" => "FloatDomainError", - "rb_eScriptError" => "ScriptError", - "rb_eNameError" => "NameError", - "rb_eSyntaxError" => "SyntaxError", - "rb_eLoadError" => "LoadError", - - "rb_mKernel" => "Kernel", - "rb_mComparable" => "Comparable", - "rb_mEnumerable" => "Enumerable", - "rb_mPrecision" => "Precision", - "rb_mErrno" => "Errno", - "rb_mFileTest" => "FileTest", - "rb_mGC" => "GC", - "rb_mMath" => "Math", - "rb_mProcess" => "Process" - } - - ## # We attempt to parse C extension files. Basically we look for # the standard patterns that you find in extensions: <tt>rb_define_class, # rb_define_method</tt> and so on. We also try to find the corresponding @@ -127,8 +52,8 @@ module RDoc # when the <tt>Init_xxx</tt> method is not named after the class. # # [Document-method: <i>name</i>] - # This comment documents the named method. Use when RDoc cannot - # automatically find the method from it's declaration + # This comment documents the named method. Use when RDoc cannot outomatically + # find the method from it's declaration # # [call-seq: <i>text up to an empty line</i>] # Because C source doesn't give descripive names to Ruby-level parameters, @@ -164,9 +89,82 @@ module RDoc # */ # + + # Classes and modules built in to the interpreter. We need + # these to define superclasses of user objects + +require "rdoc/code_objects" +require "rdoc/parsers/parserfactory" + + +module RDoc + + KNOWN_CLASSES = { + "rb_cObject" => "Object", + "rb_cArray" => "Array", + "rb_cBignum" => "Bignum", + "rb_cClass" => "Class", + "rb_cDir" => "Dir", + "rb_cData" => "Data", + "rb_cFalseClass" => "FalseClass", + "rb_cFile" => "File", + "rb_cFixnum" => "Fixnum", + "rb_cFloat" => "Float", + "rb_cHash" => "Hash", + "rb_cInteger" => "Integer", + "rb_cIO" => "IO", + "rb_cModule" => "Module", + "rb_cNilClass" => "NilClass", + "rb_cNumeric" => "Numeric", + "rb_cProc" => "Proc", + "rb_cRange" => "Range", + "rb_cRegexp" => "Regexp", + "rb_cString" => "String", + "rb_cSymbol" => "Symbol", + "rb_cThread" => "Thread", + "rb_cTime" => "Time", + "rb_cTrueClass" => "TrueClass", + "rb_cStruct" => "Struct", + "rb_eException" => "Exception", + "rb_eStandardError" => "StandardError", + "rb_eSystemExit" => "SystemExit", + "rb_eInterrupt" => "Interrupt", + "rb_eSignal" => "Signal", + "rb_eFatal" => "Fatal", + "rb_eArgError" => "ArgError", + "rb_eEOFError" => "EOFError", + "rb_eIndexError" => "IndexError", + "rb_eRangeError" => "RangeError", + "rb_eIOError" => "IOError", + "rb_eRuntimeError" => "RuntimeError", + "rb_eSecurityError" => "SecurityError", + "rb_eSystemCallError" => "SystemCallError", + "rb_eTypeError" => "TypeError", + "rb_eZeroDivError" => "ZeroDivError", + "rb_eNotImpError" => "NotImpError", + "rb_eNoMemError" => "NoMemError", + "rb_eFloatDomainError" => "FloatDomainError", + "rb_eScriptError" => "ScriptError", + "rb_eNameError" => "NameError", + "rb_eSyntaxError" => "SyntaxError", + "rb_eLoadError" => "LoadError", + + "rb_mKernel" => "Kernel", + "rb_mComparable" => "Comparable", + "rb_mEnumerable" => "Enumerable", + "rb_mPrecision" => "Precision", + "rb_mErrno" => "Errno", + "rb_mFileTest" => "FileTest", + "rb_mGC" => "GC", + "rb_mMath" => "Math", + "rb_mProcess" => "Process" + + } + + # See rdoc/c_parse.rb + class C_Parser - attr_accessor :progress extend ParserFactory parse_files_matching(/\.(c|cc|cpp|CC)$/) @@ -219,9 +217,8 @@ module RDoc comment.sub!(/\/?\*--.*/m, '') end - ## - # removes lines that are commented out that might otherwise get picked up - # when scanning for classes and methods + # remove lines that are commented out that might otherwise get + # picked up when scanning for classes and methods def remove_commented_out_lines @body.gsub!(%r{//.*rb_define_}, '//') @@ -263,6 +260,7 @@ module RDoc @classes[var_name] = cm @known_classes[var_name] = cm.full_name end + ############################################################ @@ -427,16 +425,7 @@ module RDoc end end - ## - # Adds constant comments. By providing some_value: at the start ofthe - # comment you can override the C value of the comment to give a friendly - # definition. - # - # /* 300: The perfect score in bowling */ - # rb_define_const(cFoo, "PERFECT", INT2FIX(300); - # - # Will override +INT2FIX(300)+ with the value +300+ in the output RDoc. - # Values may include quotes and escaped colons (\:). + ############################################################ def handle_constants(type, var_name, const_name, definition) #@stats.num_constants += 1 @@ -453,39 +442,14 @@ module RDoc comment = find_const_comment(type, const_name) - # In the case of rb_define_const, the definition and comment are in - # "/* definition: comment */" form. The literal ':' and '\' characters - # can be escaped with a backslash. - if type.downcase == 'const' then - elements = mangle_comment(comment).split(':') - if elements.nil? or elements.empty? then - con = Constant.new(const_name, definition, mangle_comment(comment)) - else - new_definition = elements[0..-2].join(':') - if new_definition.empty? then # Default to literal C definition - new_definition = definition - else - new_definition.gsub!("\:", ":") - new_definition.gsub!("\\", '\\') - end - new_definition.sub!(/\A(\s+)/, '') - new_comment = $1.nil? ? elements.last : "#{$1}#{elements.last.lstrip}" - con = Constant.new(const_name, new_definition, - mangle_comment(new_comment)) - end - else - con = Constant.new(const_name, definition, mangle_comment(comment)) - end - + con = Constant.new(const_name, definition, mangle_comment(comment)) class_obj.add_constant(con) end - ## - # Finds a comment matching +type+ and +const_name+ either above the - # comment or in the matching Document- section. + ########################################################### def find_const_comment(type, const_name) - if @body =~ %r{((?>^\s*/\*.*?\*/\s+)) + if @body =~ %r{((?>/\*.*?\*/\s+)) rb_define_#{type}\((?:\s*(\w+),)?\s*"#{const_name}"\s*,.*?\)\s*;}xmi $1 elsif @body =~ %r{Document-(?:const|global|variable):\s#{const_name}\s*?\n((?>.*?\*/))}m @@ -646,15 +610,13 @@ module RDoc end - ## - # If the comment block contains a section that looks like: - # + ################################################## + # + # If the comment block contains a section that looks like # call-seq: # Array.new # Array.new(10) - # - # use it for the parameters. - + # use it for the parameters def find_modifiers(comment, meth_obj) if comment.sub!(/:nodoc:\s*^\s*\*?\s*$/m, '') or comment.sub!(/\A\/\*\s*:nodoc:\s*\*\/\Z/, '') @@ -677,11 +639,10 @@ module RDoc end end - ## - # Look for includes of the form: - # - # rb_include_module(rb_cArray, rb_mEnumerable); + ############################################################ + # Look for includes of the form + # rb_include_module(rb_cArray, rb_mEnumerable); def do_includes @body.scan(/rb_include_module\s*\(\s*(\w+?),\s*(\w+?)\s*\)/) do |c,m| if cls = @classes[c] @@ -691,7 +652,8 @@ module RDoc end end - ## + ############################################################ + # Remove the /*'s and leading asterisks from C comments def mangle_comment(comment) @@ -724,8 +686,7 @@ module RDoc end end - ## - # Removes #ifdefs that would otherwise confuse us + # Remove #ifdefs that would otherwise confuse us def handle_ifdefs_in(body) body.gsub(/^#ifdef HAVE_PROTOTYPES.*?#else.*?\n(.*?)#endif.*?\n/m) { $1 } @@ -734,4 +695,3 @@ module RDoc end end - diff --git a/lib/sync.rb b/lib/sync.rb index 79522ed885..2076e9fccb 100644 --- a/lib/sync.rb +++ b/lib/sync.rb @@ -44,7 +44,7 @@ unless defined? Thread end module Sync_m - RCS_ID='-$Header$-' + RCS_ID='-$Header: /var/cvs/src/ruby/lib/sync.rb,v 1.4 2001/06/06 14:19:33 keiju Exp $-' # lock mode UN = :UN |