// 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;

 	}