/*
* Copyright (c) 2009 - 2010 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: 
* @internalComponent * @released
* configpaging mainfile to do configpaging in buildrom.
*
*/

#include <boost/regex.hpp>
#include <string>
#include <iostream>
#include <map>
#include <vector>
#include <fstream>
#include <malloc.h>

using namespace std;
using namespace boost ;

typedef const char* const_str ;

static const string NULL_STRING("");
static const char CONSTANT_UNPAGED[] = "unpaged";
static const char CONSTANT_PAGED[] = "paged";
static const char CONSTANT_UNPAGEDCODE[] = "unpagedcode";
static const char CONSTANT_PAGEDCODE[]	= "pagedcode";
static const char CONSTANT_UNPAGEDDATA[] = "unpageddata";
static const char CONSTANT_PAGEDDATA[] = "pageddata";
#ifdef WIN32 
static const char CONSTANT_CONFIG_PATH[] = "epoc32\\rom\\configpaging\\";
static string epocroot("\\");
static const char SLASH_CHAR = '\\';
#else
#include <strings.h>
#define strnicmp strncasecmp
#define _alloca alloca
static const char CONSTANT_CONFIG_PATH[] = "epoc32/rom/configpaging/";
static string epocroot("/");
static const char SLASH_CHAR = '/';
#endif 
static const char CONSTANT_CONFIG_FILE[] = "configpaging.cfg" ;
#define is_undef(s)		(0 == s.length())
static const int MAJOR_VERSION = 1;
static const int MINOR_VERSION = 2;
static const int BUILD_NUMBER  = 0;
static const char COPYRIGHT[]="Copyright (c) 2010 Nokia Corporation.";
struct ListElement{  
	const_str code ;
	const_str data ;	 
}; 


static string configlist ;
static regex e0("^(file|data|dll|secondary)(=|\\s+)",regex::perl|regex::icase);
static regex e1("^(code|data)?pagingoverride=(.*)\\s*",regex::perl);
static regex e2("^(un)?paged(code|data)?(\\s+(un)?paged(code|data)?)?:",regex::perl);
static regex e3("^include\\s*\"(.*)\"",regex::perl);
static regex e4("(\\S+)(\\s+(un)?paged(code|data)?(\\s+(un)?paged(code|data)?)?)?",regex::perl);
static regex e5("\\b(un)?paged(data)?\\b\\s*$",regex::perl|regex::icase);
static regex e6("\\b(un)?paged(code)?\\b\\s*$",regex::perl|regex::icase); 
static regex e7("\\b(un)?paged(code|data)?\\b",regex::perl|regex::icase); 
//static regex e8("tool=|\\s+)",regex::perl|regex::icase);

 

