--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/kerneltest/e32test/misc/thrdlist.cpp	Mon Oct 19 15:55:17 2009 +0100
@@ -0,0 +1,140 @@
+// 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;
+	}
+