// Copyright (c) 2001-2009 Nokia Corporation and/or its subsidiary(-ies).

// All rights reserved.

// This component and the accompanying materials are made available

// under the terms of "Eclipse Public License v1.0"

// which accompanies this distribution, and is available

// at the URL "http://www.eclipse.org/legal/epl-v10.html".

//

// Initial Contributors:

// Nokia Corporation - initial contribution.

//

// Contributors:

//

// Description:

// Creates the Calcon look-up table for the date range:

// 1/1/StartYear & 31/12/KEndYear

// The Linda Agenda date range is 1980-2100

// Creates CALCONDATA.CPP and CALCONDATA.H in \epoc32\wins\c

// These should then be placed in  \calcon\src and \calcon\inc respectively

// and then Calcon should be rebuilt.

// Uses the original Calcon library, now called CalconOriginal.dll

//

void mainL();

#include "CalconTable.h"

#include "calconv.h"

#include <utf.h>

// Type definitions

#define UNUSED_VAR(a) a = a

//Change these to alter the date range for Calcon

const TInt KStartYear=-587;

const TInt KEndYear=2100;

CCalconTableEngine::CCalconTableEngine() :

	iTest(_L("CalconTable"))

		{}

void CCalconTableEngine::GenerateTableL()

	{

	TTime timeStarted;

	timeStarted.UniversalTime();

	iTest.Printf(_L("Generating Calcon table for dates:\n"));

	iTest.Printf(_L("Start: 1st January %d\n"),KStartYear);

	iTest.Printf(_L("End: 31st December %d\n\n"),KEndYear);

	iTest.Printf(_L("Creating c:\\calcondata.cpp\n\n"));

	TDateTime dateTime(KStartYear,EJanuary,0,0,0,0,0);

	TDateTime endTime(KEndYear,EDecember,31-1,0,0,0,0);

	iStartJulianDate=JulianDate(dateTime);

	iEndJulianDate=JulianDate(endTime);

	TChineseCalendar calendar;

	TInt numYears=endTime.Year()-dateTime.Year()+4;

	iYearArray = new (ELeave) TUint[numYears];

//Set date to beginning of current Chinese year

	TChineseDate initialChineseDate;

	calendar.DateTimeToChinese(dateTime);

	calendar.GetDate(initialChineseDate);

	initialChineseDate.iMonth=1;

	initialChineseDate.iDay=1;

	calendar.SetDate(initialChineseDate);

	calendar.ChineseToDateTime(dateTime);

	TTime time=dateTime;

	TReal chineseNewYear=JulianDate(dateTime);

	TChineseDate lastDate;

	TChineseDate chineseDate=initialChineseDate;

//Move near the end of the current month

	time+=TTimeIntervalDays(27);

	TBool hadLeapMonth=EFalse;	

	iSession.Connect();

	TInt err=iFile.Replace(iSession, _L("c:\\calcondata.cpp"), EFileShareExclusive);

	if (err!=KErrNone)

		return;

	err=iFile2.Replace(iSession, _L("c:\\calcondata.h"), EFileShareExclusive);

	if (err!=KErrNone)

		return;

	StartPrint(initialChineseDate.iCycle);

	while (chineseNewYear<iEndJulianDate)

		{

		lastDate=chineseDate;

		time+=TTimeIntervalDays(1);

		dateTime=time.DateTime();

		calendar.DateTimeToChinese(dateTime);

		calendar.GetDate(chineseDate);

		if ((chineseDate.iMonth!=lastDate.iMonth)

			|| (chineseDate.iLeapMonth!=lastDate.iLeapMonth))

			{

			TInt monthFlag= lastDate.iLeapMonth ? 2 : 0;

			ASSERT(lastDate.iDay==29 || lastDate.iDay==30);

			monthFlag += lastDate.iDay==29 ? 1 : 2;

			if (lastDate.iLeapMonth)

				hadLeapMonth=ETrue;

			TInt cycle=lastDate.iCycle-initialChineseDate.iCycle;

			TInt year=lastDate.iYear-1;

			TInt month=lastDate.iMonth-1;//ADDED -1

			if (hadLeapMonth)

				month++;

			if(month==0)	//was 0

				AddNewYear((TInt)chineseNewYear);

			AddMonth(cycle,year,month,monthFlag);

			if (chineseDate.iYear!=lastDate.iYear)

				{

				hadLeapMonth=EFalse;

				TDateTime dt(time.DateTime());

				chineseNewYear=(TInt)JulianDate(dt);

				}

			time+=TTimeIntervalDays(27);

			}

		}

	StopPrint(chineseDate.iCycle);

	TTime timeFinished;

	timeFinished.UniversalTime();

	TInt64 duration=timeFinished.Int64()-timeStarted.Int64();

	Print(1,_L8("\n//Took %u seconds to create\n"),duration/1000000);

	iFile.Close();

	iFile2.Close();

	iSession.Close();

	delete[] iYearArray;

	iTest.Close();

	}

TInt CCalconTableEngine::JulianDate(TDateTime& aDate)

	{

	TGregorianCalendar greg;

	greg.DateTimeToGregorian( aDate);

	return (TInt)greg.JulianDay();

/*	An alternative method for calculating the Julian Date, used in Chinese Linda.

//	Results differ from Calcon for -ve Gregorian years.

	TInt Month = STATIC_CAST(TInt, aDate.Month());

	TInt Year;

	Month++;

	if (Month > 2)

		{

		Month = Month - 3;

		Year = aDate.Year();

		}

	else

		{

		Month = Month + 9;

		Year = aDate.Year() - 1;

		}

	TInt Centuries = Year / 100; 

	TInt Decades = Year - 100 * Centuries;

	TInt julian = (146097 * Centuries)/4 + (1461 * Decades) /4 + (153 * Month + 2) / 5 + aDate.Day() + 1 + 1721119;

	return julian;

*/

	}

