#
# Copyright (c) 2006-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: 
# changes the paging/unpaged configuration of binaries a generated
# OBY file according to the list in configpaging.lst
# use
# externaltool=configpaging.pm
# in oby file to enable
# use
# tool=configpaging \epoc32\rom\myconfigpaging.lst
# to change the default configpaging.lst
#

package configpaging;

use strict;

our @EXPORT=qw(
        configpaging_info
		configpaging_initialize
        configpaging_single
        configpaging_multiple
);
use Exporter;
our @ISA=qw(Exporter);

#
# Initialisation
#
use constant CONSTANT_UNPAGED => "unpaged";
use constant CONSTANT_PAGED => "paged";
use constant CONSTANT_UNPAGEDCODE => "unpagedcode";
use constant CONSTANT_PAGEDCODE => "pagedcode";
use constant CONSTANT_UNPAGEDDATA => "unpageddata";
use constant CONSTANT_PAGEDDATA => "pageddata";
use constant CONSTANT_CONFIG_PATH => "epoc32\\rom\\configpaging\\";
my $epocroot = $ENV{EPOCROOT};
my $configlist = $epocroot.CONSTANT_CONFIG_PATH."configpaging.cfg";


# routine to provide information about the tool
sub configpaging_info ()
{
    my %toolinfo;
    $toolinfo{'name'} = "configpaging";
    $toolinfo{'invocation'} = "InvocationPoint2";
	$toolinfo{'initialize'} = \&configpaging_initialize;
    $toolinfo{'multiple'} = \&configpaging_multiple;
    $toolinfo{'single'} = \&configpaging_single;
    return \%toolinfo;
}

sub configpaging_initialize
	{
	my ($cmdLine) = @_;
	if (defined ($cmdLine))
		{
		print "configpaging.pm: Initializing with $cmdLine\n";
		$configlist = $epocroot.CONSTANT_CONFIG_PATH.$cmdLine;
		}
	}

# routine to handle multiple invocation
sub configpaging_multiple
{
    my ($line) = @_;
	my @args=split /[=\s]/, $line;
	$configlist=$args[2];
    return "REM configpaging.pm: Using $configlist";
}


sub isobystatement
{
	my ($li) = @_;
	if ($li =~ /^\s*data(=|\s+)/i) { return 1;}
	if ($li =~ /^\s*file(=|\s+)/i) { return 1;}
	if ($li =~ /^\s*dll(=|\s+)/i) { return 1;}
	if ($li =~ /^\s*secondary(=|\s+)/i) { return 1;}

	return 0;
}

