miguelbaldi-ri_cal 0.1

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

@@ -0,0 +1,42 @@
+module RiCal
+  class PropertyValue
+    class RecurrenceRule < PropertyValue
+      #- ©2009 Rick DeNatale, All rights reserved. Refer to the file README.txt for the license
+      #
+      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

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

@@ -0,0 +1,125 @@
+module RiCal
+  class PropertyValue
+    class RecurrenceRule < PropertyValue
+      #- ©2009 Rick DeNatale, All rights reserved. Refer to the file README.txt for the license
+      #
+      module Validations #:nodoc:
+        # Validate that the parameters of the reciever conform to RFC 2445
+        # If errors are found they will be added to the receivers errors
+        #
+        # Whenever any of the parameters are set, e.g. with:
+        #    recurrence_rule.count = 2
+        # the errors will be reset
+        def valid?
+          validate if @errors.nil?
+          errors.empty?
+        end
+
+        # Return any errors found during validation
+        # See #valid?
+        def errors
+          @errors ||= []
+        end
+
+        def reset_errors # :nodoc:
+          @errors = nil
+        end
+
+        # Used by #valid? to validate that the parameters of the reciever conform to RFC 2445
+        # If errors are found they will be added to the receivers errors
+        #
+        # Whenever any of the parameters are set, e.g. with:
+        #    recurrence_rule.count = 2
+        # the errors will be reset
+        def validate
+          @errors = []
+          validate_termination
+          validate_freq
+          validate_interval
+          validate_int_by_list(:bysecond, (0..59))
+          validate_int_by_list(:byminute, (0..59))
+          validate_int_by_list(:byhour, (0..23))
+          validate_int_by_list(:bymonth, (1..12))
+          validate_bysetpos
+          validate_byday_list
+          validate_bymonthday_list
+          validate_byyearday_list
+          validate_byweekno_list
+          validate_wkst
+        end
+
+        def validate_termination
+          errors << "COUNT and UNTIL cannot both be specified" if @count && @until
+        end
+
+        def validate_freq
+          if @freq
+            unless %w{
+              SECONDLY MINUTELY HOURLY DAILY
+              WEEKLY MONTHLY YEARLY
+              }.include?(@freq.upcase)
+              errors <<  "Invalid frequency '#{@freq}'"
+            end
+          else
+            errors << "RecurrenceRule must have a value for FREQ"
+          end
+        end
+
+        def validate_interval
+          if @interval
+            errors << "interval must be a positive integer" unless @interval > 0
+          end
+        end
+
+        def validate_wkst
+          errors << "#{wkst.inspect} is invalid for wkst" unless %w{MO TU WE TH FR SA SU}.include?(wkst)
+        end
+
+        def validate_int_by_list(which, test)
+          vals = by_list[which] || []
+          vals.each do |val|
+            errors << "#{val} is invalid for #{which}" unless test === val
+          end
+        end
+
+        def validate_bysetpos
+          vals = by_list[:bysetpos] || []
+          vals.each do |val|
+            errors << "#{val} is invalid for bysetpos" unless (-366..-1) === val  || (1..366) === val
+          end
+          unless vals.empty?
+            errors << "bysetpos cannot be used without another by_xxx rule part" unless by_list.length > 1
+          end
+        end
+
+        def validate_byday_list
+          days = by_list[:byday] || []
+          days.each do |day|
+            errors << "#{day.source.inspect} is not a valid day" unless day.valid?
+          end
+        end
+
+        def validate_bymonthday_list
+          days = by_list[:bymonthday] || []
+          days.each do |day|
+            errors << "#{day.source.inspect} is not a valid month day" unless day.valid?
+          end
+        end
+
+        def validate_byyearday_list
+          days = by_list[:byyearday] || []
+          days.each do |day|
+            errors << "#{day.source.inspect} is not a valid year day" unless day.valid?
+          end
+        end
+
+        def validate_byweekno_list
+          days = by_list[:byweekno] || []
+          days.each do |day|
+            errors << "#{day.source.inspect} is not a valid week number" unless day.valid?
+          end
+        end
+      end
+    end
+  end
+end

data/lib/ri_cal/property_value/text.rb

@@ -0,0 +1,40 @@
+module RiCal
+  class PropertyValue
+    #- ©2009 Rick DeNatale, All rights reserved. Refer to the file README.txt for the license
+    #
+    # RiCal::PropertyValue::Text represents an icalendar Text property value
+    # which is defined in 
+    # rfc 2445 section 4.3.11 pp 45-46
+    class Text < PropertyValue
+      
+      # Return the string value of the receiver
+      def ruby_value
+        if value
+          value.gsub(/\\[;,nN\\]/) {|match|
+            case match[1,1]
+            when /[,;\\]/
+              match[1,1]
+            when 'n', 'N'
+              "\n"
+            else
+              match
+            end
+          }
+        else
+          nil
+        end
+      end
+      
+      def self.convert(parent, string) #:nodoc:
+        ical_str = string.gsub(/\n\r?|\r\n?|,|;|\\/) {|match|
+          if ["\n", "\r", "\n\r", "\r\n"].include?(match)
+            '\\n'
+          else
+            "\\#{match}"
+          end
+          }
+        self.new(parent, :value => ical_str)
+      end
+    end
+  end
+end

