chronos 0.1.0

data/lib/chronos/gregorian.rb

@@ -0,0 +1,27 @@
+#--
+# Copyright 2007-2008 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+# This file is just a shortcut to require all relevent files
+# for gregorian and setting Chronos to use the gregorian classes
+# per default.
+
+
+
+require 'chronos'
+require 'chronos/calendar/gregorian'
+require 'chronos/datetime/gregorian'
+require 'chronos/duration/gregorian'
+require 'chronos/interval/gregorian'
+
+
+
+Chronos.use :Gregorian
+Datetime = Chronos::Datetime::Gregorian
+Duration = Chronos::Duration::Gregorian
+Interval = Chronos::Interval::Gregorian
+Calendar = Chronos::Calendar::Gregorian

data/lib/chronos/interval.rb

@@ -0,0 +1,132 @@
+#--
+# Copyright 2007-2008 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+module Chronos
+
+	# An Interval is determinated by a start and an end Datetime.
+	# Unlike in Duration, this allows to determine the months part exactly in
+	# seconds (and therefore minutes, hours, days, weeks).
+	# That opens up the possibility to say how
+	class Interval
+		ValidFixed        = [:begin, :end].freeze
+		InspectFixedBegin = "<%p [%p] - %p, %p>".freeze
+		InspectFixedEnd   = "<%p %p - [%p], %p>".freeze
+
+		# The smaller of the two datetimes
+		attr_reader :begin
+		
+		# The bigger of the two datetimes
+		attr_reader :end
+		
+		# Which end is fixed, plays a role when adding, subtracting, multiplying, dividing, ...
+		attr_reader :fixed
+
+		# unlike new, between always creates a positive interval
+		# it will switch limit_a and limit_b if limit_a > limit_b
+		# it always fixates :begin
+		def self.between(limit_a, limit_b)
+			limit_a > limit_b ? new(limit_b, limit_a, false, :begin) : new(limit_a, limit_b, false, :begin)
+		end
+
+		# create a new interval that lasts from start_date until end_date
+		# === Arguments
+		# limit_a:: one of the two limiting datetimes
+		# limit_b:: the other of the two limiting datetimes
+		# fixated:: which end to fixate for operations. Defaults to :begin, valid values are (Symbols):
+		#   begin:: The smaller datetime is fixated
+		#   end:: The smaller datetime is fixated
+		def initialize(limit_a, limit_b, fixed=nil)
+			@fixed = fixed || :begin
+			raise ArgumentError, "limites don't have the same signature" unless (limit_a.time? == limit_b.time? && limit_a.date? == limit_b.date?)
+			raise ArgumentError, "invalid fixed, must be :begin or :end" unless ValidFixed.include?(@fixed)
+
+			@language = limit_a.language
+
+			if limit_a > limit_b then
+				@begin    = limit_b
+				@end      = limit_a
+				@negative = false
+			else
+				@begin    = limit_a
+				@end      = limit_b
+				@negative = true
+			end
+
+			overflow    = 0
+			picoseconds = @end.ps_number  - @begin.ps_number  if @begin.time?
+			days        = @end.day_number - @begin.day_number if @begin.date?
+			overflow, picoseconds = *picoseconds.divmod(PS_IN_DAY) if @begin.time?
+			@duration = Duration.new(days+overflow, picoseconds, @language)
+		end
+
+		# Returns the same Interval but with begin as fixpoint for operations
+		def fixed_begin
+			self.class.new(@begin, @end, :begin)
+		end
+
+		# Returns the same interval but with end as fixpoint for operations
+		def fixed_end
+			self.class.new(@begin, @end, :end)
+		end
+
+		# Enlarges the Interval by duration away from the fixed end
+		def +(duration)
+			if @fixed == :begin then
+				self.class.new(@begin, @end+duration, @fixed)
+			else
+				self.class.new(@begin-duration, @end, @fixed)
+			end
+		end
+
+		# Shortens the Interval by duration towards from the fixed end
+		# will raise if self < duration
+		def -(duration)
+			if @fixed == :begin then
+				self.class.new(@begin, @end-duration, @fixed)
+			else
+				self.class.new(@begin+duration, @end, @fixed)
+			end
+		end
+
+		# The number of picoseconds
+		def picoseconds
+			@duration.picoseconds
+		end
+		
+		def days
+			@duration.days
+		end
+		
+		def values_at(*keys)
+			to_hash.values_at(*keys)
+		end
+
+		# converts this interval to a duration
+		# if you set as_seconds to true it will convert the
+		# month primitive to seconds and use that
+		def to_duration
+			@duration
+		end
+
+		def to_hash
+			@duration.to_hash.merge(:begin => @begin, :end => @end, :language => @language)
+		end
+
+		def format(string)
+			raise NoMethodError
+		end
+
+		def inspect
+			if @fixed == :begin then
+				sprintf InspectFixedBegin, self.class, @begin, @end, @duration
+			else
+				sprintf InspectFixedEnd, self.class, @begin, @end, @duration
+			end
+		end
+	end
+end