void CCalconTableEngine::Print(TInt aFile,TPtrC8 aFormat, ...)

	{

	VA_LIST   args;

	VA_START( args, aFormat);

	TBuf8<1024> buffer;

	TBuf16<1024> buffer2;

	buffer.FormatList(aFormat, args);

	CnvUtfConverter::ConvertToUnicodeFromUtf8(buffer2,buffer);

	if (aFile==1)

		iFile.Write(buffer);

	if (aFile==2)

		iFile2.Write(buffer);

	iTest.Printf(buffer2);

	}

void CCalconTableEngine::AddNewYear(TInt aChineseNewYear)

	{

	iYearArray[iYearCounter++]=aChineseNewYear;

	}

void CCalconTableEngine::AddMonth(TInt aCycle, TInt aYear, TInt aMonth, TInt aMonthFlag)

	{

	if (iFirstPrint)

		{

		iFirstPrint=EFalse;

		iFirstYear=aYear;

		Print(2,_L8("const TInt KFirstJulianDate=%d;\n"),iStartJulianDate);

		Print(2,_L8("const TInt KLastJulianDate=%d;\n"),iEndJulianDate);

		Print(2,_L8("const TInt KFirstYear=%d; //1..60\n"),aYear+1);

		Print(1,_L8("const TUint16 TCalconData::iCalConDataMonth[]={\n"));

		iMonthFlag=0;

		iMonthFlagBit=1<<15;

		iCyclePrint=aCycle;

		iMonthPrint=aMonth;

		iYearPrint=aYear;

		}

	else

		{

		if (aMonth==0)

			{//print out the month details

			Print(1,_L8(" %uU, // %u - %u\n"),iMonthFlag, iCyclePrint,iYearPrint);

			iMonthFlag=0;

			iMonthFlagBit=1<<15;

			iCyclePrint=aCycle;

			iMonthPrint=aMonth;

			iYearPrint=aYear;

			iLastYear=iYearPrint+1;

			}

		}

	TBool bit=EFalse;	//29 days

	if (aMonthFlag==2 || aMonthFlag==4)	//30 days

		bit=ETrue;

	if (aMonthFlag==3 || aMonthFlag==4)

		{//set leap

		TUint shiftedLeapMonth=TUint(aMonth+1)<<28;

		iYearArray[iYearCounter-1]|=shiftedLeapMonth;

		}

	if (bit)

		iMonthFlag|=iMonthFlagBit;

	iMonthFlagBit>>=1;

	}

void CCalconTableEngine::StartPrint(TInt aFirstCycle)

	{

	iFirstPrint=ETrue;

	Print(1,_L8("//\n"));

	Print(1,_L8("// CALCONDATA.CPP\n"));

	Print(1,_L8("//\n"));

	Print(1,_L8("// Copyright (c) 2002 Symbian Ltd. All rights reserved\n"));

	Print(1,_L8("//\n"));

	Print(1,_L8("// Generated by CalconTable.exe\n"));

	Print(1,_L8("//\n"));

	Print(2,_L8("//\n"));

	Print(2,_L8("// CALCONDATA.H\n"));

	Print(2,_L8("//\n"));

	Print(2,_L8("// Copyright (c) 2002 Symbian Ltd. All rights reserved\n"));

	Print(2,_L8("//\n"));

	Print(2,_L8("// Generated by CalconTable.exe\n"));

	Print(2,_L8("//\n"));

	Print(1,_L8("#include \"calconvusingtable.h\"\n"));

	Print(2,_L8("const TInt KFirstCycle=%d;//1..n\n"),aFirstCycle);

	}

void CCalconTableEngine::StopPrint(TInt aLastCycle)

	{

	Print(1,_L8("};\n"));

	Print(1,_L8("const TUint32 TCalconData::iCalConDataYear[]={\n"));

	for (TInt i=0;i<iYearCounter;i++)

		{

		Print(1,_L8(" %u,"),iYearArray[i]);

		Print(1,_L8(" // %d - %d\n"),(i+iFirstYear)/60, (i+iFirstYear)%60);;

		}

	Print(1,_L8("0xffffffff\n};\n"));

	Print(2,_L8("const TInt KLastCycle=%d;//1..n\n"),aLastCycle);

	Print(2,_L8("const TInt KLastYear=%d;//1..60\n"),iLastYear);

	Print(2,_L8("const TInt KNumberOfYears=%d;\n"),iYearCounter);

	}

GLDEF_C TInt E32Main()

    {

	__UHEAP_MARK;

	CTrapCleanup* cleanupStack=CTrapCleanup::New();

	TRAPD(error,mainL());

	UNUSED_VAR(error); //Used to supress build warnings

	delete cleanupStack;

	__UHEAP_MARKEND;

	return KErrNone;

    }

void mainL()

    {

	CCalconTableEngine* engine = new (ELeave) CCalconTableEngine();

	CleanupStack::PushL(engine);

	engine->GenerateTableL();

	CleanupStack::PopAndDestroy();  //delete ConvDates;

	}