/*

* Copyright (c) 2008-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: 

*

*/

#include "TCustomWrap.h"

#include "TGraphicsContext.h"

#include <e32std.h>

#include <e32test.h>

#include <frmtlay.h>

#include <frmtview.h>

#include <txtlaydc.h>

#include <fbs.h>

#include <w32std.h>

#include <txtrich.h>

#include <e32math.h>

#include <f32file.h>

#include <flogger.h>

#ifdef SYMBIAN_ENABLE_SPLIT_HEADERS

#include "TAGMA_INTERNAL.H"

#endif

RFs fs;

RFile fileTimeStamps;

#if ((defined (__WINS__)) || (defined (__X86GCC__)))

	_LIT(KLogTimeStampsName, "c:\\formtimestamps.csv");

#else

	_LIT(KLogTimeStampsName, "e:\\formtimestamps.csv");

#endif

_LIT(KEnglish, "Whereas recognition of the inherent dignity and of the equal \

and inalienable rights of all members of the human family is the foundation \

of freedom, justice and peace in the world, ");

const TInt KEnglishRepeats = 119;

_LIT(KArabic, "\x644\x645\x651\x627 \x643\x627\x646 \x627\x644\x627\x639\x62A\

\x631\x627\x641 \x628\x627\x644\x643\x631\x627\x645\x629 \x627\x644\x645\x62A\

\x623\x635\x644\x629 \x641\x64A \x62C\x645\x64A\x639 \x623\x639\x636\x627\

\x621 \x627\x644\x623\x633\x631\x629 \x627\x644\x628\x634\x631\x64A\x629\

 \x648\x628\x62D\x642\x648\x642\x647\x645 \x627\x644\x645\x62A\x633\x627\

\x648\x64A\x629 \x627\x644\x62B\x627\x628\x62A\x629 \x647\x648 \x623\x633\

\x627\x633 \x627\x644\x62D\x631\x64A\x629 \x648\x627\x644\x639\x62F\x644\

 \x648\x627\x644\x633\x644\x627\x645 \x641\x64A \x627\x644\x639\x627\x644\

\x645. ");

const TInt KArabicRepeats = 156;

_LIT(KJapanese, "\x4EBA\x985E\x793E\x4F1A\x306E\x3059\x3079\x3066\x306E\x69CB\

\x6210\x54E1\x306E\x56FA\x6709\x306E\x5C0A\x53B3\x3068\x5E73\x7B49\x3067\x8B72\

\x308B\x3053\x3068\x306E\x3067\x304D\x306A\x3044\x6A29\x5229\x3068\x3092\

\x627F\x8A8D\x3059\x308B\x3053\x3068\x306F\x3001\x4E16\x754C\x306B\x304A\

\x3051\x308B\x81EA\x7531\x3001\x6B63\x7FA9\x53CA\x3073\x5E73\x548C\x306E\

\x57FA\x790E\x3067\x3042\x308B\x306E\x3067\x3001 ");

const TInt KJapaneseRepeats = 357;

const TInt KDisplayWidth = 100;

const TInt KDisplayHeight = 120;

_LIT(KFormBenchmark, "TFormBenchmark");

RTest test(KFormBenchmark);

const TInt KInsertDisplayWidth = 200;

const TInt KChangedDisplayWidth = 150;

_LIT(KEnglishToInsert1, "Whereas recognition of the inherent dignity");

_LIT(KEnglishToInsert2, " and of the equal and inalienable rights of all... and so on");

const TInt KEnglishInsertRepeats = 400;

const TInt KEnglishScrollRepeats = 100;

const TInt KDeleteTextInterval = 10;//we measure delete text once for each 10 deletes, to make the output smaller

_LIT8(KDeleteTextFromStart, "Delete text from start\r\n");

_LIT8(KInsertTextAtStart, "Insert text at start\r\n");

_LIT8(KScrollingUp, "Scrolling up\r\n");

_LIT8(KScrollingDown, "Scrolling down\r\n");

struct TDocInfo

	{

	TDocInfo():iDocLength(0), iDocParaCount(0), iLineCount(0){}

	TInt iDocLength;

	TInt iDocParaCount;

	TInt iLineCount;

	};

struct TTFTimeStamp

	{

	TInt64 iTime;

	TInt iIteration;

	};

struct TFormattingObjects

	{

	TRect* iDisplayRect;

	CParaFormatLayer* iParFormat;

	CCharFormatLayer* iCharFormat;

	CRichText* iRichText;

	CTextLayout* iLayout;

	CTestGraphicsDevice* iDevice;

	CTextView* iView;

	};

/*

Functions for writing benchmarking data to the CSV

*/

void WriteSampleDocInfo(TDocInfo aDocInfo, RFile aDest)

	{

	TBuf8<128> buf;

	buf.Format(_L8("Sample text: %d characters: %d paras: %d lines\r\n"), aDocInfo.iDocLength, aDocInfo.iDocParaCount, aDocInfo.iLineCount);

	aDest.Write(buf);

	}

void WriteTimeStampsL(const TDesC8& aTitle, RArray<TTFTimeStamp>& aTimeStamps)

	{

	fileTimeStamps.Write(aTitle);

	for (TInt i = 0; i < aTimeStamps.Count(); i++)

		{

		TTFTimeStamp timestamp = aTimeStamps[i];

		TBuf8<128> buf;

		buf.Format(_L8("%d, %Ld\r\n"), timestamp.iIteration, timestamp.iTime/1000);

		fileTimeStamps.Write(buf);

		}

	}

TDocInfo GetSampleDocInfoL(TFormattingObjects& aFormattingObjects)

	{

	TDocInfo docInfo;

	const CTmTextLayout& layout = aFormattingObjects.iView->Layout()->TagmaTextLayout();

	docInfo.iDocLength = layout.Source()->DocumentLength();

	docInfo.iDocParaCount = aFormattingObjects.iRichText->ParagraphCount();

//very peculiar way to count the lines...

	TCursorPosition::TMovementType move = TCursorPosition::EFLineDown;

	while (move == TCursorPosition::EFLineDown)

		{

		aFormattingObjects.iView->MoveCursorL(move, EFalse);

		}

	move = TCursorPosition::EFLineUp;

	while (move == TCursorPosition::EFLineUp)

		{

		docInfo.iLineCount++;

		aFormattingObjects.iView->MoveCursorL(move, EFalse);

		}

	return docInfo;

	}

/*

Set up the test document

*/

void SetTextL(CRichText& aText, const TDesC& aSample, TInt aRepeats, TInt aRepeatsPerPara)

	{

	TInt repeatsInThisPar = 0;

	aText.Reset();

	for (; aRepeats != 0; --aRepeats)

		{

		aText.InsertL(0, aSample);

		repeatsInThisPar ++;

		if (repeatsInThisPar > aRepeatsPerPara)

			{

			TChar paragraphDelimiter(0x2029);

			aText.InsertL(0, paragraphDelimiter);

			repeatsInThisPar = 0;

			}

		}

	}

_LIT(KOneWord, "blahblahblahblahblahblahblahblah");

void BigBufLC(RBuf& aBigBuf)

	{

	aBigBuf.CreateL(16384);

	aBigBuf.CleanupClosePushL();

	while(aBigBuf.Length()+KOneWord().Length() < aBigBuf.MaxLength())

		{

		aBigBuf.Append(KOneWord);

		}

	}

TTimeIntervalMicroSeconds MeasureOpeningL(CTextView& aView)

	{

	TCursorSelection zero(0, 0);

	aView.SetPendingSelection(zero);

	TTime start;

	TTime end;

	start.UniversalTime();

	aView.HandleGlobalChangeL();

	end.UniversalTime();

	return end.MicroSecondsFrom(start);

	}

TTimeIntervalMicroSeconds MeasureRmsCursorDownL(CTextView& aView)

	{

	TInt mem;

	TInt cells = User::AllocSize(mem);

	TReal totalOfSquares = 0;

	TTime start;

	TTime end;

	TCursorPosition::TMovementType move = TCursorPosition::EFLineDown;

	while (move == TCursorPosition::EFLineDown)

		{

		start.UniversalTime();

		aView.MoveCursorL(move, EFalse);

		end.UniversalTime();

		TReal us = end.MicroSecondsFrom(start).Int64();

		totalOfSquares += us*us;

		}

	TReal rms;

	Math::Sqrt(rms, totalOfSquares);

	cells = User::AllocSize(mem);

	return TTimeIntervalMicroSeconds(static_cast<TInt64>(rms));

	}

TInt NumberOfLines(CTextLayout& aLayout)

	{

	TTmDocPosSpec dp(aLayout.DocumentLength(), TTmDocPosSpec::ETrailing);

	TTmPosInfo2 posInfo;

	TTmLineInfo lineInfo;

	aLayout.FindDocPos(dp, posInfo, &lineInfo);

	return lineInfo.iLineNumber;

	}

TTimeIntervalMicroSeconds MeasureFormattingL(CTextView& aView)

	{

	// This looks to me like a defect.

	// We have to set the actual doc pos to prevent a crash, even

	// though we are setting a pending selection.

	// Probably not too serious, though.

	aView.SetDocPosL(0, ETrue);

	TCursorSelection zero(0, 0);

	aView.SetPendingSelection(zero);

	TTime start;

	TTime end;

	start.UniversalTime();

	aView.HandleGlobalChangeL();

	aView.FinishBackgroundFormattingL();

	end.UniversalTime();

	end.UniversalTime();

	return end.MicroSecondsFrom(start);

	}

void MeasureDeleteTextFromStartL(RArray<TTFTimeStamp>& aTimeStamps,

	TFormattingObjects& aFormattingObjects, TInt64& aSlowest)

	{

	const CTmTextLayout& tmLayout = aFormattingObjects.iLayout->TagmaTextLayout();

	aTimeStamps.Close();

	TTime start;

	TTime end;

	TInt iteration = 0;

	TInt64 total = 0;

	TInt step = 0;

	while(aFormattingObjects.iRichText->DocumentLength() > 0)

		{

		aFormattingObjects.iRichText->DeleteL(0, 1);

		TCursorSelection cursor(0,0);

		start.UniversalTime();

		aFormattingObjects.iView->HandleInsertDeleteL(cursor, 1, EFalse);

		end.UniversalTime();

		TInt64 us = end.MicroSecondsFrom(start).Int64();

		if(us > aSlowest)

			{

			aSlowest = us;

			}

		total += us;

		step++;

		if(step == KDeleteTextInterval)

			{

			TInt64 average = total/KDeleteTextInterval;

			TTFTimeStamp timestamp;

			timestamp.iTime = average;

			timestamp.iIteration = iteration;

			User::LeaveIfError(aTimeStamps.Append(timestamp));

			iteration++;

			step = 0;

			total = 0;

			}

		}

	}

void MeasureInsertTextAtStartL(TInt aRepeats, TInt aRepeatsPerPara, RArray<TTFTimeStamp>& aTimeStamps,

	TFormattingObjects& aFormattingObjects, TInt64& aSlowest)

	{

	aTimeStamps.Close();

	TTime start;

	TTime end;

	TInt repeatsInThisPar = 0;

	TViewRectChanges changes;

	aFormattingObjects.iRichText->Reset();

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

		{

		TBuf<128> sample;

		if ((i%2)==0)

			{

			sample = KEnglishToInsert1;

			}

		else

			{

			sample = KEnglishToInsert2;

			}

		aFormattingObjects.iRichText->InsertL(0, sample);

		TCursorSelection cursor(0, sample.Length());

		start.UniversalTime();

		aFormattingObjects.iLayout->HandleBlockChangeL(cursor, 0, changes, 0);

		end.UniversalTime();

		TInt64 us = end.MicroSecondsFrom(start).Int64();

		repeatsInThisPar ++;

		TTFTimeStamp timestamp;

		timestamp.iTime = us;

		timestamp.iIteration = i;

		User::LeaveIfError(aTimeStamps.Append(timestamp));

		if(us > aSlowest)

			{

			aSlowest = us;

			}

		if (repeatsInThisPar > aRepeatsPerPara)

			{

			TChar paragraphDelimiter(0x2029);

			aFormattingObjects.iRichText->InsertL(0, paragraphDelimiter);

			repeatsInThisPar = 0;

			}

		}

	}

void MeasureCursorL(RArray<TTFTimeStamp>& aTimeStamps, TCursorPosition::TMovementType aType,

	TFormattingObjects& aFormattingObjects, TInt64& aSlowest)

	{

	aTimeStamps.Close();

	TTime start;

	TTime end;

	TInt lines = 0;

	TCursorPosition::TMovementType move = aType;

	while (move == aType)

		{

		lines++;

		start.UniversalTime();

		aFormattingObjects.iView->MoveCursorL(move, EFalse);

		end.UniversalTime();

		TInt64 us = end.MicroSecondsFrom(start).Int64();

		TTFTimeStamp timestamp;

		timestamp.iTime = us;

		timestamp.iIteration = lines;

		User::LeaveIfError(aTimeStamps.Append(timestamp));

		if(us > aSlowest)

			{

			aSlowest = us;

			}

		const CTmTextLayout& tmLayout = aFormattingObjects.iLayout->TagmaTextLayout();

		}

	}

void CreateFormattingObjectsLC(TFormattingObjects& aFormattingObjects)

	{

	TRect* displayRect = new(ELeave) TRect(0, 0, KDisplayWidth, KDisplayHeight);

	CleanupStack::PushL(displayRect);

	CParaFormatLayer* paraFormat = CParaFormatLayer::NewL();

	CleanupStack::PushL(paraFormat);

	CCharFormatLayer* charFormat = CCharFormatLayer::NewL();

	CleanupStack::PushL(charFormat);

	CRichText* text = CRichText::NewL(paraFormat, charFormat);

	CleanupStack::PushL(text);

	CTextLayout* layout = CTextLayout::NewL(text, displayRect->Width());

	CleanupStack::PushL(layout);

	CTestGraphicsDevice* device = CTestGraphicsDevice::NewL(displayRect->Size(), 0);

	CleanupStack::PushL(device);

	// Prevent the line array from using up the memory

	device->LineArray().Disable();

	CTextView* view = CTextView::NewL(layout, *displayRect,

		device, device, 0, 0, 0);

	CleanupStack::PushL(view);

	// must disable flicker-free redraw or Form will try to use

	// the test font with an off-screen (i.e. real) graphics context,

	// which will panic.

	view->DisableFlickerFreeRedraw();

	aFormattingObjects.iDisplayRect = displayRect;

	aFormattingObjects.iParFormat = paraFormat;

	aFormattingObjects.iCharFormat = charFormat;

	aFormattingObjects.iRichText = text;

	aFormattingObjects.iLayout = layout;

	aFormattingObjects.iDevice = device;

	aFormattingObjects.iView = view;

	}

void DestroyFormattingObjects(TFormattingObjects& aFormattingObjects)

	{

	CleanupStack::PopAndDestroy(aFormattingObjects.iView);

	CleanupStack::PopAndDestroy(aFormattingObjects.iDevice);

	CleanupStack::PopAndDestroy(aFormattingObjects.iLayout);

	CleanupStack::PopAndDestroy(aFormattingObjects.iRichText);

	CleanupStack::PopAndDestroy(aFormattingObjects.iCharFormat);

	CleanupStack::PopAndDestroy(aFormattingObjects.iParFormat);

	CleanupStack::PopAndDestroy(aFormattingObjects.iDisplayRect);

	}

/**

@SYMTestCaseID SYSLIB-FORMA-UT-1897

@SYMTestCaseDesc Benchmarks scrolling text

@SYMTestPriority High

@SYMTestActions creates document and scrolls it

@SYMTestExpectedResults The test must not fail or panic .

@SYMDEF DEF092140, DEF092139

*/

void RunScrollingTestL(TInt aRepeats, TInt aRepeatsPerParagraph,

	RArray<TTFTimeStamp>& aTimeStampsDown, RArray<TTFTimeStamp>& aTimeStampsUp,

	TDocInfo& aDocInfo)

	{

	test.Next(_L(" @SYMTestCaseID:SYSLIB-FORMA-UT-1897 "));

	TInt docLength = KEnglish().Length() * aRepeats;

	TInt paragraphs = aRepeats/aRepeatsPerParagraph;

	TFormattingObjects o;

	CreateFormattingObjectsLC(o);

	o.iLayout->SetWrapWidth(KInsertDisplayWidth);

	o.iLayout->SetAmountToFormat(CTextLayout::EFFormatBand);

	SetTextL(*(o.iRichText), KEnglish, aRepeats, aRepeatsPerParagraph);

	TTimeIntervalMicroSeconds opening = MeasureOpeningL(*(o.iView));

	TInt64 slowest = 0;

	MeasureCursorL(aTimeStampsDown, TCursorPosition::EFLineDown, o, slowest);

	MeasureCursorL(aTimeStampsUp, TCursorPosition::EFLineUp, o, slowest);

	RDebug::Printf("PERFORMANCE: Syslibs;Form_Scrolling_Slowest_Doc_with_%d_characters_%d_paragraphs;microseconds: %Ld", docLength, paragraphs, slowest);

	aDocInfo = GetSampleDocInfoL(o);

	DestroyFormattingObjects(o);

	}

/**

@SYMTestCaseID SYSLIB-FORMA-UT-1898

@SYMTestCaseDesc Benchmarks inserting, deleting and formatting text

@SYMTestPriority High

@SYMTestActions creates documents in each language and performs edits and reformats

@SYMTestExpectedResults The test must not fail or panic .

@SYMDEF DEF092140, DEF092139

*/

void RunEnglishArabicJapaneseBenchmarksL(TFormattingObjects& aFormattingObjects)

	{

	test.Next(_L(" @SYMTestCaseID:SYSLIB-FORMA-UT-1898 "));

	SetTextL(*aFormattingObjects.iRichText, KEnglish, KEnglishRepeats, KEnglishRepeats);

	TTimeIntervalMicroSeconds opening = MeasureOpeningL(*aFormattingObjects.iView);

	TTimeIntervalMicroSeconds rmsCursorDown = MeasureRmsCursorDownL(*aFormattingObjects.iView);

	TTimeIntervalMicroSeconds englishFormatting = MeasureFormattingL(*aFormattingObjects.iView);

	TInt englishLines = NumberOfLines(*aFormattingObjects.iLayout);

	SetTextL(*aFormattingObjects.iRichText, KArabic, KArabicRepeats, KArabicRepeats);

	TTimeIntervalMicroSeconds arabicFormatting = MeasureFormattingL(*aFormattingObjects.iView);

	TInt arabicLines = NumberOfLines(*aFormattingObjects.iLayout);

	SetTextL(*aFormattingObjects.iRichText, KJapanese, KJapaneseRepeats, KJapaneseRepeats);

	TTimeIntervalMicroSeconds japaneseFormatting = MeasureFormattingL(*aFormattingObjects.iView);

	TInt japaneseLines = NumberOfLines(*aFormattingObjects.iLayout);

	// Check that the results are fair

	TInt minLines;

	TInt maxLines;

	if (arabicLines < englishLines)

		{

		minLines = arabicLines;

		maxLines = englishLines;

		}

	else

		{

		minLines = englishLines;

		maxLines = arabicLines;

		}

	if (japaneseLines < minLines)

		minLines = japaneseLines;

	else if (maxLines < japaneseLines)

		maxLines = japaneseLines;

	//Tests that the number of lines in each test is more or less balanced

	test(maxLines * 100 <= minLines * 105);

	RDebug::Printf("PERFORMANCE: Syslibs;Form_OpeningLargeParagraph;microseconds: %d",

		static_cast<TInt>(opening.Int64()));

	RDebug::Printf("PERFORMANCE: Syslibs;Form_RmsCursorDown;microseconds: %d",

		static_cast<TInt>(rmsCursorDown.Int64()));

	RDebug::Printf("PERFORMANCE: Syslibs;Form_FormattingEnglish;microseconds: %d",

		static_cast<TInt>(englishFormatting.Int64()));

	RDebug::Printf("PERFORMANCE: Syslibs;Form_FormattingArabic;microseconds: %d",

		static_cast<TInt>(arabicFormatting.Int64()));

	RDebug::Printf("PERFORMANCE: Syslibs;Form_FormattingJapanese;microseconds: %d",

		static_cast<TInt>(japaneseFormatting.Int64()));

	}

/**

@SYMTestCaseID SYSLIB-FORMA-UT-1896

@SYMTestCaseDesc Benchmarks inserting text from the beginning of a paragraph

@SYMTestPriority High

@SYMTestActions creates a large paragraph containg just one word and inserts text iteratively from

the beginning

@SYMTestExpectedResults The test must not fail or panic .

@SYMDEF DEF092140, DEF092139

*/

void RunInsertTextTestsL(TInt aRepeats, TInt aRepeatsPerParagraph,

	RArray<TTFTimeStamp>& aTimeStamps, TDocInfo& aDocInfo)

	{

	test.Next(_L(" @SYMTestCaseID:SYSLIB-FORMA-UT-1896 "));

	TFormattingObjects o;

	CreateFormattingObjectsLC(o);

	TInt64 slowest = 0;

	o.iLayout->SetWrapWidth(KInsertDisplayWidth);

	o.iLayout->SetAmountToFormat(CTextLayout::EFFormatBand);

	MeasureInsertTextAtStartL(aRepeats, aRepeatsPerParagraph, aTimeStamps, o, slowest);

	aDocInfo = GetSampleDocInfoL(o);

	RDebug::Printf("PERFORMANCE: Syslibs;Form_InsertText_Slowest;microseconds: %Ld", slowest);

	DestroyFormattingObjects(o);

	}

/**

@SYMTestCaseID SYSLIB-FORMA-UT-1895