static bool is_obystatement(const char* aLine) {	 
	if(!strnicmp(aLine,"file",4)|| !strnicmp(aLine,"data",4))
		aLine += 4 ;
	else if(!strnicmp(aLine,"dll",3))
		aLine += 3;
	else if(!strnicmp(aLine,"secondary",9))
		aLine += 9 ;
	else
		return false ;

	return (*aLine =='=' || *aLine == ' '|| *aLine == '\t');
 
}
static void trim(string& aStr){

	char* data = const_cast<char*>(aStr.data());
	int length = aStr.length();
	int firstIndex = 0 ;
	int lastIndex = length - 1;
	// remove ending blanks	
	while(lastIndex >= 0 && (data[lastIndex] == ' ' || data[lastIndex] == '\t')){
		lastIndex -- ;
	}

	// remove heading blanks	
	while((firstIndex < lastIndex ) && (data[firstIndex] == ' ' || data[firstIndex] == '\t')){
		firstIndex ++ ;
	}	
	lastIndex++ ;
	if(lastIndex < length){
		aStr.erase(lastIndex,length - lastIndex);
	}
	if(firstIndex > 0){
		aStr.erase(0,firstIndex);
	}
}
static void make_lower(char* aStr,size_t aLength){

	for(size_t i = 0 ; i < aLength ; i++){
		if(aStr[i] >= 'A' && aStr[i] <= 'Z')
			aStr[i] |= 0x20 ;
	}
}
static bool readConfigFile(const_str& aCodePagingRef, const_str& aDataPagingRef,
		map<string,ListElement>& aListRef, const_str aFileName ) {
	ifstream is(aFileName, ios_base::binary | ios_base::in);
	if(!is.is_open()){
		cerr<< "Can not open \""<< aFileName << "\" for reading.\n";
		return false ;
	}
	const_str filecodepaging = "";
	const_str filedatapaging = "";
	match_results<string::const_iterator> what;

	is.seekg(0,ios::end);
	size_t size = is.tellg();
	is.seekg(0,ios::beg);

	char *buf = new char[size + 1];
	is.read(buf,size);
	buf[size] = '\n' ;

	char* end = buf + size ;
	char* lineStart = buf ;
	int lfcr ;
	string line ;

	while(lineStart < end ){
		// trim left ;
		while(*lineStart == ' ' || *lineStart == '\t' ){
			lineStart++ ;
		}
		char* lineEnd = lineStart;
		while(*lineEnd != '\r' && *lineEnd != '\n'){
			lineEnd++ ;
		}
		if(*lineEnd == '\r' && lineEnd[1] == '\n')
			lfcr = 2 ;
		else
			lfcr = 1 ;

		*lineEnd = 0 ;
		// empty line or comment
		if(lineEnd == lineStart || *lineStart == '#' ){
			lineStart = lineEnd + lfcr ;
			continue ;
		}
		size_t lenOfLine = lineEnd - lineStart;
		make_lower(lineStart,lenOfLine);
		line.assign(lineStart,lenOfLine);
			
		if(regex_search(line, what, e1)){
			string r1 = what[1].str();
			string r2 = what[2].str(); 
			if(is_undef(r1)){ //if ($1 eq undef)
				if(r2 == "defaultpaged"){
					aCodePagingRef = CONSTANT_PAGED ;
				} else if(r2 == "defaultunpaged"){
					aCodePagingRef = CONSTANT_UNPAGED ;
					aDataPagingRef = CONSTANT_UNPAGED;
				}else{
					cerr << "Configpaging Warning: invalid pagingoverride setting: "<< r2 <<"\n" ;
				}
			}else if(r1 == "code"){
				if(r2 == "defaultpaged"){
					aCodePagingRef = CONSTANT_PAGED ; 
				} else if(r2 == "defaultunpaged"){
					aCodePagingRef = CONSTANT_UNPAGED ; 
				}else{
					cerr << "Configpaging Warning: invalid codepagingoverride setting: "<< r2 <<"\n" ;
				}
			}
			else if(r1 == "data" ){
				if(r2 == "defaultpaged"){
					aDataPagingRef = CONSTANT_PAGED ; 
				} else if(r2 == "defaultunpaged"){
					aDataPagingRef = CONSTANT_UNPAGED ; 
				}else{
					cerr << "Configpaging Warning: invalid datapagingoverride setting: "<< r2 <<"\n" ;
				}
			}
		}// check e1
		else if(regex_search(line, what, e2)){
			string r1 = what[1].str();
			string r2 = what[2].str();	
			string r3 = what[3].str();	
			string r4 = what[4].str();	
			string r5 = what[5].str();   
			filecodepaging = "";
			filedatapaging = "";
			if (is_undef(r1)) {
				if (is_undef(r2)) {
					filecodepaging = CONSTANT_PAGED;
				}else if (r2 == "code") {
					filecodepaging = CONSTANT_PAGED;
				} else if(r2 == "data") {
					filedatapaging = CONSTANT_PAGED;
				} else {
					cerr << "Configpaging Warning: unrecognized line: "<< lineStart << "\n";
				}
			} else if (r1 == "un"){
				if (is_undef(r2)) { //$2 eq undef
					filecodepaging = CONSTANT_UNPAGED;
					filedatapaging = CONSTANT_UNPAGED;
				}else if (r2 == "code") {
					filecodepaging = CONSTANT_UNPAGED;
				} else if(r2 == "data") {
					filedatapaging = CONSTANT_UNPAGED;
				} else {
					cerr << "Configpaging Warning: unrecognized line: "<< lineStart << "\n";
				}
			} else {
				cerr << "Configpaging Warning: unrecognized line: "<< lineStart << "\n";
			}
			if (r3.length() > 0){		//$3 ne undef
				if (is_undef(r4)) {
					if (is_undef(r5)) {
						filecodepaging = CONSTANT_PAGED;
					}else if (r5 == "code") {
						filecodepaging = CONSTANT_PAGED;
					} else if(r5 == "data") {
						filedatapaging = CONSTANT_PAGED;
					} else {
						cerr << "Configpaging Warning: unrecognized line: "<< lineStart << "\n";
					}
				} else if (r4 == "un") {
					if (is_undef(r5)) {
						filecodepaging = CONSTANT_UNPAGED;
						filedatapaging = CONSTANT_UNPAGED;
					}else if (r5 == "code") {
						filecodepaging = CONSTANT_UNPAGED;
					} else if(r5 == "data") {
						filedatapaging = CONSTANT_UNPAGED;
					} else {
						cerr << "Configpaging Warning: unrecognized line: "<< lineStart << "\n";
					}
				} else {
					 cerr << "Configpaging Warning: unrecognized line: "<< lineStart << "\n";
				}
			}
		}
		else if(regex_search(line, what, e3)){
			string filename = epocroot + CONSTANT_CONFIG_PATH;
			filename += what[1].str();
			readConfigFile(aCodePagingRef, aDataPagingRef, aListRef, filename.c_str()); 
		}
		else if(regex_search(line, what, e4)){
			string r1 = what[1].str();
			string r2 = what[2].str();	
			string r3 = what[3].str();	
			string r4 = what[4].str();	
			string r5 = what[5].str();	
			string r6 = what[6].str();	
			string r7 = what[7].str(); 
			ListElement element = {aCodePagingRef, aDataPagingRef};
			if (is_undef(r2)){ //($2 eq undef){
				if (0 != *filecodepaging){//filecodepaging ne "") 
					element.code = filecodepaging;	//$element{code} = $filecodepaging;
				}
				if ( 0 != *filedatapaging){//$filedatapaging ne "") 
					element.data = filedatapaging ;//element.data = $filedatapaging;
				}
			} else {
				if (is_undef(r4)){//$4 eq undef
					if (is_undef(r3)) {//$3 eq undef
						element.code = CONSTANT_PAGED; 
					} else if (r3 == "un") {
						element.code = CONSTANT_UNPAGED; 
						element.data = CONSTANT_UNPAGED; 
					}
				} else if (r4 == "code") {
					if (is_undef(r3)) {
						element.code = CONSTANT_PAGED;
					} else if (r3 == "un") {
						element.code = CONSTANT_UNPAGED;
					}
				} else if (r4 == "data") {
					if (is_undef(r3)) {
						element.data = CONSTANT_PAGED;
					} else if (r3 == "un") {
						element.data = CONSTANT_UNPAGED;
					}
				} else {
					cerr << "Configpaging Warning: unrecognized attribute in line: "<< lineStart << "\n";
				}
				if (r5.length() > 0){//$5 ne undef
					if (is_undef(r7)){ //$7 eq undef
						if (is_undef(r6)) { //$6 eq undef
							element.code = CONSTANT_PAGED; 
						} else if (r6 == "un") {
							element.code = CONSTANT_UNPAGED; 
							element.data = CONSTANT_UNPAGED; 
						}
					} else if (r7 == "code") {
						if (is_undef(r6)) {
							element.code = CONSTANT_PAGED;
						} else if (r6 == "un") {
							element.code = CONSTANT_UNPAGED;
						}
					} else if (r7 == "data") {
						if (is_undef(r6)) {
							element.data = CONSTANT_PAGED;
						} else if (r6 == "un") {
							element.data = CONSTANT_UNPAGED;
						}
					} else {
						cerr << "Configpaging Warning: unrecognized attribute in line: "<< lineStart << "\n";
					}
				}
			}	
			//$$listref{$1} = \%element;
			aListRef.insert(pair<string,ListElement>(r1,element));
		}
		lineStart = lineEnd + lfcr ;
	}

	delete []buf ;
	is.close(); 
	
	return true ;
}

