module Microformats
  class TimePropertyParser < ParserCore
    def parse(element, base: nil, element_type:, format_class_array: [], backcompat: nil)
      @base = base
      @duration_value = nil
      @date_value = nil
      @time_value = nil
      @tz_value = nil

      @property_type = element_type

      @fmt_classes = format_class_array
      @mode_backcompat = backcompat

      parse_value_class_pattern(element)

      if @duration_value.nil? && @time_value.nil? && @date_value.nil? && @tz_value.nil?
        value =
          if %w[time ins del].include?(element.name) && !element.attribute('datetime').nil?
            element.attribute('datetime').value.strip
          elsif element.name == 'abbr' && !element.attribute('title').nil?
            element.attribute('title').value.strip
          elsif (element.name == 'data' || element.name == 'input') && !element.attribute('value').nil?
            element.attribute('value').value.strip
          else
            element.text.strip
          end

        parse_dt(value)
      end

      if !@duration_value.nil?
        @duration_value
      else
        result = nil
        result = result.to_s + @date_value unless @date_value.nil?

        unless @time_value.nil?
          result = result.to_s + ' ' unless result.nil?
          result = result.to_s + @time_value
        end

        result = result.to_s + @tz_value unless @tz_value.nil?
        result
      end
    end

    def parse_value_class_pattern(element)
      parse_node(element.children)
    end

    def parse_element(element)
      if @duration_value.nil? || (@time_value.nil? && @date_value.nil? && @tz_value.nil?)
        if value_title_classes(element).length >= 1
          value = element.attribute('title').value.strip
        elsif value_classes(element).length >= 1
          value =
            if element.name == 'img' || element.name == 'area' && !element.attribute('alt').nil?
              element.attribute('alt').value.strip
            elsif element.name == 'data' && !element.attribute('value').nil?
              element.attribute('value').value.strip
            elsif element.name == 'abbr' && !element.attribute('title').nil?
              element.attribute('title').value.strip
            elsif %w[time ins del].include?(element.name) && !element.attribute('datetime').nil?
              element.attribute('datetime').value.strip
            else
              element.text.strip
            end
        end

        parse_dt(value, normalize: true)

        p_classes = property_classes(element)
        p_classes = backcompat_property_classes(element) if @mode_backcompat

        if p_classes.empty? && format_classes(element).empty?
          parse_node(element.children)
        end
      end
    end

    def parse_dt(data, normalize: false)
      # currently the value-class-pattern page lists to normalize  and remove :'s but not regular parsing, seems very odd
      # https://github.com/microformats/tests/issues/29
      #
      # TODO: this still allows a lot of non correct values such as 39th day of the month, etc
      case data.strip
      when /^P\d*W$/
        @duration_value = data if @duration_value.nil?

      when /^P(\d+Y)?(\d+M)?(\d+D)?(T(\d+H)?(\d+M)?(\d+S)?)?$/
        @duration_value = data if @duration_value.nil?

      when /^(\d{4}-[01]\d-[0-3]\d)[tT ]([0-2]\d:[0-5]\d(:[0-5]\d)?)?([zZ]|[-+][01]?\d:?[0-5]\d)?$/
        @date_value = Regexp.last_match(1) if @date_value.nil?
        @time_value = Regexp.last_match(2) if @time_value.nil?
        @tz_value = Regexp.last_match(4).tr('z', 'Z') if @tz_value.nil?

      when /^(\d{4}-[01]\d-[0-3]\d)[tT ]([0-2]\d:[0-5]\d(:[0-5]\d)?)( ?[-+]\d\d:?(\d\d)?)$/
        @date_value = Regexp.last_match(1) if @date_value.nil?
        @time_value = Regexp.last_match(2) if @time_value.nil?

        if normalize
          @tz_value = Regexp.last_match(4).tr('z', 'Z').delete(':') if @tz_value.nil?
        else
          @tz_value = Regexp.last_match(4).tr('z', 'Z') if @tz_value.nil?
        end

      when /^(\d{4}-[0-3]\d\d)[tT ]([0-2]\d:[0-5]\d(:[0-5]\d)?)?([zZ]|[-+][01]?\d:?[0-5]\d)?$/
        @date_value = Regexp.last_match(1) if @date_value.nil?
        @time_value = Regexp.last_match(2) if @time_value.nil?
        @tz_value = Regexp.last_match(4).tr('z', 'Z') if @tz_value.nil?

      when /^(\d{4}-[0-3]\d\d)[tT ]([0-2]\d:[0-5]\d(:[0-5]\d)?)( ?[-+]\d\d:?(\d\d)?)$/
        @date_value = Regexp.last_match(1) if @date_value.nil?
        @time_value = Regexp.last_match(2) if @time_value.nil?

        if normalize
          @tz_value = Regexp.last_match(4).tr('z', 'Z').delete(':') if @tz_value.nil?
        else
          @tz_value = Regexp.last_match(4).tr('z', 'Z') if @tz_value.nil?
        end

      when /^(\d{4})-([01]?\d)-([0-3]?\d)$/
        @date_value = DateTime.new(Regexp.last_match(1).to_i, Regexp.last_match(2).to_i, Regexp.last_match(3).to_i).strftime('%F') if @date_value.nil?

      when /^(\d{4})-([0-3]\d{2})$/
        @date_value = data if @date_value.nil?

      when /^(\d{4})-([01]?\d)$/
        @date_value = data if @date_value.nil?

      when /^([zZ]|[-+][01]?\d:?[0-5]\d)$/
        if normalize
          @tz_value = Regexp.last_match(1).tr('z', 'Z').delete(':') if @tz_value.nil?
        else
          @tz_value = Regexp.last_match(1).tr('z', 'Z') if @tz_value.nil?
        end

      when /^([0-2]\d:[0-5]\d(:[0-5]\d)?)([zZ]|[-+][01]\d:?\d\d)?$/
        @time_value = Regexp.last_match(1) if @time_value.nil?

        if normalize
          @tz_value = Regexp.last_match(3).tr('z', 'Z').delete(':') if @tz_value.nil?
        else
          @tz_value = Regexp.last_match(3).tr('z', 'Z') if @tz_value.nil?
        end

      when /^[0-2]\d:[0-5]\d[zZ]?$/
        @time_value = Time.parse(data).strftime('%H:%M') if @time_value.nil?
        @tz_value = 'Z'

      when /^([0-2]\d:[0-5]\d:[0-5]\d)([-+][01]\d:?[0-5]\d)$/
        Time.parse(data).strftime('%T') # to make sure this time doesn't throw an error

        @time_value = Regexp.last_match(1) if @time_value.nil?
        @tz_value = Regexp.last_match(2) if @tz_value.nil?

      when /^([0-2][0-0]:[0-5]\d)([-+][01]\d:?[0-5]\d)$/
        Time.parse(data).strftime('%H:%M') # to make sure this time doesn't throw an error

        @time_value = Regexp.last_match(1) if @time_value.nil?
        @tz_value = Regexp.last_match(2) if @tz_value.nil?

      when /^([01]?\d):?([0-5]\d)?p\.?m\.?$/i
        @time_value = (Regexp.last_match(1).to_i + 12).to_s + ':' + Regexp.last_match(2).to_s.rjust(2, '0') if @time_value.nil?

      when /^([01]?\d):?([0-5]\d)?a\.?m\.?$/i
        @time_value = Regexp.last_match(1).to_s.rjust(2, '0') + ':' + Regexp.last_match(2).to_s.rjust(2, '0') if @time_value.nil?

      when /^([01]?\d):([0-5]\d):([0-5]\d)?p\.?m\.?$/i
        @time_value = (Regexp.last_match(1).to_i + 12).to_s + ':' + Regexp.last_match(2).to_s.rjust(2, '0') + ':' + Regexp.last_match(3).to_s.rjust(2, '0') if @time_value.nil?

      when /^([01]?\d):([0-5]\d):([0-5]\d)?a\.?m\.?$/i
        @time_value = Regexp.last_match(1).to_s.rjust(2, '0') + ':' + Regexp.last_match(2).to_s.rjust(2, '0') + ':' + Regexp.last_match(3).to_s.rjust(2, '0') if @time_value.nil?

      else
        t = Time.parse(data)

        @time_value = t.strftime('%T') if @time_value.nil?
        @date_value = t.strftime('%F') if @date_value.nil?
      end
    rescue
      nil
    end
  end
end