friflaj_ri_cal 0.9.0

data/lib/ri_cal/property_value/recurrence_rule/occurrence_incrementer/null_sub_cycle_incrementer.rb

@@ -0,0 +1,41 @@
+module RiCal
+  class PropertyValue
+    class RecurrenceRule < PropertyValue
+      class OccurrenceIncrementer # :nodoc:
+        class NullSubCycleIncrementer #:nodoc:
+          def self.next_time(previous)
+            nil
+          end
+
+          def self.add_outer_incrementer(incrementer)
+          end
+          
+          def self.unneeded?(candidate)
+            true
+          end
+
+          def self.first_within_outer_cycle(previous_occurrence, outer_cycle_range)
+            outer_cycle_range.first
+          end
+
+          def self.first_sub_occurrence(previous_occurrence, outer_cycle_range)
+            nil
+          end
+
+          def self.cycle_adjust(date_time)
+            date_time
+          end
+
+          def self.to_s
+            "NULL-INCR"
+          end
+
+          def inspect
+            to_s
+          end
+        end
+      end
+    end
+  end
+end
+

data/lib/ri_cal/property_value/recurrence_rule/occurrence_incrementer/secondly_incrementer.rb

@@ -0,0 +1,26 @@
+module RiCal
+  class PropertyValue
+    class RecurrenceRule < PropertyValue
+      class OccurrenceIncrementer # :nodoc:
+        class SecondlyIncrementer < FrequencyIncrementer #:nodoc:
+
+          def self.for_rrule(rrule)
+            if rrule.freq == "SECONDLY"
+              new(rrule, nil)
+            else
+              nil
+            end
+          end
+
+          def advance_what
+            :seconds
+          end
+
+          def end_of_occurrence(date_time)
+            date_time
+          end
+        end
+      end
+    end
+  end
+end

data/lib/ri_cal/property_value/recurrence_rule/occurrence_incrementer/weekly_incrementer.rb

@@ -0,0 +1,35 @@
+module RiCal
+  class PropertyValue
+    class RecurrenceRule < PropertyValue
+      class OccurrenceIncrementer # :nodoc:
+        class WeeklyIncrementer < FrequencyIncrementer #:nodoc:
+
+          attr_reader :wkst
+
+          # include WeeklyBydayMethods
+
+          def initialize(rrule, parent)
+            @wkst = rrule.wkst_day
+            super(rrule, parent)
+          end
+
+          def self.for_rrule(rrule)
+            conditional_incrementer(rrule, "WEEKLY", ByDayIncrementer)
+          end
+
+          def multiplier
+            7
+          end
+
+          def advance_what
+            :days
+          end
+
+          def end_of_occurrence(date_time)
+            date_time.end_of_week_with_wkst(wkst)
+          end
+        end
+      end
+    end
+  end
+end

data/lib/ri_cal/property_value/recurrence_rule/occurrence_incrementer/yearly_incrementer.rb

@@ -0,0 +1,55 @@
+module RiCal
+  class PropertyValue
+    class RecurrenceRule < PropertyValue
+      class OccurrenceIncrementer # :nodoc:
+         class YearlyIncrementer < FrequencyIncrementer #:nodoc:
+
+           attr_reader :wkst
+
+           def initialize(rrule, sub_cycle_incrementer)
+             @wkst = rrule.wkst_day
+             super(rrule, sub_cycle_incrementer)
+           end
+
+           def self.from_rrule(rrule, start_time)
+             conditional_incrementer(rrule, "YEARLY", ByMonthIncrementer)
+           end
+
+           def advance_what
+             :years
+           end
+
+           def step(date_time)
+             if contains_weeknum_incrementer?
+               result = date_time
+               multiplier.times do
+                 result = result.at_start_of_next_iso_year(wkst)
+               end
+               result
+             else
+               super(date_time)
+             end
+           end
+
+           def start_of_cycle(date_time)
+             if contains_weeknum_incrementer?
+               date_time.at_start_of_iso_year(wkst)
+             elsif contains_daily_incrementer?
+               date_time.change(:month => 1, :day => 1)
+             else
+               date_time.change(:month => 1)
+             end
+           end
+
+           def end_of_occurrence(date_time)
+             if contains_weeknum_incrementer?
+               date_time.end_of_iso_year(wkst)
+             else
+               date_time.end_of_year
+             end
+           end
+        end
+      end
+    end
+  end
+end

