/* iCalTimeZone+MAPIStore.m - this file is part of SOGo
 *
 * Copyright (C) 2012 Inverse inc
 *
 * Author: Wolfgang Sourdeau <wsourdeau@inverse.ca>
 *
 * This file is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3, or (at your option)
 * any later version.
 *
 * This file is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; see the file COPYING.  If not, write to
 * the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 * Boston, MA 02111-1307, USA.
 */

#import <Foundation/NSArray.h>
#import <Foundation/NSCalendarDate.h>
#import <Foundation/NSString.h>
#import <NGCards/iCalByDayMask.h>
#import <NGCards/iCalTimeZonePeriod.h>
#import <NGCards/iCalRecurrenceRule.h>

#import "NSString+MAPIStore.h"

#include <stdbool.h>
#include <stdint.h>
#include <talloc.h>
#undef DEBUG
#include <libmapi/libmapi.h>

#import "iCalTimeZone+MAPIStore.h"

@interface iCalTimeZonePeriod (MAPIStorePropertiesPrivate)

- (void) _fillTZDate: (struct SYSTEMTIME *) tzData;

@end

@implementation iCalTimeZonePeriod (MAPIStorePropertiesPrivate)

- (void) _fillTZDate: (struct SYSTEMTIME *) tzData
{
  iCalRecurrenceRule *rrule;
  NSArray *byMonth;
  iCalByDayMask *mask;
  NSCalendarDate *dateValue;
  int16_t wDay;

  rrule = [self recurrenceRule];
  byMonth = [rrule byMonth];
  if ([byMonth count] > 0)
    {
      tzData->wMonth = [[byMonth objectAtIndex: 0] intValue];
      mask = [rrule byDayMask];
      tzData->wDayOfWeek = [mask firstDay];
      wDay = [mask firstOccurrence];
      if (wDay < 0)
          /* [MS-OXOCAL] the wDay field is set to indicate the
             occurrence of the day of the week within the month (1 to
             5, where 5 indicates the final occurrence during the
             month if that day of the week does not occur 5 times). */
          wDay += 6;
      tzData->wDay = (uint16_t) wDay;

      dateValue = [self startDate];
      tzData->wHour = [dateValue hourOfDay];
      tzData->wMinute = [dateValue minuteOfHour];
      tzData->wSecond = [dateValue secondOfMinute];
    }
}

@end

@implementation iCalTimeZone (MAPIStoreProperties)

- (iCalTimeZonePeriod *) _mostRecentPeriodWithName: (NSString *) periodName
{
  NSArray *periods;
  iCalTimeZonePeriod *period;
  NSUInteger max;

  periods = [self childrenWithTag: periodName];
  max = [periods count];
  if (max > 0)
    {
      periods = [periods sortedArrayUsingSelector: @selector (compare:)];
      period = (iCalTimeZonePeriod *) [periods objectAtIndex: (max - 1)];
    }
  else
    period = nil;

  return period;
}

- (struct Binary_r *) asTimeZoneStructInMemCtx: (TALLOC_CTX *) memCtx
{
  iCalTimeZonePeriod *period;
  struct TimeZoneStruct tz;
  int lBias, dlBias;

  memset (&tz, 0, sizeof (struct TimeZoneStruct));
  period = [self _mostRecentPeriodWithName: @"STANDARD"];
  lBias = -[period secondsOffsetFromGMT] / 60;
  tz.lBias = (uint32_t) lBias;
  [period _fillTZDate: &tz.stStandardDate];
  period = [self _mostRecentPeriodWithName: @"DAYLIGHT"];
  if (!period)
    tz.stStandardDate.wMonth = 0;
  dlBias = -([period secondsOffsetFromGMT] / 60) - lBias;
  tz.lDaylightBias = (uint32_t) (dlBias);
  [period _fillTZDate: &tz.stDaylightDate];
  tz.wStandardYear = tz.stStandardDate.wYear;
  tz.wDaylightYear = tz.stDaylightDate.wYear;

  return set_TimeZoneStruct (memCtx, &tz);
}

- (struct Binary_r *) asZoneTimeDefinitionWithFlags: (enum TZRuleFlag) flags
                                           inMemCtx: (TALLOC_CTX *) memCtx
{
  iCalTimeZonePeriod *period;
  struct TimeZoneDefinition definition;
  struct TZRule rule;
  NSString *tzId;
  int lBias, dlBias;

  memset (&definition, 0, sizeof (struct TimeZoneDefinition));
  
  definition.major = 0x02;
  definition.minor = 0x01;
  definition.reserved = 0x0002;

  tzId = [self tzId];
  definition.keyName = [tzId asUnicodeInMemCtx: memCtx];
  definition.cbHeader = 6 + [tzId length] * 2;
  
  definition.cRules = 1;
  definition.TZRules = &rule;

  memset (&rule, 0, sizeof (struct TZRule));
  rule.major = 0x02;
  rule.minor = 0x01;
  rule.reserved = 0x003e;
  rule.flags = flags;

  period = [self _mostRecentPeriodWithName: @"STANDARD"];
  rule.wYear = [[period startDate] yearOfCommonEra];
  lBias = -[period secondsOffsetFromGMT] / 60;
  rule.lBias = (uint32_t) lBias;
  [period _fillTZDate: &rule.stStandardDate];
  period = [self _mostRecentPeriodWithName: @"DAYLIGHT"];
  if (!period)
    rule.stStandardDate.wMonth = 0;
  dlBias = -([period secondsOffsetFromGMT] / 60) - lBias;
  rule.lDaylightBias = (uint32_t) (dlBias);
  [period _fillTZDate: &rule.stDaylightDate];


  return set_TimeZoneDefinition (memCtx, &definition);
}


@end
