// 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\thrdlist.cpp

// 

//

#include <e32svr.h>

#include <f32file.h>

_LIT(KFileName,"C:\\THRDLIST.TXT");

_LIT(KLitAsterisk,"*");

_LIT(KLitProblem,"Could not open thread");

struct SArmRegSet

	{

	TUint32 iR0;

	TUint32 iR1;

	TUint32 iR2;

	TUint32 iR3;

	TUint32 iR4;

	TUint32 iR5;

	TUint32 iR6;

	TUint32 iR7;

	TUint32 iR8;

	TUint32 iR9;

	TUint32 iR10;

	TUint32 iR11;

	TUint32 iR12;

	TUint32 iR13;

	TUint32 iR14;

	TUint32	iR15;

	TUint32 iFlags;

	TUint32 iDacr;

	};

TUint ThreadId(const RThread& aThread)

	{

	TThreadId id=aThread.Id();

	TUint* p=(TUint*)&id;

	return *p;

	}

TUint ProcessId(const RProcess& aProcess)

	{

	TProcessId id=aProcess.Id();

	TUint* p=(TUint*)&id;

	return *p;

	}

GLDEF_C TInt E32Main()

	{

	RThread().SetPriority(EPriorityAbsoluteHigh);

	RFs fs;

	TInt r=fs.Connect();

	if (r!=KErrNone)

		User::Panic(_L("THRDLIST FS"),r);

	RFile file;

	r=file.Open(fs,KFileName,EFileWrite);

	if (r==KErrNotFound)

		r=file.Create(fs,KFileName,EFileWrite);

	if (r==KErrNone)

		{

		TInt p=0;

		r=file.Seek(ESeekEnd,p);

		}

	if (r!=KErrNone)

		User::Panic(_L("THRDLIST FILE"),r);

	TTime now;

	now.HomeTime();

	TBuf<1024> buf;

	TDateTime dt=now.DateTime();

	buf.Format(_L("Time %02d:%02d:%02d:%06d Date %02d/%02d/%04d\n"),dt.Hour(),dt.Minute(),dt.Second(),dt.MicroSecond(),dt.Day()+1,dt.Month()+1,dt.Year());

	r=file.Write(buf);

	if (r!=KErrNone)

		User::Panic(_L("THRDLIST WRITE"),r);

	TFindThread ft(KLitAsterisk);

	TFullName fn;

	while (ft.Next(fn)==KErrNone)

		{

		RThread t;

		r=t.Open(ft);

		TExitType exitType=EExitKill;

		TInt exitReason=0;

		TBuf<32> exitCat;

		TFullName procName;

		TUint tid=0xffffffff;

		TUint pid=0xffffffff;

		SArmRegSet regs;

		Mem::FillZ(&regs,sizeof(regs));

		TPckg<SArmRegSet> regPckg(regs);

		if (r==KErrNone)

			{

			t.Context(regPckg);

			exitType=t.ExitType();

			exitReason=t.ExitReason();

			exitCat=t.ExitCategory();

			tid=ThreadId(t);

			RProcess p;

			r=t.Process(p);

			if (r==KErrNone)

				{

				procName=p.FullName();

				pid=ProcessId(p);

				p.Close();

				}

			}

		else

			fn=KLitProblem;

		buf.Format(_L("Thread %S (id=%d) in process %S (id=%d)\n"),&fn,tid,&procName,pid);

		file.Write(buf);

		buf.Format(_L("Exit info %d,%d,%S\n"),exitType,exitReason,&exitCat);

		file.Write(buf);

		buf.Format(_L("  R0=%08x  R1=%08x  R2=%08x  R3=%08x\n"),regs.iR0,regs.iR1,regs.iR2,regs.iR3);

		file.Write(buf);

		buf.Format(_L("  R4=%08x  R5=%08x  R6=%08x  R7=%08x\n"),regs.iR4,regs.iR5,regs.iR6,regs.iR7);

		file.Write(buf);

		buf.Format(_L("  R8=%08x  R9=%08x R10=%08x R11=%08x\n"),regs.iR8,regs.iR9,regs.iR10,regs.iR11);

		file.Write(buf);

		buf.Format(_L(" R12=%08x R13=%08x R14=%08x R15=%08x\n"),regs.iR12,regs.iR13,regs.iR14,regs.iR15);

		file.Write(buf);

		buf.Format(_L("CPSR=%08x DACR=%08x\n\n"),regs.iFlags,regs.iDacr);

		file.Write(buf);

		t.Close();

		}

	file.Close();

	fs.Close();

	return KErrNone;

	}