#

 # 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";

 }