// Copyright (c) 1997-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 <bautils.h>

#include <profiler.h>

#include <e32debug.h>

//------------------------------------------------------------------------------------------------------------

void startProfilerServer()

   {

	RDebug::Print(_L("Startup Profiling - startProfilerServer()"));

	_LIT(KParam,"");

	RProcess p;

	TInt err;   

	// Run the Sampling Profiler

	err=p.Create(KProfilerName,KParam);

	if (err == KErrNone)

		{

		p.Resume();

		p.Close();

		User::After(1000000);

		}

	else

		{

		RDebug::Print(_L("Startup Profiling - ERROR %d: Unable to execute Sampling Profiler\n"), err);

		}

	}

//************************************************************************************************************

// PARSE PARAMETER

//************************************************************************************************************

TInt parseNumberL(TDes &aArgs, const TDesC &aParam)

   {

   TInt     pos, num, ret;

	TBuf<100> argsTmp;

   TLex     lexArgs;	   

   pos = aArgs.Find(aParam);

   if (pos == KErrNotFound)

      User::Leave(KErrArgument);

   argsTmp.Insert(0,aArgs);

   argsTmp.Delete(0,pos + aParam.Length());

   lexArgs=argsTmp;

   ret=lexArgs.Val(num);

   if (ret != KErrNone)

      User::Leave(KErrArgument);

   return num;

   }

//************************************************************************************************************

//************************************************************************************************************

//  MAIN

//************************************************************************************************************

//************************************************************************************************************

void doMainL()

	{

	RDebug::Print(_L("Startup Profiling - doMainL"));

	TBuf<100>       buf, args;

	TInt            waittime(300000000), err;

   _LIT(KParamTime,	"time=");

   // Get and prepare Command Line

#ifndef __SECURE_API__

   RProcess().CommandLine(args);

#else

   User::CommandLine(args);   

#endif

   args.LowerCase();

   // Parse param and decide what to do  

   if (args.Find(KParamTime) != KErrNotFound) 

		{

		waittime  = parseNumberL(args, KParamTime);  

		RDebug::Print(_L("Starting Profiler - Wait time requested: %d"), waittime);

		}

/*		

	// ECOM should be already running on a real phone. Does not in testshell mode

	REComSession ecom;

	ecom.OpenL();

	User::After(2000000);	      

*/

	// Start the profiler server

	startProfilerServer();

	err=Profiler::Start();

	if (err != KErrNone)

		{

		RDebug::Print(_L("Startup Profiling - ERROR %d : Unable to start Sampling Profiler.\n"),err);

		User::Leave(err);

		}

	else

		{

		RDebug::Print(_L("Startup Profiling - Profiler Started OK"));

		}

	// Now go to sleep until the alloted time (ie until we think boot-up should be complete)	

	User::After(waittime);

	RDebug::Print(_L("Startup Profiling - Time's Up, going to stop profiling now"));

	// Stop, close and unload the profiler properly

	err=Profiler::Stop();

	User::After(300000);

	err=err | Profiler::Close();

	User::After(300000);

	err=err | Profiler::Unload();

	User::After(300000);         

	if (err != KErrNone)

		{

		RDebug::Print(_L("Startup Profiling - ERROR %d : Unable to Stop/Close/Unload Sampling Profiler\n"),err);

		User::Leave(err);            

		}

	}

//************************************************************************************************************

//************************************************************************************************************

// Program Entry

//************************************************************************************************************

//************************************************************************************************************

GLDEF_C TInt E32Main()

	{	

	__UHEAP_MARK;

	CActiveScheduler* rootScheduler = new CActiveScheduler;

	CActiveScheduler::Install(rootScheduler);

	CTrapCleanup* theCleanup=CTrapCleanup::New();

	TRAPD(ret,doMainL());	

	delete theCleanup;	

	delete rootScheduler;

	__UHEAP_MARKEND;

	return(KErrNone);

	}