// Copyright (c) 2005-2009 Nokia Corporation and/or its subsidiary(-ies).
// All rights reserved.
// This component and the accompanying materials are made available
// under the terms of "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:
// Implementation of the e32 image version for e32 image dump for the elf2e32 tool
// @internalComponent
// @released
// 
//

#include <stdlib.h>
#include <stdio.h>
#include "h_utl.h"

/**
Function to check bracketed hex i.e '{', '}'

@internalComponent
@released

@param aTemp
@param aBrackets
@param aDigits
@param aValue

@return True if the value passed in is a bracketed hex.
*/
TBool IsBracketedHex(const char* aTemp, const char* aBrackets, TInt aDigits, TUint32& aValue)
{
	if (aTemp[0]!=aBrackets[0] || aTemp[1+aDigits]!=aBrackets[1])
		return 0;
	TInt i;
	TUint32 x = 0;
	for (i=1; i<=aDigits; ++i)
	{
		TInt c = aTemp[i];
		if (c>='a' && c<='z') c-=32;
		if (c<'0' || (c>'9' && c<'A') || c>'F')
			return 0;
		c-='0';
		if (c>9)
			c-=7;
		x = (x<<4) | (TUint32)c;
	}
	aValue = x;
	
	return 1;
}

/**
Function to check the decimal version

@internalComponent
@released

@param aBegin
Beginning of the version information
@param aTemp
@param aValue
Holds the hexadecimal value
@return the checked value.
*/
TInt CheckForDecimalVersion(const char* aBegin, const char* aTemp, TUint32& aValue)
{
	aValue = 0;
	if (aTemp <= aBegin || *aTemp != '}')
		return 0;
	TUint32 v[2] = {0,0};
	TUint32 m = 1;
	TInt pos = 0;
	const char* s0 = aTemp + 1;
	for (--aTemp; aTemp >= aBegin; --aTemp)
	{
		int c = *aTemp;
		if (c >= '0' && c <= '9')
		{
			v[pos] += m * (c - '0');
			if (v[pos] >= 65536u)
				return 0;
			m *= 10;
		}
		else if (c == '.')
		{
			m = 1;
			if (++pos >= 2)
				return 0;
		}
		else if (c == '{')
			break;
		else
			return 0;
	}
	if (aTemp < aBegin)
		return 0;
	
	aValue = (v[1] << 16) | v[0];
	
	return s0 - aTemp;
}

/**
Function to Parse a filename and convert decimal version number to hex

@internalComponent
@released

@param aName
Filename to be parsed

@return the converted name wherein the decimal number is converted to hex.
*/
char* NormaliseFileName(const char* aName)
{
	TFileNameInfo f(aName, 0);
	TInt nl = f.iBaseLength;
	TInt el = f.iTotalLength - f.iExtPos;
	TInt tl = nl + el;
	if (f.iFlags & EVerPresent)
		tl += 10;
	char* t = new char[tl + 1];
	if (t)
	{
		memcpy(t, aName, nl);
		if (f.iFlags & EVerPresent)
			sprintf(t + nl, "{%08x}%s", (TInt)f.iModuleVersion, aName + f.iExtPos);
		else if (el)
			memcpy(t + nl, aName + f.iExtPos, el);
		t[tl] = 0;
	}
	
	return t;
}

/**
Constructor for Class TFileNameInfo

@internalComponent
@released

@param aFileName
Filename to be parsed
@param aLookForUid
*/
TFileNameInfo::TFileNameInfo(const char* aFileName, TBool aLookForUid)
{
	iFileName = aFileName;
	TInt l = strlen(aFileName);
	iTotalLength = l;
	TInt remain = l;
	iFlags = 0;
	iUid3 = 0;
	iModuleVersion = 0;
	iBaseLength = l;
	iExtPos = l;
	const char* s = iFileName + l;
	for (; s>=iFileName && *s!='.' && *s!='}' && (!aLookForUid || *s!=']'); --s)
	{
	}
	
	if (s<iFileName)
		return;
	if (*s == '.')
	{
		iExtPos = s - iFileName;
		if (iExtPos == 0)
		{
			iBaseLength = 0;
			return;
		}
		remain = iExtPos;
		--s;
	}
	else if (s != iFileName + l)
		return;
	
	if (aLookForUid && remain>=10 && IsBracketedHex(s-9, "[]", 8, iUid3))
	{
		iFlags |= EUidPresent;
		remain -= 10;
		s -= 10;
	}
	
	if (remain>=10 && IsBracketedHex(s-9, "{}", 8, iModuleVersion))
	{
		iFlags |= EVerPresent;
		remain -= 10;
		s -= 10;
	}
	else
	{
		TInt n = CheckForDecimalVersion(iFileName, s, iModuleVersion);
		if (n>0)
		{
			iFlags |= EVerPresent;
			remain -= n;
			s -= n;
		}
	}
	iBaseLength = remain;
}

/*-------------------------------------------------------------------------
String comparison on Linux seems to be a little half-baked.
-------------------------------------------------------------------------*/
#ifdef __LINUX__

int stricmp(const char *a, const char *b)
	{
	unsigned char ca,cb;

	do {
		ca = *a++;
		cb = *b++;
		ca = tolower(ca);
		cb = tolower(cb);
	}
	while((ca == cb) && (ca));
	return (int) ca-cb;
	}

int strnicmp(const char *a, const char *b, int n)
	{
	unsigned char ca,cb;
	int i = 0;

	do {
		if (++i > n) return 0;
		ca = *a++;
		cb = *b++;
		ca = tolower(ca);
		cb = tolower(cb);
	}
	while((ca == cb) && (ca));
	return (int) ca-cb;
	}

char* strupr(char *a)
	{
		char *ret = a;

		while (*a)
			{
			*a = toupper(*a);
			a++;
			}

		return ret;
	}


#endif