#codepaging is codepagingoverride setting
#datapaging is datapagingoverride setting
#listref is ref to an associated array keyed by <executable regex>, 
#and the value is another associated array keyed (un)?paged(code|data)?
#the value is 1 if set, undeffed if not.
sub readConfigFile
	{
	my ($codepagingref, $datapagingref, $listref, $configfilename) = @_;
	my $filecodepaging = "";
	my $filedatapaging = "";

	local *FILE; # need a filehandle local to this invocation
	if(!open FILE, $configfilename)
		{
		print ("Configpaging Warning: Can't open $configfilename\n");
		return;
		}

	# parse the configfilename
	# insert the files listed into the listref and set the paging info accordingly.
	while (my $line=<FILE>)
		{
		if ($line !~ /\S/ ) { next; }
		if ($line =~ /^\s*#/ ) { next; }
		chomp $line;
		if ($line =~ /^\s*(code|data)?pagingoverride=(.*)\s*/i) {
			if ($1 eq undef) {
				if (lc($2) eq "defaultpaged") {
					$$codepagingref = CONSTANT_PAGED;
					$$datapagingref = CONSTANT_PAGED;
				} elsif (lc($2) eq "defaultunpaged") {
					$$codepagingref = CONSTANT_UNPAGED;
					$$datapagingref = CONSTANT_UNPAGED;
				} else {
					print ("Configpaging Warning: invalid pagingoverride setting:$2\n");
				}
			} elsif (lc($1) eq "code") {
				if (lc($2) eq "defaultpaged") {
					$$codepagingref = CONSTANT_PAGED;
				} elsif (lc($2) eq "defaultunpaged") {
					$$codepagingref = CONSTANT_UNPAGED;
				} else {
					print ("Configpaging Warning: invalid codepagingoverride setting:$2\n");
				}
			} elsif ($1 eq "data") {
				if (lc($2) eq "defaultpaged") {
					$$datapagingref = CONSTANT_PAGED;
				} elsif (lc($2) eq "defaultunpaged") {
					$$datapagingref = CONSTANT_UNPAGED;
				} else {
					print ("Configpaging Warning: invalid datapagingoverride setting:$2\n");
				}
			} else {
				print ("configpaging Warning: invalid keyword: $1" . "pagingoverride\n");
			}
		}
		elsif ($line =~ /^\s*(un)?paged(code|data)?(\s+(un)?paged(code|data)?)?:/i ) {
			$filecodepaging = "";
			$filedatapaging = "";
			if ($1 eq undef) {
				if ($2 eq undef) {
					$filecodepaging = CONSTANT_PAGED;
					$filedatapaging = CONSTANT_PAGED;
				}elsif (lc($2) eq "code") {
					$filecodepaging = CONSTANT_PAGED;
				} elsif(lc($2) eq "data") {
					$filedatapaging = CONSTANT_PAGED;
				} else {
					print ("Configpaging Warning: unrecognized line:$line\n");
				}
			} elsif (lc($1) eq "un") {
				if ($2 eq undef) {
					$filecodepaging = CONSTANT_UNPAGED;
					$filedatapaging = CONSTANT_UNPAGED;
				}elsif (lc($2) eq "code") {
					$filecodepaging = CONSTANT_UNPAGED;
				} elsif(lc($2) eq "data") {
					$filedatapaging = CONSTANT_UNPAGED;
				} else {
					print ("Configpaging Warning: unrecognized line:$line\n");
				}
			} else {
				print ("Configpaging Warning: unrecognized line:$line\n");
			}
			if ($3 ne undef){		
				if ($4 eq undef) {
					if ($5 eq undef) {
						$filecodepaging = CONSTANT_PAGED;
						$filedatapaging = CONSTANT_PAGED;
					}elsif (lc($5) eq "code") {
						$filecodepaging = CONSTANT_PAGED;
					} elsif(lc($5) eq "data") {
						$filedatapaging = CONSTANT_PAGED;
					} else {
						print ("Configpaging Warning: unrecognized line:$line\n");
					}
				} elsif (lc($4) eq "un") {
					if ($5 eq undef) {
						$filecodepaging = CONSTANT_UNPAGED;
						$filedatapaging = CONSTANT_UNPAGED;
					}elsif (lc($5) eq "code") {
						$filecodepaging = CONSTANT_UNPAGED;
					} elsif(lc($5) eq "data") {
						$filedatapaging = CONSTANT_UNPAGED;
					} else {
						print ("Configpaging Warning: unrecognized line:$line\n");
					}
				} else {
					print ("Configpaging Warning: unrecognized line:$line\n");
				}
			}
		}
		elsif ($line =~ /^\s*include\s*\"(.*)\"/i)
			{ readConfigFile($codepagingref, $datapagingref, $listref, $epocroot.CONSTANT_CONFIG_PATH.$1); } # go recursive
		elsif ($line =~ /\s*(\S+)(\s+(un)?paged(code|data)?(\s+(un)?paged(code|data)?)?)?/i){
			my %element;
			$element{code} = $$codepagingref;
			$element{data} = $$datapagingref;
			if ($2 eq undef){
				if ($filecodepaging ne "") {
					$element{code} = $filecodepaging;
				}
				if ($filedatapaging ne "") {
					$element{data} = $filedatapaging;
				}
			} else {
				if ($4 eq undef){
					if ($3 eq undef) {
						$element{code} = CONSTANT_PAGED; 
						$element{data} = CONSTANT_PAGED; 
					} elsif (lc($3) eq "un") {
						$element{code} = CONSTANT_UNPAGED; 
						$element{data} = CONSTANT_UNPAGED; 
					}
				} elsif (lc($4) eq "code") {
					if ($3 eq undef) {
						$element{code} = CONSTANT_PAGED;
					} elsif (lc($3) eq "un") {
						$element{code} = CONSTANT_UNPAGED;
					}
				} elsif (lc($4) eq "data") {
					if ($3 eq undef) {
						$element{data} = CONSTANT_PAGED;
					} elsif (lc($3) eq "un") {
						$element{data} = CONSTANT_UNPAGED;
					}
				} else {
					print ("Configpaging Warning: unrecognized attribute in line: $line\n");
		}
				if ($5 ne undef){
					if ($7 eq undef){
						if ($6 eq undef) {
							$element{code} = CONSTANT_PAGED; 
							$element{data} = CONSTANT_PAGED; 
						} elsif (lc($6) eq "un") {
							$element{code} = CONSTANT_UNPAGED; 
							$element{data} = CONSTANT_UNPAGED; 
						}
					} elsif (lc($7) eq "code") {
						if ($6 eq undef) {
							$element{code} = CONSTANT_PAGED;
						} elsif (lc($6) eq "un") {
							$element{code} = CONSTANT_UNPAGED;
						}
					} elsif (lc($7) eq "data") {
						if ($6 eq undef) {
							$element{data} = CONSTANT_PAGED;
						} elsif (lc($6) eq "un") {
							$element{data} = CONSTANT_UNPAGED;
						}
					} else {
						print ("Configpaging Warning: unrecognized attribute in line: $line\n");
					}
				}
			}	
			$$listref{$1} = \%element;
		} else {
			print ("ConfigPaging Warning: unrecognized line:$line\n");
		}
	}
	close FILE;
	}

# routine to handle single invocation
sub configpaging_single
{
	my $codepaging="";
	my $datapaging="";
	my %list;
	my @keys;
    my ($oby) = @_;

	print "configpaging.pm: Modifying demand paging configuration using $configlist\n";
	readConfigFile(\$codepaging, \$datapaging, \%list, $configlist);
	# read the oby file that was handed to us
	# find matches between each oby line and any files  in the paged or unpaged list
	# modify the attributes of the oby line as appropriate
	my @newlines;
	my %element;
	@keys = keys %list;
	foreach my $line (@$oby)
		{
		my $codepagingadd="";
		my $datapagingadd="";
		chomp $line;
		if (isobystatement($line))
			{
			my $lcline = lc($line);
			for(my $index=@keys - 1; $index>=0; $index--) {
				my $match = $keys[$index];
				if ($lcline =~ /(\s+|\"|\\|=)$match(\s+|\"|$)/) {
					%element = %{$list{$match}};
					if ($element{code} eq CONSTANT_PAGED) {
						$codepagingadd .= " " . CONSTANT_PAGEDCODE;
					} elsif  ($element{code} eq CONSTANT_UNPAGED) {
						$codepagingadd .= " " . CONSTANT_UNPAGEDCODE;
					} 
					if ($element{data} eq CONSTANT_PAGED) {
						$datapagingadd .= " " . CONSTANT_PAGEDDATA;
					} elsif  ($element{data} eq CONSTANT_UNPAGED) {
						$datapagingadd .= " " . CONSTANT_UNPAGEDDATA;
					}
					last;
				}
			}
			if (!$codepagingadd and $codepaging) {
				$codepagingadd = " " . $codepaging . "code";
			}
			if (!$datapagingadd and $datapaging) {
				$datapagingadd = " " . $datapaging . "data";
					}
			if ($codepagingadd and !$datapagingadd){
				if ($line =~ /\b(un)?paged(data)?\b\s*$/) {
					$datapagingadd = " " . $1 . "pageddata";
				}
			} elsif ($datapagingadd and !$codepagingadd) {
				if ($line =~ /\b(un)?paged(code)?\b\s*$/) {
					$codepagingadd = " " . $1 . "pagedcode";
			}
				}
			if ($datapagingadd or $datapagingadd) {
				$line =~ s/\b(un)?paged(code|data)?\b/ /ig;
				}
			}
		push @newlines, "$line$codepagingadd$datapagingadd\n";
		}
	@$oby = @newlines;
}

1;