data/lib/ri_cal/property_value/uri.rb

@@ -0,0 +1,11 @@
+module RiCal
+  class PropertyValue
+    #- ©2009 Rick DeNatale, All rights reserved. Refer to the file README.txt for the license
+    #
+    # RiCal::PropertyValue::Uri represents an icalendar Uri property value
+    # which is defined in 
+    # rfc 2445 section 4.8.4.6 p 110
+    class Uri < PropertyValue
+    end
+  end
+end

data/lib/ri_cal/property_value/utc_offset.rb

@@ -0,0 +1,33 @@
+module RiCal
+  class PropertyValue
+    #- ©2009 Rick DeNatale, All rights reserved. Refer to the file README.txt for the license
+    #
+    class UtcOffset < PropertyValue # :nodoc:
+      attr_accessor :sign, :hours, :minutes, :seconds
+
+      def value=(string)
+        @value = string
+        parse_match = /([+-])(\d\d)(\d\d)(\d\d)?/.match(string)
+        if parse_match
+          @sign = parse_match[1] == "+" ? 1 : -1
+          @hours = parse_match[2].to_i
+          @minutes = parse_match[3].to_i
+          @seconds = parse_match[4].to_i || 0
+        end
+      end
+      
+      def to_seconds
+        @sign * ((((hours*60) + minutes) * 60) + seconds)
+      end
+      
+      def add_to_date_time_value(date_time_value)
+        date_time_value.advance(:hours => sign * hours, :minutes => sign * minutes, :seconds => sign * minutes)
+      end
+      
+      def subtract_from_date_time_value(date_time_value)
+        signum = -1 * sign
+        date_time_value.advance(:hours => signum * hours, :minutes => signum * minutes, :seconds => signum * minutes)
+      end
+    end
+  end
+end

data/lib/ri_cal/required_timezones.rb

@@ -0,0 +1,55 @@
+module RiCal
+  #- ©2009 Rick DeNatale, All rights reserved. Refer to the file README.txt for the license
+  #
+  # RequireTimezones collects the timezones used by a given calendar component or set of calendar components
+  # For each timezone we collect it's id, and the earliest and latest times which reference the zone
+  class RequiredTimezones #:nodoc:
+    
+    
+    # A required timezone represents a single timezone and the earliest and latest times which reference it.
+    class RequiredTimezone #:nodoc:
+      
+      attr_reader :first_time, :last_time, :timezone
+      
+      def initialize(tzid)
+        @timezone = RiCal::Component::TZInfoTimezone.new(TZInfo::Timezone.get(tzid))
+      end
+      
+      def tzid
+        @timezone.identifier
+      end
+      
+      def add_datetime(date_time)
+        if @first_time 
+          @first_time = date_time if date_time < @first_time
+        else
+          @first_time = date_time
+        end
+        if @last_time 
+          @last_time = date_time if date_time > @last_time
+        else
+          @last_time = date_time
+        end
+      end
+    end
+    
+    def required_timezones
+      @required_zones ||= {}
+    end
+    
+    def required_zones
+      required_timezones.values
+    end
+    
+    def export_to(export_stream)
+      required_zones.each do |z|
+        tzinfo_timezone =z.timezone
+        tzinfo_timezone.export_local_to(export_stream, z.first_time, z.last_time)
+      end
+    end
+    
+    def add_datetime(date_time, tzid)
+      (required_timezones[tzid] ||= RequiredTimezone.new(tzid)).add_datetime(date_time)
+    end
+  end
+end

data/performance/empty_propval/subject.rb

