# Copyright (c) 2005-2009 Nokia Corporation and/or its subsidiary(-ies).

# Copyright (c) 2005-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:

# To Do:

# - excludeByAddr{} and multiple objects using same memory address ?

# - distinguish between threads for context, eg $lastDispatchDestination

# parselog.pl [<arguments>] <log file>

# Arguments:

# -x <ini file>		Specify ini file containing, amongst other things, names of classes and/or messages

# to exclude.  Contains sections named "[ExcludeClass]", "[ExcludeMessage]",

# "[ExcludeShortName]" and "[ExcludeIpc]" each followed by the names

# to exclude, one per line.  Note that "ExcludeShortName" section refers

# to the shortened class name as displayed on the output, whereas "ExcludeClass"

# refers to original full class names.  Also contains a "[MessageArguments]" section

# for describing which arguments to display for specified messages.

# -p			Include posted messages in the output as well as received messages

# -X<n>			Exclude certain information from the display.  <n> is a decimal number which

# is composed of one or more of the following values logical-or'ed together:

# 1	exclude activities being started

# 2	exclude activity transitions

# 4	exclude parking+unparking

# 8	mark source .LOG line milestones in left column

# -s<n>			Include additional information.  <n> is a decimal number which

# is composed of one or more of the following values logical-or'ed together:

# 1	include client IPC requests

# 2	include client IPC completions (async requests only)

# 4	include ESOCK session creation

# 8 display activity name along with each tuple line (e.g. "(IpCprNoBearer) (CoreNetStates::TSendBindTo, CoreNetStates::TAwaitingBindToComplete)")

# 16 display AddClient/RemoveClient operations

use strict;

require 'getopts.pl';

#

# Internal Options

#

# BUG BEWARE: A timestamp or milestone displayed on lefthand side overwrites any fast count delta that would have been displayed there

my $fastCount = 0;	# Add fast count delta on lefthand side.

my $globalIndex = 1;

my $lifeStage = 0;	# 0 = not running or shutting down, 1 = during boot, 2 = main phase

### to get 1st line of latest log: type log.txt | perl -e "while(<>){if(/^#Logging started/){$a=$.;print $a.' '}};print $a"

#

# objectNameParse is an array of hashes used to shorten class names and specify left-to-right

# object placement order.  It is an array of:

#

# { SubString => <sub-string>, Replacement =>  <sub-string replacement>, Order => <order> }

#

# For each object name, the array is scanned.  Any occurrences of <sub-string> are

# replaced with <sub-string replacement>.  The first non-zero value of <order> is taken

# to be the placement order.

#

# Note that order of hashes within the array is important - for example, "ConnectionProvider" must appear after all

# entries that specify sub-strings that themselves contain the string "ConnectionProvider".

my @objectNameParse;

#

# Variables/constants concerned with Arguments file.

#

use constant ArgumentSignedDecimal => 0;

use constant ArgumentNode => 1;

my %arguments;

# Support for AddClient/RemoveClient

my %clients;

my %clientTypeToDirection = ( "100" => "<", "200" => "^", "400" => "v", "800" => ">");

# Support for EThreadIdentification

my $pendingProcessCreate;

my %NThreadToName;

my %DProcessToName;

my %processUsingESock = ( "DhcpServ" => 1, "TE_RConnectionSuite" => 1, "dnd" => 1 );

my $sessionGenerationCount = 1;

my %uniqueProcessName;

my $logline = 1;

my $mileStoneInterval = 250;

my $lastMileStone = 1;

my $lastDispatchDestination;

my $excludeAllSingleTuples;

my $lastTimestamp;

my $lastFastCount;

my %excludeByAddr;

my %excludeMessage;

my %excludeClass;

my %excludeShortName;

my %excludeSingleTuple;

my %activityNode;

my %activityName;

my %msgAddrToIpc;

my %msgAddrToExe;

my %symtab;

my %excludeIpc;

my %uniqueNames;

my %deadList;

my %subSessTab;	# maps subsession addr to node addr

my @notableText;

my @mangled;

readIniFile();