data/lib/ri_cal/property_value/recurrence_rule/recurring_day.rb

@@ -0,0 +1,129 @@
+module RiCal
+  class PropertyValue
+    class RecurrenceRule < PropertyValue
+      # Instances of RecurringDay are used to represent values in BYDAY recurrence rule parts
+      #
+      class RecurringDay # :nodoc: 
+        
+        attr_reader :wday, :index, :rrule
+
+        DayNames = %w{SU MO TU WE TH FR SA} unless defined? DayNames
+        day_nums = {}
+        unless defined? DayNums
+          DayNames.each_with_index { |name, i| day_nums[name] = i }
+          DayNums = day_nums
+        end
+
+        attr_reader :source, :scope
+        def initialize(source, rrule, scope = :monthly)
+          @source = source
+          @rrule = rrule
+          @scope = scope
+          wd_match = source.match(/([+-]?\d*)(SU|MO|TU|WE|TH|FR|SA)/)
+          if wd_match
+            @day, @ordinal = wd_match[2], wd_match[1]
+            @wday = DayNums[@day]
+            @index = (@ordinal == "") ? nil : @ordinal.to_i
+          end
+        end
+
+        def valid?
+          !@day.nil?
+        end
+
+        def ==(another)
+          self.class === another && to_a = another.to_a
+        end
+
+        def to_a
+          [@day, @ordinal]
+        end
+        
+        # return a list id for a given time to allow the enumerator to cache lists
+        def list_id(time)
+          case @scope
+          when :yearly
+            time.year
+          when :monthly
+            (time.year * 100) + time.month
+          when :weekly
+            time.at_start_of_week_with_wkst(rrule.wkst_day).jd
+          end
+        end
+        
+        # return a list of times which match the time parameter within the scope of the RecurringDay
+        def matches_for(time)
+          case @scope
+          when :yearly
+            yearly_matches_for(time)
+          when :monthly
+            monthly_matches_for(time)
+          when :weekly
+            weekly_matches_for(time)
+          else
+            walkback = caller.grep(/recurrence/i)
+            raise "Logic error!#{@scope.inspect}\n  #{walkback.join("\n  ")}"
+          end         
+        end
+        
+        def yearly_matches_for(time)
+          if @ordinal == ""
+            t = time.nth_wday_in_year(1, wday)
+            result = []
+            year = time.year
+            while t.year == year
+              result << t
+              t = t.advance(:week => 1)
+            end
+            result
+          else
+            [time.nth_wday_in_year(@ordinal.to_i, wday)]
+          end
+        end
+        
+        def monthly_matches_for(time)
+          if @ordinal == ""
+            t = time.nth_wday_in_month(1, wday)
+            result = []
+            month = time.month
+            while t.month == month
+              result << t
+              t = t.advance(:days => 7)
+            end
+            result
+          else
+            result = [time.nth_wday_in_month(index, wday)]
+            result
+          end
+        end
+
+        def weekly_matches_for(time)
+          date = time.start_of_week_with_wkst(rrule.wkst_day)
+          date += 1 while date.wday != wday
+          [time.change(:year => date.year, :month => date.month, :day => date.day)]
+        end
+
+        def to_s
+          "#{@ordinal}#{@day}"
+        end
+        
+        def ordinal_match(date_or_time)
+          if @ordinal == "" || @scope == :weekly
+            true
+          else
+            if @scope == :yearly
+              date_or_time.nth_wday_in_year?(index, wday) 
+            else
+              date_or_time.nth_wday_in_month?(index, wday)
+            end
+          end
+        end
+
+        # Determine if a particular date, time, or date_time is included in the recurrence
+        def include?(date_or_time)
+          date_or_time.wday == wday && ordinal_match(date_or_time)
+        end
+      end
+    end
+  end
+end

data/lib/ri_cal/property_value/recurrence_rule/recurring_month_day.rb