@@ -0,0 +1,43 @@
+class Subject
+  def initialize(out=STDOUT)
+    cals = RiCal.parse_string <<-END_OF_DATA
+BEGIN:VCALENDAR
+METHOD:REQUEST
+PRODID:Microsoft CDO for Microsoft Exchange
+VERSION:2.0
+BEGIN:VTIMEZONE
+TZID:(GMT-05.00) Eastern Time (US & Canada)
+X-MICROSOFT-CDO-TZID:10
+BEGIN:STANDARD
+DTSTART:16010101T020000
+TZOFFSETFROM:-0400
+TZOFFSETTO:-0500
+RRULE:FREQ=YEARLY;WKST=MO;INTERVAL=1;BYMONTH=11;BYDAY=1SU
+END:STANDARD
+BEGIN:DAYLIGHT
+DTSTART:16010101T020000
+TZOFFSETFROM:-0500
+TZOFFSETTO:-0400
+RRULE:FREQ=YEARLY;WKST=MO;INTERVAL=1;BYMONTH=3;BYDAY=2SU
+END:DAYLIGHT
+END:VTIMEZONE
+BEGIN:VEVENT
+DTSTAMP:20090724T143205Z
+DTSTART;TZID="(GMT-05.00) Eastern Time (US & Canada)":20090804T120000
+SUMMARY:FW: ALL HANDS MEETING
+DTEND;TZID="(GMT-05.00) Eastern Time (US & Canada)":20090804T133000
+DESCRIPTION:Some event
+END:VEVENT
+END:VCALENDAR
+END_OF_DATA
+
+    cal = cals.first
+    @event = cal.events.first
+  end
+  
+  def run
+    puts "start"
+    @event.dtstart
+    puts "done"
+  end
+end

data/performance/paris_eastern/subject.rb

@@ -0,0 +1,90 @@
+class Subject
+  def initialize(out=STDOUT)
+    cals = RiCal.parse_string <<-END_OF_DATA
+BEGIN:VCALENDAR
+METHOD:PUBLISH
+X-WR-TIMEZONE:America/New_York
+PRODID:-//Apple Inc.//iCal 3.0//EN
+CALSCALE:GREGORIAN
+X-WR-CALNAME:Test
+VERSION:2.0
+X-WR-RELCALID:58DB0663-196B-4B6B-A05A-A53049661280
+X-APPLE-CALENDAR-COLOR:#0252D4
+BEGIN:VTIMEZONE
+TZID:Europe/Paris
+BEGIN:DAYLIGHT
+TZOFFSETFROM:+0100
+TZOFFSETTO:+0200
+DTSTART:19810329T020000
+RRULE:FREQ=YEARLY;BYMONTH=3;BYDAY=-1SU
+TZNAME:CEST
+END:DAYLIGHT
+BEGIN:STANDARD
+TZOFFSETFROM:+0200
+TZOFFSETTO:+0100
+DTSTART:19961027T030000
+RRULE:FREQ=YEARLY;BYMONTH=10;BYDAY=-1SU
+TZNAME:CET
+END:STANDARD
+END:VTIMEZONE
+BEGIN:VTIMEZONE
+TZID:US/Eastern
+BEGIN:DAYLIGHT
+TZOFFSETFROM:-0500
+TZOFFSETTO:-0400
+DTSTART:20070311T020000
+RRULE:FREQ=YEARLY;BYMONTH=3;BYDAY=2SU
+TZNAME:EDT
+END:DAYLIGHT
+BEGIN:STANDARD
+TZOFFSETFROM:-0400
+TZOFFSETTO:-0500
+DTSTART:20071104T020000
+RRULE:FREQ=YEARLY;BYMONTH=11;BYDAY=1SU
+TZNAME:EST
+END:STANDARD
+END:VTIMEZONE
+BEGIN:VEVENT
+SEQUENCE:3
+TRANSP:OPAQUE
+UID:AC2EFB19-A8A8-49EF-929F-CA0975374ED6
+DTSTART:20090501T000000Z
+DTSTAMP:20090501T174405Z
+SUMMARY:UTC Event
+CREATED:20090501T174347Z
+DTEND:20090501T010000Z
+END:VEVENT
+BEGIN:VEVENT
+SEQUENCE:2
+TRANSP:OPAQUE
+UID:A5517A09-C53E-4E1F-A642-EA47680BF2B6
+DTSTART;TZID=US/Eastern:20090430T140000
+DTSTAMP:20090501T174428Z
+SUMMARY:Eastern Event
+CREATED:20090501T174415Z
+DTEND;TZID=US/Eastern:20090430T150000
+END:VEVENT
+BEGIN:VEVENT
+SEQUENCE:3
+TRANSP:OPAQUE
+UID:B5024763-9197-4A60-A96E-D8D59D578BB2
+DTSTART;TZID=Europe/Paris:20090430T140000
+DTSTAMP:20090501T174509Z
+SUMMARY:Paris Event
+CREATED:20090501T174439Z
+DTEND;TZID=Europe/Paris:20090430T150000
+END:VEVENT
+END:VCALENDAR
+END_OF_DATA
+
+    cal = cals.first
+    event = cal.events.find {|event| event.summary == "Paris Event"}
+    @date_time = event.dtstart_property
+  end
+  
+  def run
+    puts "start"
+    @date_time.in_time_zone("US/Eastern")
+    puts "done"
+  end
+end