while (<>) {

	if(!($opt_X & 8) && ($logline - $lastMileStone) > $mileStoneInterval)

	{

		$lastMileStone += $mileStoneInterval;

		print "l #$lastMileStone\n";

	}

	print stderr "WARNING: Probable deleted heap at $logline:\n$_\n" if(m/-555819298|dededede/i);

	print stderr "WARNING: Probable uninitialised stack at $logline:\n$_\n" if(m/-858993460|cccccccc|690563369|29292929/i);

#OLD:

#esock	Mesh	a	47	W6: TCFSignatureBase:	DispatchL(): Sender=0c181b9c, Recipient=0c181b9c, Message=ECFStateChange, Activity=ECFActivityNull [0000] 1000,0

#NEW:

#12362,194,2,3745950947,0,0x00a1c488,ENodeMessages: [STARTBLOCK=TransportReceiver::DispatchMessage]  aSender:  [Address=[iPtr=0x0d9fa138] ]  aRecipient:  [Address=[iPtr=0x0db79148] [iNodeCtx=ActivityNoBearer] ]  aMessage:  [Signature=TSigAddrUpdate] [iMessageId=0x10285a57:DataClientRouted] [iAddrUpdate=[iSrcSockAddr=] [iDestSockAddr=] [iProtocolId=0x00000011] [iIapId=0x00000001] ]  [ENDBLOCK=TransportReceiver::DispatchMessage]

	if (/.*BLOCK=Dispatch/) {

		doFastCount() if ($fastCount);

		parsePostDispatchMessageLine("BLOCK=Dispatch", "r");

	}

#OLD:

#esock	DCMsgs	a	47	W6: RClientII:	PostMessage(): Sender=0c18241c, Recipient=0c182374, Message=ECFSelect, Activity=ECFActivityNull [0000]

#NEW:

#5072,194,2,4009228503,0,0x00a1b628,ENodeMessages: [STARTBLOCK=TransportSender::PostMessage]  aPostFrom:  [Address=[iPtr=0x0d925558] ]  aPostTo:  [Address=[iPtr=0x0d925558] ]  args:  [Signature=TSigStateChange] [Message=StateChange] [iMessageId=[iMessageId=EStateChange] [iRealmId=0x10285a56] ] [iStateChange=[iStage=0x000009c5] [iError=0x00000000] ]  [ENDBLOCK=TransportSender::PostMessage]

	elsif ($opt_p == 1 && (/.*BLOCK=Post/)) {

		doFastCount() if ($fastCount);

		parsePostDispatchMessageLine("BLOCK=Post", "p");

		}

#OLD:

#CFNode	MetaConn	a	47	W6: CIpTierManagerFactory 0c1822d0:	created [MCFNode 0c1822d8] [96]

#NEW:

#250,194,1,1864213751,0,0x00f3e114,ENodeMessages: CFactoryContainerNode 0e571204:	created [MNode 0e571220] [44]

	elsif (/.*created \[ANode=0x([0-9A-Fa-f]{8})\]/) {

		my ($name,$realaddr,$nodeaddr) = m/(\w+) ([0-9A-Fa-f]{8}):\tcreated \[ANode=0x([0-9A-Fa-f]{8})\]/;

		$realaddr =~ s/^0x//;

		$nodeaddr =~ s/^0x//;

		my $doExclude = 1;

		if (! defined $excludeClass{$name})

			{

			my $order = parseObjectName(\$name);

			$name = uniquifyName($name);

			if (!defined $excludeShortName{$name})

				{

#				if (defined $symtab{$nodeaddr})

#					{

#					print "**** SYMTAB already defined - $nodeaddr, $name, $symtab{$nodeaddr}\n";

#					}

				$symtab{$nodeaddr} = $name;

				doFastCount() if ($fastCount);

				print "oc $name $order $nodeaddr\n";

				print "t $name ($nodeaddr created)\n";

				$doExclude = 0;

				delete $deadList{$nodeaddr} if defined($deadList{$nodeaddr});

				$subSessTab{$realaddr} = $nodeaddr;

				}

			}

		if ($doExclude)

			{

			$excludeByAddr{$nodeaddr} = 1;

			}

		}

	elsif (/:\t~.*\[ANode=0x([0-9A-Fa-f]{8})\]/) {

		my ($name,$realaddr,$nodeaddr) = m/(\w+) ([0-9A-Fa-f]{8}):\t~.*\[ANode=0x([0-9A-Fa-f]{8})\]/;

		$realaddr =~ s/^0x//;

		$nodeaddr =~ s/^0x//;

		if (! defined $excludeClass{$name} && defined($symtab{$nodeaddr}) && !defined($deadList{$nodeaddr}))

			{

			$deadList{$nodeaddr} = 1;

			$name = $symtab{$nodeaddr};

			doFastCount() if ($fastCount);

			print "od $name $nodeaddr\n";

			print "t $name ($nodeaddr destroyed)\n";

			delete $subSessTab{$realaddr};

			}

		}

	elsif (/^#Time = (.*)$/)

		{

		print "l $1\n";

		}

	elsif (/W0: SocketServer::InitL\(\) Done/)

		{

		print "l ^Booting\n";

		$lifeStage = 1;

		}

	elsif ($lifeStage == 1 && /CDealer::ProcessConfigurationComplete\(\)/)

		{

		print "l ^Booted\n";

		$lifeStage = 2;

		}

	elsif ($lifeStage == 2 && /CFUnbindMessageReceived/)

		{

		print "l ^Shutting-down\n";

		$lifeStage = 0;

		}

#1061,194,2,1212990838,0,0x00a1b488,ENodeMessages: [STARTBLOCK=Context]  CNodeActivityBase 0d922584:	StartL->starting activity Node:  [MNode=0x0d9229e0]  Sender:  [Address=[iThread=0x0006] [iPtr=0x0d922338] ]  Recipient:  [Address=[iThread=0x0006] [iPtr=0x0d9229e0] ]  aContext.iMessage:  [Signature=0x00000000:0xfdfdfdfd]  [STARTBLOCK=Activity]   [Activity=MCprControlClientJoin] [CurrentTriple=Idle]  [ENDBLOCK=Activity]  [ENDBLOCK=Context]

	elsif (/starting activity.*?\[ANode=0x([0-9A-Fa-f]{8})\].*\[Activity=(\w*)\]/)

		{

		if (!($opt_X & 1))

			{

			my $dest = $1;

			my $activity = $2;

			if ($activity eq "Undefined") {

				# An activity name of "Undefined" may mean that the non-debug macros for defining

				# the activity and triples have been used, as these do not compile-in the activity name.

				$activity = "Activity name unknown"

			}

			if (! defined $excludeByAddr{$dest})

				{

				if (m/C\w+ ([0-9a-fA-F]{8}):/) {

					my $activityAddr = $1;

					$activityNode{$activityAddr} = $dest;

					$activityName{$activityAddr} = $activity;

					# emit activity create tag

					doFastCount() if ($fastCount);

					print "ac ", objectName($dest), " $activityAddr $activity\n";

					print "t ", objectName($dest), " {0,200,0} ($activity)\n";

					}

				else {

					# OLD OLD OLD

					# Hackery - "Node=" in the "starting activity" line actually contains the

					# address of the ACFNodeBase rather than the MCFNode - the latter of which we work

					# with in this script - hence the use of $lastDispatchDestination.  However, sanity check

					# whether the two addresses are at least within 8 bytes of each other.

					#

					#if (abs(hex($dest) - hex ($lastDispatchDestination)) <= 8)

					#	{

					#	print "t ", objectName($lastDispatchDestination), " {0,200,0} ($activity)\n";

					#	}

					}

				}

			else

				{

#				print "Ignored $logline - $_\n";

				}

			}

		}

	elsif ($opt_s != 0 && (/CSockSession[\(\s]/ || /CSockSubSession\(.*\):/ || /CWorkerSubSession\(/ ||

						   /RSafeMessage\(/) || /RMessage2::Complete/)

		{

		if (($opt_s & 1) && /CSockSession\(.{8}\):\s+ServiceL, Message\((.{8})\) \[(\w+)\] "(.*)" int3=(.{8})/)

			{

			my $msgAddr = $1;

			my $exe = $3;

			my $ipc = $2;

			my $subSessNode = $subSessTab{$4};

			$ipc .= "($symtab{$subSessNode})" if defined $subSessNode;	# append the name of the node

			$msgAddrToIpc{$msgAddr} = $ipc;

			$msgAddrToExe{$msgAddr} = $exe;

			if (! excludeIpc($ipc))

				{

				$exe = truncateExeName($exe);

				$exe = uniqueProcessName($exe);

				# adding "!" to beginning of object name forces the parseseq.pl script to display

				# the object despite the fact that it would normally hide objects from the final display

				# that have no actual messages to/from them.

				doFastCount() if ($fastCount);

				print "pn line $logline\n";

				print "t !$exe $ipc\n";

				}

			}

		elsif (($opt_s & 4) && /CSockSession\s*(.{8}):\s+ConstructL.*"(.*)"/)

			{

			# W0: CSockSession 0be839a8:	ConstructL() pid=4c "Te_Cap_RConnDHCP_sc.exe"

			my $session = $1;

			my $exe = $2;

			$exe = truncateExeName($exe);

			$exe = uniqueProcessName($exe);

#			print "oc !$exe\n";

			if ($opt_s & 32) {

				print "ac !$exe $session Session-$session-$sessionGenerationCount\n";

				++$sessionGenerationCount;

				}

			print "t !$exe CSockSession $session\n";

			$processUsingESock{$exe} = 1;

			}

		elsif (($opt_s & 4) && /~CSockSession\s*\((.{8})\):\s*"(.*)"/)

			{

			#W0: ~CSockSession(00682bf0):	"Te_RConnectionSuite.exe"

			my $session = $1;

			my $exe = $2;

			$exe = truncateExeName($exe);

			$exe = uniqueProcessName($exe);

			print "t !$exe ~CSockSession $session\n";

			if ($opt_s & 32) {

				print "ad $session\n";

				}

			}

		elsif (($opt_s & 2) &&

			(/CWorkerSubSession\(.{8}\):\s*CompleteMessage\((.{8})\) with (.+), session .{8}/ ||

#			 /ProcessMessageL, session=.{8}, RMessage2::Complete \((.{8})\) with ([-\d]+)\./ ||

			# W6: CPlayer:	ProcessMessageL, session=0be839a8, RMessage2::Complete (00de5538) with 0.

			# W0: CWorkerSubSession(0c941bc4):	CompleteMessage(00de1a6c) with -3, session 0be839a8.

			# W6: ~CESockClientActivityBase=0c941f8c, RMessage2::Complete (00de5538) with 0.

			my $msgAddr = $1;

			my $ret = $2;

			my $exe = $msgAddrToExe{$msgAddr};

			my $ipc = $msgAddrToIpc{$msgAddr};

			if($ipc =~ /^E.+Create$/)

				{

				# For subsession creation try to add the generated name of the object (which necessarily wasn't available when the request arrived)

				my $subSessNode = $subSessTab{$4};

				$ipc .= "($symtab{$subSessNode})" if defined $subSessNode;	# append the name of the node

				}

			$exe = truncateExeName($exe);

			$exe = uniqueProcessName($exe);

			if ($ipc ne "")

				{

				doFastCount() if ($fastCount);

				print "pn line $logline\n";

				print "t !$exe $ipc = $ret\n";

				$msgAddrToIpc{$msgAddr} = "";

				$msgAddrToExe{$msgAddr} = "";

				}

			 if (/~CESockClientActivityBase.(.{8})/) {

				print "ad $1\n";

				ClearActivity($1);

				}

			}

		}

	elsif (/stray message received.*\[iMessageId=.*?:(.*)\]/i)

		{

		print "t ", objectName($lastDispatchDestination), " (STRAY $1)\n";

		}

#1077,194,2,1212991263,0,0x00a1b488,ENodeMessages: [STARTBLOCK=Context]  CNodeActivityBase 0d922584:	StartL->activity started Node:  [MNode=0x0d9229e0]  Sender:  [Address=[iThread=0x0006] [iPtr=0x0d922338] ]  Recipient:  [Address=[iThread=0x0006] [iPtr=0x0d9229e0] ]  aContext.iMessage:  [Signature=0x00000000:0xfdfdfdfd]  [STARTBLOCK=Activity]   [Activity=MCprControlClientJoin] [CurrentTriple=MCprStates::TDecrementBlockingDestoryAndAddControlClientAndSendJoinCompleteIfRequest->NULL]  [ENDBLOCK=Activity]  [ENDBLOCK=Context]

#843,195,1,1212618492,0,0x00a1b488,EMeshMachine: CNodeActivityBase:	Accept->First transition: ConnStates::TProcessStateChange->MeshMachine::TAwaitingStateChange [MNode=0x0b1ff948]

#897,194,2,1212884309,0,0x00a1b488,ENodeMessages: [STARTBLOCK=Activity]  CNodeActivityBase 0d921eb8:	Next->transition happened [MNode=0x0b1ff948] [Activity=ConnectionStart] [CurrentTriple=ConnStates::TSelectMetaPlane->TECABState<CoreNetStates::TAwaitingBindTo>]  [ENDBLOCK=Activity]

#1237,195,1,2340065279,0,0x00dfff38,EMeshMachine: CNodeActivityBase 0cb427ec:	Next->match [ANode=0x0cb42c48] [Activity=MCprBinderRequest] [Triple=PRStates::TCreateDataClient->CoreNetStates::TAwaitingDataClientJoin]

	elsif (($opt_X & 2) == 0 && (/(StartL)->activity started.*?\[ANode=0x([0-9a-f]{8})\].*\[Activity=(\S*)\].*\[Triple=(\S*)\]/ ||

				     /(Accept)->first transition.*?\[ANode=0x([0-9a-f]{8})\].*\[Activity=(\S*)\].*\[Triple=(\S*)\]/) ||

				     /(Next)->transition\s*\[ANode=0x([0-9a-f]{8})\].*\[Activity=(\S*)\].*\[Triple=(\S*)\]/ ||

					 /(Next)->match\s*\[ANode=0x([0-9a-f]{8})\].*\[Activity=(\S*)\].*\[Triple=(\S*)\]/)

		{

		# $2 = ANode, $3 = Activity, $4 = Triple

		my $matchType = $1;

		my $text;

		my $objAddr;

		my $prefix = "";

		if ($matchType eq "Accept") {

			if ($excludeAllSingleTuples || $excludeSingleTuple{$3}) {

				# skip any excluded single tuples

				next;

			}

			$objAddr = $2;

			$text = $4;

			$prefix = "($3) ";

			# for first transitions, the normal activity creation/idle log lines don't appear

			# so prefix the transition line with the activity name: "activity: (transition, state)"

		} else {

			$objAddr = $2;

			$text = $4;

			if ($opt_s & 8) {

				$prefix = "($3) ";

			}

		}

		if ($text ne "" && $text ne "Idle" && $text ne "Undefined")

			{

			$text =~ s/->/, /;

			if ($objAddr ne "")

				{

				doFastCount() if ($fastCount);

				print "t ", objectName($objAddr), " $prefix", "($text)\n";

				}

			else

				{

				print "t ", objectName($lastDispatchDestination), " $prefix","($text)\n";

				}

			}

		if (m/C\w+ ([0-9a-fA-F]{8}):/) {

			my $actAddr = $1;

#			if (defined $activityToNode{$actAddr})

#				{

				# map activity address to object address for "t" tag

#				$objAddr = $activityToNode{$actAddr};

#				}

			if ($text eq "Idle" || $text =~ m/, NULL/)

				{

				print "ad $actAddr\n";

				ClearActivity($actAddr);

				}

			}

		}

#1044,195,1,322007694,0,0x00a1c5e4,EMeshMachine: CNodeActivityBase 0dbe2584:	SetIdle

#1044,195,1,322007694,0,0x00a1c5e4,EMeshMachine: CNodeActivityBase 0dbe2584:	Abort

# CAREFUL: this catches all "CNodeActivityBase" log lines not captured earlier - carefulof positioning of this!

	elsif (($opt_X & 2) == 0 && /CNodeActivityBase ([0-9a-fA-F]{8}):\s*(\S+)\s*/) {

		my $actAddr = $1;

		my $action = $2;

		doFastCount() if ($fastCount);

		if ($action eq "SetIdle") {

			print "ad $actAddr\n";

			ClearActivity($actAddr);

			}

		elsif ($action eq "Abort") {

			print "t ", objectName($activityNode{$actAddr}), " ($activityName{$actAddr}) Abort()\n";

			}

		elsif ($action =~ m/Cancel\(\)/) {

			m/iPostedToId ([0-9a-f]{8})/;

			my $postedToId = $1;

			print "t ", objectName($activityNode{$actAddr}), " ($activityName{$actAddr}) Cancel().  Posted to ", objectName($postedToId), "\n";

			}

	}

	elsif (($opt_X & 4) == 0 && /UnparkState->unparked\s+\[MNode=0x([0-9a-fA-F]{8})\].*\[Activity=(\w+)\].*\[Triple=(.*?)\]/)

 	            {

	            print "t ", objectName($1), " {50,200,50} (Unparked $2, $3)\n";

 	            }

	elsif (($opt_X & 4) == 0 && /ParkState->parked\s+\[MNode=0x([0-9a-fA-F]{8})\].*\[Activity=(\w+)\].*\[Triple=(.*?)\]/) {

	            print "t ", objectName($1), " {50,200,50} (Parked $2, $3)\n";

 	            }

	elsif (/Synchronous call:/) {

		my ($src,$dest,$msg) = m/Synchronous call: From=(\S+)\s*To=(\S+) Func=(.+)$/;

		$lastDispatchDestination = $dest;

		if ((! defined $excludeByAddr{$src}) && (! defined $excludeByAddr{$dest}) && !defined($excludeMessage{$msg}))

			{

			doFastCount() if ($fastCount);

			print "pn line $logline\n";

			print "sc \"$msg ()\" ", objectName($src), " ", objectName($dest), "\n";

			}

		}

	elsif (($opt_s & 16) && (/AddClient/ || /RemoveClient/)) {

# ... ANodeBase 00983774:	AddClientL(00982c74, flags=0000, type=0200)

		if (/ANodeBase ([0-9a-f]{8}):\s*(\w*)\(([0-9a-f]{8}), flags=([0-9a-f]{4}), type=([0-9a-f]{4})\)/) {

			my ($node,$op,$client,$flags,$type) = ($1,$2,$3,$4,$5);

			$flags =~ s/^0+(\d)/\1/;			# remove leading zeroes

			$type =~ s/^0+(\d)/\1/;				# remove leading zeroes			

			$node = objectName($node);

			$client = objectName($client);

			if ($op eq "AddClientL") {

				$op = "added";

				$clients{$node}{$client} = $type;

			}

			elsif ($op eq "RemoveClient") {

				$op = "removed";

				delete $clients{$node}{$client};

			}

			my $clientList = "";

			foreach $client (keys %{$clients{$node}}) {

				my $direction = $clientTypeToDirection{$clients{$node}{$client}};

				$clientList .= " $client$direction";

				}

			if ($clientList) {

				$clientList = ": $clientList";

				}

			print "t ", $node, " {35,60,110} (${op} client ", $client, ", flags $flags, type $type)$clientList\n";

			}

		}

	elsif (($opt_s & 32) && /EThreadIdentification/) {

		if (/Process Create:\s*\[DProcess=0x(.{8})\]/) {

			# Process Create: [DProcess=0xc8057f38]

			$pendingProcessCreate = $1;

			}

		elsif (/Process Name:\s*\[NThread=0x(.{8})\] \[DProcess=0x(.{8})\] \[Name=(.*)\]/) {

			# Process Name: [NThread=0xc805b050] [DProcess=0xc8057f38] [Name=centralrepositorysrv.exe[10202be9]0001]

			my $NThread = $1;

			my $DProcess = $2;

			my $processName = $3;

			$processName =~ s/\[[0-9a-f]{8}\][0-9a-f]{4}$//;

			$processName = truncateExeName($processName);

			if ($pendingProcessCreate && processUsingESock($processName)) {

				#print STDERR "Process Name: NThread $NThread (($NThreadToName{$NThread})), DProcess $DProcess ($processName)\n";

				$processName = createUniqueProcessName($processName);

				print "oc !$processName 0 $DProcess\n";

				print "t !$processName (Process Created)\n";

			}

			$pendingProcessCreate = "";

			$DProcessToName{$DProcess} = $processName;

			}

		elsif (/Thread Create: \[NThread=0x(.{8})\] \[DProcess=0x(.{8})\] \[Name=(.*)\]\s*$/) {

			# Thread Create: [NThread=0xc805b050] [DProcess=0xc8057f38] [Name=Main] 

			if ($3 ne "Main" && DProcessUsingESock($2)) {

				#print STDERR "Thread Create: NThread $1 ($3), DProcess $2 ($DProcessToName{$2})\n";

				my $name = $DProcessToName{$2};

				if ($name) {

					print "t !$name (Thread \"$3\" Created)\n";

					}

				}

			$NThreadToName{$1} = $3;

			}

		elsif (/Thread Destroy: \[NThread=0x(.{8})\] \[DProcess=0x(.{8})\]/) {

			# Thread Destroy: [NThread=0xc8057140] [DProcess=0xc80561d0] 

			if (DProcessUsingESock($2)) {

				#print STDERR "Thread Destroy: NThread $1 ($NThreadToName{$1}), DProcess $2 ($DProcessToName{$2})\n";

				my $processName = $DProcessToName{$2};

				my $threadName = $NThreadToName{$1};