data/lib/chronos/interval/gregorian.rb

@@ -0,0 +1,80 @@
+#--
+# Copyright 2007-2008 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+module Chronos
+	class Interval
+
+		# A Gregorian Interval extens Interval by months.
+		# Unlike in Gregorian Durations, months exactly defined in seconds (and therefore minutes,
+		# hours, days, weeks).
+		# Internally a gregorian interval is stored as total picoseconds after days + days between the
+		# two dates and additionally the months + days after months + picoseconds after days. For
+		class Gregorian < Interval
+			ValidFixed = [:begin, :end].freeze
+	
+			# The smaller of the two datetimes
+			attr_reader :begin
+			
+			# The bigger of the two datetimes
+			attr_reader :end
+			
+			# Which end is fixed, plays a role when adding, subtracting, multiplying, dividing, ...
+			attr_reader :fixed
+	
+			# unlike new, between always creates a positive interval
+			# it will switch limit_a and limit_b if limit_a > limit_b
+			# it always fixates :begin
+			def self.between(limit_a, limit_b)
+				limit_a > limit_b ? new(limit_b, limit_a, false, :begin) : new(limit_a, limit_b, false, :begin)
+			end
+	
+			def initialize(limit_a, limit_b, fixed=nil)
+				super(limit_a, limit_b, fixed)
+				picoseconds       = @end.ps_number - @begin.ps_number if @begin.time?
+				days, picoseconds = *picoseconds.divmod(PS_IN_DAY) if @begin.time?
+				months            = 0
+	
+				if @begin.date? then
+					a                 = Datetime.new(@begin.day_number, @begin.ps_number, ::Chronos::UTC)
+					b                 = Datetime.new(@end.day_number,   @end.ps_number,   ::Chronos::UTC)
+					days_after_months = days+b.day_of_month-a.day_of_month
+					months            = b.year*12+b.month-a.year*12-a.month
+
+					# move 1 month forward
+					if days_after_months < 0 then
+						days_after_months += a.days_in_month
+						months            -= 1
+					end
+
+					days    += b.day_number - a.day_number
+					bsd      = a.day_of_month > b.day_of_month ||
+										 (start_date.time? && a.day_of_month == b.day_of_month && seconds < 0)
+					month1   = a.year*12+a.month+(bsd ? 1 : 0)
+					month2   = b.year*12+b.month
+					months   = month2 - month1
+					a2y,a2m  = *(month1-1).divmod(12)
+					a, b     = Datetime.civil(a2y, a2m+1, 1), Datetime.civil(b.year, b.month, 1)
+	
+					seconds_in_months = (b.day_number-a.day_number)*86400
+					p [seconds, seconds_in_months]
+					seconds -= seconds_in_months
+	
+					b2y,b2m  = *(month1+(months.div(12)*12)).divmod(12)
+					b        = Datetime.civil(b2y, b2m+1, 1)
+					seconds_in_years = (b.day_number-a.day_number)*86400
+				end
+	
+				@gregorian_duration = Duration::Gregorian.new(months, days+overflow, picoseconds, @language)
+			end
+			
+			def to_gregorian_duration
+				@gregorian_duration
+			end
+		end
+	end
+end

data/lib/chronos/locale/parsers/de_CH.rb

