Mark most of the non-QT applications as "Out", hoping to reduce some of the clutter
# Copyright (c) 2010 Symbian Foundation Ltd.
# 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:
# Symbian Foundation - initial contribution.
#
# Contributors:
#
# Description:
# This script filters kernel trace output to the bare essentials
use strict;
my %processes;
my %threadcount;
my %instancecount;
my %originalname;
my @deathlist;
my $line;
while ($line = <>)
{
# AddThread ekern.exe::NVMem-ecc10dce to ekern.exe
# Process FLogSvr.exe Die: 0 0 Kill
# DLibrary domainSrv.exe::domainpolicy2.dll Close m=-1
# Thread MTMInit::Via Infrared Via Infrared Panic MTMInit 5
# DProcess::Rename MSexe.exe to !MsvServer
if ( $line =~ /^(AddThread |Process \S+ Die: |DLibrary |Thread |DProcess::Rename )/o)
{
if ($line =~ /^DProcess::Rename (\S+) to (\S+)/o)
{
my $oldname = $1;
my $process = $2;
printf "Renaming %s (%d,%d) to %s\n", $oldname, $processes{$oldname}, $threadcount{$oldname}, $process;
$processes{$process} = $processes{$oldname};
$threadcount{$process} = $threadcount{$oldname};
$instancecount{$process} = $instancecount{$oldname};
$originalname{$process} = $oldname;
delete $processes{$oldname};
delete $threadcount{$oldname};
}
if ($line =~ /^AddThread (\S+)::(\S+) to (\S+)$/o)
{
my $process = $1;
my $thread = $2;
if ($thread eq "Main" || $thread eq "Null")
{
# New process created
$processes{$process} = $.;
$threadcount{$process} = 0;
}
$threadcount{$process} += 1;
if (!defined $instancecount{$process})
{
$instancecount{$process} = 0;
}
$instancecount{$process} += 1;
}
print "$.: $line";
if ($line =~ /^Process (\S+) Die: (.*)$/o)
{
my $process = $1;
my $details = $2;
my $summary = sprintf "#%d, %d threads, lifetime %d-%d",
$instancecount{$process},$threadcount{$process},$processes{$process},$.;
print "\t$process: $summary\n";
delete $processes{$process};
delete $threadcount{$process};
chomp $line;
push @deathlist, sprintf "%7d\t%-20s %s, died %s", $., $process, $summary, $details;
}
next;
}
# Initiating transition to state 0000.ffff.
# R:\sf\os\devicesrv\sysstatemgmt\systemstatemgr\cmd\src\ssmcommandbase.cpp 135: Completing command with errorcode 0
# ***** Execute cmd no. 11 without a delay
# Starting : Z:\sys\bin\splashscreen.exe with arguments : and Execution behaviour : 1
if ( $line =~ /^(Initiating transition |\*\*\*\*\* |Starting : )/o)
{
print "SSM: $line";
next;
}
if ($line =~ /^(MODE_USR:)/o)
{
# it's crashed
print $line, <>;
last;
}
}
printf "\n\nActive processes (%d):\n", scalar keys %processes;
foreach my $process (sort keys %processes)
{
printf "%-25s\t%d threads, created at line %d\n", $process, $threadcount{$process}, $processes{$process};
}
printf "\n\nDead processes (%d)\n", scalar @deathlist;
print join("\n", sort @deathlist, "");