// Copyright (c) 2000-2009 Nokia Corporation and/or its subsidiary(-ies).
// All rights reserved.
// This component and the accompanying materials are made available
// under the terms of the License "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 "analyse.h"
#include "distribution.h"
#include "output.h"

#ifdef __MSVCDOTNET__
#include <ostream>
#include <iomanip>
#else //!__MSVCDOTNET__
#include <ostream.h>
#include <iomanip.h>
#endif //__MSVCDOTNET__

#include <algorithm>

// class Distribution

namespace {

int* BucketBox(int aSize)
	{
	int* buckets = new int[aSize];
	memset(buckets, 0, sizeof(int) * aSize);
	return buckets;
	}

class BucketTotals
	{
private:
	class Generator
		{
	public:
		inline Generator()
			:iValue(0)
			{}
		inline int operator()()
			{return iValue++;}
	private:
		int iValue;
		};
	class Sorter
		{
	public:
		inline Sorter(const int* aTotals)
			:iTotals(aTotals)
			{}
		inline bool operator()(int aLhs, int aRhs) const
			{return (iTotals[aLhs] > iTotals[aRhs]);}
	private:
		const int* iTotals;
		};
public:
	BucketTotals(Distribution::Data& aData, int aSize);
	~BucketTotals();
	void Sort();
//
	inline int Total() const;
	inline int Map(int aBucket) const;
	inline int operator[](int aBucket) const;
	inline Result Sample(int aSample) const;
private:
	void Total(Distribution::Data& aData);
private:
	int iSize;
	int* iTotals;
	int* iOrdering;
	int iTotal;
	};

BucketTotals::BucketTotals(Distribution::Data& aData, int aSize)
	:iSize(aSize), iTotals(BucketBox(aSize)), iOrdering(BucketBox(aSize))
	{
	Total(aData);
	std::generate_n(iOrdering, iSize, Generator());
	}

BucketTotals::~BucketTotals()
	{
	delete [] iTotals;
	delete [] iOrdering;
	}

void BucketTotals::Total(Distribution::Data& aData)
	{
	int total = 0;
	for (Distribution::Data::iterator p = aData.begin(), e = aData.end(); p != e; ++p)
		{
		const int* box = p->iBuckets;
		int threadTotal = 0;
		for (int j = p->iBucketsLength; --j >=0;)
			{
			threadTotal += box[j];
			iTotals[j] += box[j];
			}
		p->iTotal = threadTotal;
		total += threadTotal;
		}
	iTotal = total;
	}

void BucketTotals::Sort()
	{
	std::sort(iOrdering, iOrdering + iSize, Sorter(iTotals));
	}

inline int BucketTotals::Total() const
	{return iTotal;}

inline int BucketTotals::Map(int aBucket) const
	{return iOrdering[aBucket];}

inline int BucketTotals::operator[](int aBucket) const
	{return iTotals[iOrdering[aBucket]];}

inline Result BucketTotals::Sample(int aSample) const
	{return Result(aSample, iTotal);}

};

inline Distribution::ThreadData::ThreadData(const Thread& aThread, int aSize)
	:iThread(&aThread), iBuckets(BucketBox(aSize)), iTotal(0), iBucketsLength(aSize)
	{}

inline Distribution::ThreadData::ThreadData(int aCutoff)
	:iTotal(aCutoff)
	{}

inline bool Distribution::ThreadData::operator<(const Distribution::ThreadData& aRhs) const
	{return (iTotal > aRhs.iTotal);}

Distribution::Distribution(CodeSpace& aCodeSpace, double aCutOff)
	:iCodeSpace(aCodeSpace), iCutOff(aCutOff)
	{
	cout << "Profile distribution\n\n";
	}