@@ -0,0 +1,62 @@
+module RiCal
+  class PropertyValue
+    class RecurrenceRule < PropertyValue
+      # Instances of RecurringMonthDay represent BYMONTHDAY parts in recurrence rules
+      class RecurringMonthDay < NumberedSpan # :nodoc:
+
+        def last
+          31
+        end
+        
+        # return a list id for a given time to allow the enumerator to cache lists
+        def list_id(time)
+          time.month
+        end
+ 
+        # return a list of times which match the time parameter within the scope of the RecurringDay
+        def matches_for(time)
+          [time.change(:day => 1).advance(:days => target_for(time)- 1)]
+        end
+        
+        # return a list id for a given time to allow the enumerator to cache lists
+        def list_id(time)
+          time.month
+        end
+ 
+        # return a list of times which match the time parameter within the scope of the RecurringDay
+        def matches_for(time)
+          [time.change(:day => 1).advance(:days => target_for(time)- 1)]
+        end
+        
+        def target_date_time_for(date_time)
+          matches_for(date_time)[0]
+        end
+
+        # return a list of times which match the time parameter within the scope of the RecurringDay
+        def matches_for(time)
+          [time.change(:day => 1).advance(:days => target_for(time)- 1)]
+        end
+
+        def target_date_time_for(date_time)
+          matches_for(date_time)[0]
+        end
+        
+        def fixed_day?
+          @source > 0
+        end
+
+        def target_for(date_or_time)
+          if fixed_day?
+            @source
+          else
+            date_or_time.days_in_month + @source + 1
+          end
+        end
+
+        def include?(date_or_time)
+          date_or_time.mday == target_for(date_or_time)
+        end
+      end
+    end
+  end
+end

data/lib/ri_cal/property_value/recurrence_rule/recurring_numbered_week.rb

@@ -0,0 +1,31 @@
+module RiCal
+  class PropertyValue
+    class RecurrenceRule < PropertyValue
+      class RecurringNumberedWeek < NumberedSpan # :nodoc:
+        def last
+          53
+        end
+         
+        def rule_wkst
+          @rule && rule.wkst_day
+        end
+        
+        def default_wkst
+          rule_wkst || 1
+        end
+        
+        def adjusted_iso_weeknum(date_or_time)
+          if @source > 0
+            @source
+          else
+            date_or_time.iso_weeks_in_year(wkst) + @source + 1
+          end
+        end
+        
+        def include?(date_or_time, wkst=default_wkst)
+          date_or_time.iso_week_num(wkst) == adjusted_iso_weeknum(date_or_time)
+        end
+      end
+    end
+  end
+end

data/lib/ri_cal/property_value/recurrence_rule/recurring_year_day.rb

@@ -0,0 +1,51 @@
+module RiCal
+  class PropertyValue
+    class RecurrenceRule < PropertyValue
+      class RecurringYearDay < NumberedSpan # :nodoc:
+
+        def last
+          366
+        end
+
+        def leap_year?(year)
+          year % 4 == 0 && (year % 400 == 0 || year % 100 != 0)
+        end 
+
+
+        def length_of_year(year)
+          leap_year?(year) ? 366 : 365
+        end 
+        
+        # return a list id for a given time to allow the enumerator to cache lists
+        def list_id(time)
+          time.year
+        end
+
+        # return a list of times which match the time parameter within the scope of the RecurringDay
+        def matches_for(time)
+          [time.change(:month => 1, :day => 1).advance(:days => target_for(time)- 1)]
+        end
+        
+        def target_date_time_for(date_time)
+          matches_for(date_time)[0]
+        end
+        
+        def fixed_day?
+          @source > 0
+        end
+
+        def target_for(date_or_time)
+          if fixed_day?
+            @source
+          else
+            length_of_year(date_or_time.year) + @source + 1
+          end
+        end
+        
+        def include?(date_or_time)
+          date_or_time.yday == target_for(date_or_time)
+        end
+      end
+    end
+  end
+end

data/lib/ri_cal/property_value/recurrence_rule/time_manipulation.rb

@@ -0,0 +1,40 @@
+module RiCal
+  class PropertyValue
+    class RecurrenceRule < PropertyValue
+      module TimeManipulation #:nodoc:
+
+        def advance_day(date_time)
+          date_time.advance(:days => 1)
+        end
+
+        def first_hour_of_day(date_time)
+          date_time.change(:hour => 0)
+        end
+
+        def advance_week(date_time)
+          date_time.advance(:days => 7)
+        end
+
+        def first_day_of_week(wkst_day, date_time)
+          date_time.at_start_of_week_with_wkst(wkst_day)
+        end
+
+        def advance_month(date_time)
+          date_time.advance(:months => 1)
+        end
+
+        def first_day_of_month(date_time)
+          date_time.change(:day => 1)
+        end
+
+        def advance_year(date_time)
+          date_time.advance(:years => 1)
+        end
+
+        def first_day_of_year(date_time)
+          date_time.change(:month => 1, :day => 1)
+        end
+      end
+    end
+  end
+end