// Copyright (c) 1998-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:

// e32test\misc\t_proc3a.cpp

// 

//

#include <e32std.h>

#include <e32std_private.h>

#include "u32std.h"

#include "../misc/prbs.h"

TUint Seed[2];

#define PANIC(r) Panic(__LINE__,r)

void Panic(TInt aLine, TInt aCode)

	{

	_LIT(KLitTPROC3A,"T_PROC3A-");

	TBuf<16> b=KLitTPROC3A();

	b.AppendNum(aLine);

	RProcess().Panic(b,aCode);

	}

void StartThread(TInt);

TInt ThreadFunction(TAny* aParam)

	{

	TInt p=(TInt)aParam;

	FOREVER

		{

		TProcessPriority pp=(p&1)?EPriorityForeground:EPriorityBackground;

		RProcess().SetPriority(pp);

		++p;

		StartThread(p);

		User::AfterHighRes(1);

		}

	}

void StartThread(TInt aParam)

	{

	RThread t;

	TInt r=t.Create(KNullDesC(),ThreadFunction,0x1000,NULL,(TAny*)aParam);

	if (r!=KErrNone)

		PANIC(r);

	t.Resume();

	t.Close();

	}

GLDEF_C TInt E32Main()

	{

	TBuf<256> cmd;

	User::CommandLine(cmd);

	TLex lex(cmd);

	TUint param1;

	TInt r=lex.Val(param1,EHex);

	if (r!=KErrNone)

		PANIC(r);

	Seed[0]=param1;

	Seed[1]=0;

	StartThread(0);

	TUint x=Random(Seed);

	x&=63;

	x+=2;

	User::AfterHighRes(x);

	RProcess().Kill(param1);

	return 0;

	}