static bool match_icase(const string& a, const string& b){
	int la = a.length();
	int lb = b.length();
	char *copyOfA = (char*)_alloca(la+2);
	*copyOfA = ' ';
	copyOfA++ ;
	memcpy(copyOfA ,a.c_str(),la);
	copyOfA[la] = 0;
	char* end = &copyOfA[la];
	make_lower(copyOfA,la);
	while(copyOfA < end){
		char *found = strstr(copyOfA,b.c_str()); 
		if(0 == found)
			return false ;
		if((found[-1] == ' ' || found[-1] == '\\'|| found[-1] == '/'|| found[-1] == '\t' || found[-1] == '"'|| found[-1] == '=') &&
					( found[lb] == ' '|| found[lb] == '\t' || found[lb] == '"'|| found[lb] == '\0'))
			return true ;
		copyOfA = found + lb ;		 
	}

	return false ;
}

static void configpaging_single(){

	const_str codepaging="";
	const_str datapaging="";
	map<string, ListElement> list ;
	vector<string> keys ;//my @keys;
    string line ;

	cerr << "configpaging.exe: Modifying demand paging configuration using "<< configlist <<"\n";
	readConfigFile(codepaging, datapaging, list, configlist.c_str());
	match_results<string::const_iterator> what;
	string codepagingadd ,datapagingadd ;
	while(true){
		getline(cin,line); 		 
		if(cin.eof()) break ;
		if(line == ":q") break ;
		trim(line);
		const char* lineData = line.data();
		if(*lineData == '#' ){
			cout << lineData << "\n" ;
			continue ;
		}		 
		int length = line.length();
		if( length > 2){
			//check rem 			
			if((lineData[0] == 'R' || lineData[0] == 'r' ) && (lineData[1] == 'E' || lineData[1] == 'e' ) && (lineData[2] == 'M' || lineData[2] == 'm' )){
				cout << lineData << "\n" ;
				continue ;
			}
		}
		codepagingadd = "";
		datapagingadd = ""; 

		if(is_obystatement(lineData)){
			for( map<string,ListElement>::iterator it  = list.begin() ; it != list.end() ; it++){
				if(match_icase(line,it->first) ){
					if (it->second.code == CONSTANT_PAGED ){ 
						codepagingadd += " " ;
						codepagingadd += CONSTANT_PAGEDCODE;
					} else if (it->second.code == CONSTANT_UNPAGED) {  
						codepagingadd += " " ;
						codepagingadd += CONSTANT_UNPAGEDCODE;
					} 
					if (it->second.data == CONSTANT_PAGED) {  
						datapagingadd += " " ;
						datapagingadd += CONSTANT_PAGEDDATA;
					} else if  (it->second.data == CONSTANT_UNPAGED) {  
						datapagingadd += " " ;
						datapagingadd += CONSTANT_UNPAGEDDATA;
					}
					break ;
				}
			}//for 
			if (codepagingadd.length() == 0 && 0 != *codepaging) {//!$codepagingadd and $codepaging
				codepagingadd = " " ;
				codepagingadd += codepaging ;
				codepagingadd += "code";
			}
			if (datapagingadd.length() == 0 &&  0 != *datapaging) { //!$datapagingadd and $datapaging
				datapagingadd = " " ;
				datapagingadd += datapaging ;
				datapagingadd += "data";
					}
			if (codepagingadd.length() > 0 && datapagingadd.length() == 0){ //$codepagingadd and !$datapagingadd
				if (regex_search(line,what,e5)){  //$line =~ /\b(un)?paged(data)?\b\s*$/) { //$line =~ /\b(un)?paged(data)?\b\s*$/
					datapagingadd = " " ;
					if(what[1].length() > 0)
					{
						datapagingadd += what[1].str();
						datapagingadd += "pageddata";
					}
				}
			} else if (datapagingadd.length() > 0 && codepagingadd.length() == 0) {//$datapagingadd and !$codepagingadd
				if (regex_search(line,what,e6)){
					codepagingadd = " " ;
					codepagingadd += what[1].str();
					codepagingadd += "pagedcode";
				}
			}
			if (datapagingadd.length() > 0 || datapagingadd.length() > 0) { // $datapagingadd or $datapagingadd
				line = regex_replace(line,e7,NULL_STRING);
			} 
		}
		cout << line << codepagingadd << datapagingadd  << "\n";

	}
}
// 
int main(int argc , char* argv[]) {
 
	char* tmp = getenv("EPOCROOT"); 
	if(tmp && *tmp)
		epocroot = string(tmp);
	char ch = epocroot.at(epocroot.length() - 1);
	if(ch != '\\' && ch != '/')
		epocroot += SLASH_CHAR;
	
	if(argc > 1 ){
		char* arg = argv[1];
		if('-' == *arg && (arg[1] | 0x20) == 'v'){
			cout << "configpaging - The paging configuration plugin for BUILDROM V" ;
			cout << MAJOR_VERSION << "."<< MINOR_VERSION << "." << BUILD_NUMBER<< endl;			
			cout << COPYRIGHT << endl << endl; 
			return 0;
		}
		configlist = epocroot + CONSTANT_CONFIG_PATH; 
		configlist += string(arg);
	}
	else{
		configlist = epocroot + CONSTANT_CONFIG_PATH;
		configlist += CONSTANT_CONFIG_FILE;
	}
	configpaging_single(); 	

	return 0;
}