void Distribution::Sample(unsigned , const Thread& aThread, PC aPc)
//
// Collect the sample in the bucket as allocated by the code space
//
	{
	if (aThread.iIndex == iData.size())
		iData.push_back(ThreadData(aThread,iCodeSpace.Size()));

	///
	int bucket = iCodeSpace.Bucket(aPc);
	if (bucket >= iData[aThread.iIndex].iBucketsLength)
		{
		int* new_buckets = new int[bucket+1];
		memset(new_buckets, 0, sizeof(int) * (bucket+1));
		memcpy(new_buckets, iData[aThread.iIndex].iBuckets, sizeof(int) * iData[aThread.iIndex].iBucketsLength);
		delete [] iData[aThread.iIndex].iBuckets;
		iData[aThread.iIndex].iBuckets = new_buckets;
		iData[aThread.iIndex].iBucketsLength = bucket+1;
		}

	++iData[aThread.iIndex].iBuckets[bucket];
	}

void Distribution::Complete(unsigned aTotal, unsigned aActive)
	{
	// accumulate thread and bucket totals
	const int nbuckets = iCodeSpace.Size();
	BucketTotals totals(iData, nbuckets);
	if (iCodeSpace.Ordering() == CodeSpace::ERandom)
		totals.Sort();

	int cutoff = int(iCutOff * totals.Total() * 0.01);
	std::sort(iData.begin(), iData.end());
	iData.erase(std::upper_bound(iData.begin(), iData.end(), ThreadData(cutoff)), iData.end());
//
	cout.setf(ios::fixed, ios::floatfield);
	cout.precision(2);
//
	cout << "Samples: " << aTotal << '\n';
	cout << " Active: " << aActive << "  (" << double(aActive*100)/aTotal << "%)\n";
	cout << "Counted: " << totals.Total() << "  (" << double(totals.Total()*100)/aTotal << "%)\n\n";
	cout << setfill(' ');
//
	Data::iterator p, e;
	if (!Analyse::Option(Analyse::ETotalOnly))
		{
		if (Analyse::Format() != Analyse::EExcel)
			{
			cout << "ID  Thread name\n";
			char id = 'A';
			for (p = iData.begin(), e = iData.end(); p != e; ++p)
				cout << id++ << "   " << *p->iThread << '\n';
			cout << '\n';

			id = 'A';
			for (p = iData.begin(), e = iData.end(); p != e; ++p)
				cout << setw(4) << id++ << "    ";
			cout << "  total\n\n";

			for (p = iData.begin(), e = iData.end(); p != e; ++p)
				cout << totals.Sample(p->iTotal) << " ";
			cout << "  " << totals.Sample(totals.Total()) << "  total\n\n";
			}
		else
			{
			cout.precision(5);
			for (p = iData.begin(), e = iData.end(); p != e; ++p)
				cout << '\t' << *p->iThread;
			cout << "\ttotal\n";
			}
		}

	if (cutoff == 0 && iCodeSpace.Ordering() != CodeSpace::ELinear)
		cutoff = 1;

	for (int ix = 0; ix< nbuckets; ++ix)
		{
		int total = totals[ix];
		if (total >= cutoff)
			{
			int jx = totals.Map(ix);
			if (jx == CodeSpace::KOtherBucket && Analyse::Option(Analyse::ENoOther))
				continue;
			if (Analyse::Format() == Analyse::EExcel)
				{
				cout << iCodeSpace.Name(jx);
				if (!Analyse::Option(Analyse::ETotalOnly))
					{
					for (p = iData.begin(), e = iData.end(); p != e; ++p)
						cout << '\t' << totals.Sample(jx>=p->iBucketsLength ? 0 : p->iBuckets[jx]);
					}
				cout << '\t' << totals.Sample(total) << '\n';
				}
			else
				{
				if (!Analyse::Option(Analyse::ETotalOnly))
					{
					for (p = iData.begin(), e = iData.end(); p != e; ++p)
						cout << totals.Sample(jx>=p->iBucketsLength ? 0 : p->iBuckets[jx]) << " ";
					cout << "  ";
					}
				cout << totals.Sample(total) << "  " << iCodeSpace.Name(jx) << '\n';
				}
			}
		}

	if (!Analyse::Option(Analyse::ETotalOnly))
		{
		if (Analyse::Format() == Analyse::EExcel)
			{
			cout << "total";
			for (p = iData.begin(), e = iData.end(); p != e; ++p)
				cout << '\t' << totals.Sample(p->iTotal);
			cout << '\t' << totals.Sample(totals.Total()) << '\n';
			}
		}
	}