@@ -0,0 +1,50 @@
+# 21. 12. 1982
+# 21.12.1982
+# 21. Dezember 1982
+# 23:15 Uhr
+# 23.15 Uhr
+
+add(/#{day}\. ?#{month}\. ?#{year}/, :day, :month, :year)
+add(/#{day}\. #{monthname} #{year}/, :day, :month, :year)
+add(/#{hour}(?:[:.]#{minute}(?:[:.]#{second})?)?/, :hour, :minute, :second)
+add(/gestern/) {
+	d = Chronos::Datetime::Gregorian.today
+	s = Chronos::Duration::Gregorian.new :days => 1
+	d.to_hash(:year, :month, :day)
+}
+add(/heute/) {
+	d = Chronos::Datetime::Gregorian.yesterday; d.to_hash(:year, :month, :day)
+}
+'#(gestern)#': 
+  - yesterday
+'#(heute)#': 
+  - today
+'#(morgen)#': 
+  - tomorrow
+'#(jetzt)#': 
+  - now
+'#(\d{1,2})\.(\d{1,2})\.(\d{4}|\d{2})?#': 
+  - d
+  - m
+  - y
+'#(\d{1,2})\. (\d{1,2})\. (\d{4}|\d{2}(?![.:]))?#': 
+  - d
+  - m
+  - y
+'#(\d{1,2})\. (\w{3,})\.? ?(\d{4}|\d{2})?#': 
+  - d
+  - T
+  - y
+'#(\d{1,2})\:(\d{1,2})h?#': 
+  - H
+  - M
+'#(\d{1,2})\:(\d{1,2})(h| uhr)?#': 
+  - H
+  - M
+'#(?:\A|[^\.\d])(\d{1,2})\.(\d{1,2})(?![\.\d])(h| uhr)?#': 
+  - H
+  - M
+  - 0
+'#(\d{1,2})(h| uhr)#': 
+  - H
+  - 0

data/lib/chronos/locale/parsers/en_US.rb

@@ -0,0 +1 @@
+add_format "%m/%d/%Y"

data/lib/chronos/locale/parsers/generic.rb

@@ -0,0 +1,21 @@
+add_format_as "Y", /(\d{4})/,                :year         # 4 digits
+add_format_as "m", /(0?[1-9]|1[012])/,       :month        # 1-12 with optional leading zero
+add_format_as "d", /(0?[1-9]|[12]\d|3[01])/, :day_of_month # 1-31 with optional leading zero
+add_format_as "H", /([01]?\d|2[123])/,       :hour         # 0-23 with optional leading zero
+add_format_as "M", /([0-5]?\d)/,             :minute       # 0-59 with optional leading zero
+add_format_as "S", /([0-5]?\d|60)/,          :second       # 0-60 with optional leading zero (leap second)
+add_format_as "Z", /(#{Chronos::TimezonesByName.keys.sort.join('|')})/, :timezone do |parser, matches| # timezones are known to have no special chars, no escaping required
+	if tz = Chronos::TimezonesByName[matches.first] then
+		tz.offset
+	end
+end
+add_format_as "z", /(+-)/, :timezone do |parser, matches| # timezones are known to have no special chars, no escaping required
+	if tz = Chronos::TimezonesByName[matches.first] then
+		tz.offset
+	end
+end
+
+add_format_as "iso_date", /#{Y}-(#{m})-#{d}/, :year, :month, :day
+add_format_as 
+
+add_format(/#{iso_date}/)

data/lib/chronos/locale/strings/de_DE.yaml

@@ -0,0 +1,76 @@
+---
+:monthname:
+  - Januar
+  - Februar
+  - März
+  - April
+  - Mai
+  - Juni
+  - Juli
+  - August
+  - September
+  - Oktober
+  - November
+  - Dezember
+:monthnameshort:
+  - Jan
+  - Feb
+  - Mär
+  - Apr
+  - Mai
+  - Jun
+  - Jul
+  - Aug
+  - Sep
+  - Okt
+  - Nov
+  - Dez
+:dayname:
+  - Montag
+  - Dienstag
+  - Mittwoch
+  - Donnerstag
+  - Freitag
+  - Samstag
+  - Sonntag
+:daynameshort:
+  - Mo
+  - Di
+  - Mi
+  - Do
+  - Fr
+  - Sa
+  - So
+:picosecond:
+  ~: Picosekunden
+  1: Picosekunde
+:nanosecond:
+  ~: Nanosekunden
+  1: Nanosekunde
+:microsecond:
+  ~: Mikrosekunden
+  1: Mikrosekunde
+:millisecond:
+  ~: Millisekunden
+  1: Millisekunde
+:second:
+  ~: Sekunden
+  1: Sekunde
+:minute:
+  ~: Minuten
+  1: Minute
+:hour:
+  ~: Stunden
+  1: Stunde
+:day:
+  ~: Tage
+  1: Tag
+:week:
+  ~: Wochen
+  1: Woche
+:month:
+  ~: Monate
+  1: Monat
+:year:
+  ~: Jahre
+  1: Jahr

data/lib/chronos/locale/strings/en_US.yaml

@@ -0,0 +1,76 @@
+---
+:monthname:
+  - january
+  - february
+  - march
+  - april
+  - may
+  - june
+  - july
+  - august
+  - september
+  - october
+  - november
+  - december
+:monthnameshort:
+  - jan
+  - feb
+  - mar
+  - apr
+  - may
+  - jun
+  - jul
+  - aug
+  - sep
+  - oct
+  - nov
+  - dec
+:dayname:
+  - monday
+  - tuesday
+  - wednesday
+  - thursday
+  - friday
+  - saturday
+  - sunday
+:daynameshort:
+  - mo
+  - tu
+  - we
+  - th
+  - fr
+  - sa
+  - su
+:picosecond:
+  ~: picoseconds
+  1: picosecond
+:nanosecond:
+  ~: nanoseconds
+  1: nanosecond
+:microsecond:
+  ~: microseconds
+  1: microsecond
+:millisecond:
+  ~: milliseconds
+  1: millisecond
+:second:
+  ~: seconds
+  1: second
+:minute:
+  ~: minutes
+  1: minute
+:hour:
+  ~: hours
+  1: hour
+:day:
+  ~: days
+  1: day
+:week:
+  ~: weeks
+  1: week
+:month:
+  ~: months
+  1: month
+:year:
+  ~: years
+  1: year