--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/kerneltest/e32test/system/execinfo.pl	Mon Oct 19 15:55:17 2009 +0100
@@ -0,0 +1,140 @@
+#
+# Copyright (c) 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:
+#
+
+my $state=0;
+my @execs;
+my @fastexecs;
+my @params;
+my $npar;
+my $fast;
+my $swinum;
+while (<STDIN>) {
+	if ($state==0) {
+		if (/^(.*?)__NAKED__(.*?)\((.*)\)\s*$/) {
+			@params=split(',' , $3);
+			$npar=scalar(@params);
+			$state=1;
+		}
+	} elsif ($state==1) {
+		if (/^\s*\{\s*$/) {
+			$state=2;
+		}
+	} elsif ($state==2) {
+		if (/^\s*asm\s*\(\s*\"\s*swi(.*?)(EExec\w+)/) {
+			$swinum=$2;
+			$fast=0;
+			$state=3;
+		} elsif (/^\s*asm\s*\(\s*\"\s*swi(.*?)(EFastExec\w+)/) {
+			$swinum=$2;
+			$fast=1;
+			$state=3;
+		}
+	} elsif ($state==3) {
+		if (/^\s*\}\s*$/) {
+			$state=0;
+			my %info;
+			$info{'num'}=$swinum;
+			$info{'npar'}=$npar;
+			$info{'par1'}=$params[0] if ($npar>0);
+			$info{'par2'}=$params[1] if ($npar>1);
+			$info{'par3'}=$params[2] if ($npar>2);
+			$info{'par4'}=$params[3] if ($npar>3);
+			push @fastexecs, \%info if ($fast);
+			push @execs, \%info unless ($fast);
+		}
+	}
+}
+
+my $nsx=scalar(@execs);
+my $nfx=scalar(@fastexecs);
+
+print "Number of fast execs = $nfx\n";
+print "Number of slow execs = $nsx\n";
+
+my $i=0;
+print "\n\nstatic const SFastExecInfo[]=\n\t{\n";
+foreach (@fastexecs) {
+	my $infoRef=$_;
+	print "\t\t{\n";
+	print "\t\t$$infoRef{'num'},\n";
+	print "\t\t$$infoRef{'npar'},\n";
+	if ($$infoRef{'par1'}) {
+		print "\t\t$$infoRef{'par1'},\n";
+	} else {
+		print "\t\tNO_PAR,\n";
+	}
+	if ($$infoRef{'par2'}) {
+		print "\t\t$$infoRef{'par2'},\n";
+	} else {
+		print "\t\tNO_PAR,\n";
+	}
+	if ($$infoRef{'par3'}) {
+		print "\t\t$$infoRef{'par3'},\n";
+	} else {
+		print "\t\tNO_PAR,\n";
+	}
+	if ($$infoRef{'par4'}) {
+		print "\t\t$$infoRef{'par4'},\n";
+	} else {
+		print "\t\tNO_PAR\n";
+	}
+	if (++$i==$nfx) {
+		print "\t\t}\n";
+	} else {
+		print "\t\t},\n";
+	}
+}
+print"\t};\n";
+
+$i=0;
+print "\n\nstatic const SSlowExecInfo[]=\n\t{\n";
+foreach (@execs) {
+	my $infoRef=$_;
+	print "\t\t{\n";
+	print "\t\t$$infoRef{'num'},\n";
+	print "\t\t$$infoRef{'npar'},\n";
+	if ($$infoRef{'par1'}) {
+		print "\t\t$$infoRef{'par1'},\n";
+	} else {
+		print "\t\tNO_PAR,\n";
+	}
+	if ($$infoRef{'par2'}) {
+		print "\t\t$$infoRef{'par2'},\n";
+	} else {
+		print "\t\tNO_PAR,\n";
+	}
+	if ($$infoRef{'par3'}) {
+		print "\t\t$$infoRef{'par3'},\n";
+	} else {
+		print "\t\tNO_PAR,\n";
+	}
+	if ($$infoRef{'par4'}) {
+		print "\t\t$$infoRef{'par4'},\n";
+	} else {
+		print "\t\tNO_PAR\n";
+	}
+	if (++$i==$nsx) {
+		print "\t\t}\n";
+	} else {
+		print "\t\t},\n";
+	}
+}
+print"\t};\n";
+
+foreach (@execs) {
+	print "$$_{'num'}\n";
+}
+