// 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:

// Name         : strcoll.cpp

// Part of      : MRT

// Implementation for wcpcpy API

// Version      : 1.0

//

#include <stdlib.h>

#include <string.h>

#include <e32std.h>

#include <charconv.h>

#include <e32des16.h>

#include <f32file.h> 

#include <wchar.h>

#include <langinfo.h>

#include <e32debug.h>

#ifdef SYMBIAN_OE_ENHANCED_LOCALE_SUPPORT

#include <collate.h>

#include "localeinfo.h"

#endif

#ifdef SYMBIAN_DISTINCT_LOCALE_MODEL

#include <utf.h> 

#endif

#if (defined(__SYMBIAN32__) && (defined(__WINSCW__) || defined(__WINS__)))

#include "libc_wsd_defs.h"

#endif

#ifdef __SYMBIAN32__

#define MAX_COL_LEVEL 1

#endif

#ifdef __cplusplus

extern "C" {

#endif

#ifdef __SYMBIAN32__

	extern "C" char* LC_COLLATE_LocaleName[30];

#ifdef EMULATOR

char *GET_WSD_VAR_NAME(LC_COLLATE_LocaleName, g)();

#define LC_COLLATE_LocaleName (GET_WSD_VAR_NAME(LC_COLLATE_LocaleName, g)())

#endif //EMULATOR

#endif //__SYMBIAN32__

#ifdef __cplusplus

}

#endif

static int DoConvertionToUnicode(const char* s1, TUint16* aUnicodeText);

EXPORT_C

int strcoll(const char *s1, const char *s2)

{

#ifdef SYMBIAN_OE_ENHANCED_LOCALE_SUPPORT

    TInt retVal;

	char *ret=NULL;

#endif

	if((strcmp("C",(const char*) LC_COLLATE_LocaleName)==0) ||(strcmp("POSIX", (const char*) LC_COLLATE_LocaleName)==0)) 

		return strcmp (s1,s2);

	else	  	

	{

		TUint16* text1 = new TText16[strlen(s1) + 1];

		TUint16* text2 = new TText16[strlen(s2 ) + 1];

		if((DoConvertionToUnicode(s1, text1) == -1) || (DoConvertionToUnicode(s2, text2) == -1))

			{

		  	delete [] text1;

		 	delete [] text2;

			return -1;

			}

		const TPtrC leftString((TText*) text1);

		const TPtrC rightString((TText*) text2);

		TInt left = leftString.Length();

		TInt right = rightString.Length();

#ifdef SYMBIAN_OE_ENHANCED_LOCALE_SUPPORT

		ret=(char*)LC_COLLATE_LocaleName;

		if(*ret==NULL)

		{

#endif

#ifdef SYMBIAN_OE_ENHANCED_LOCALE_SUPPORT

		retVal = Mem :: CompareC(text1,left,text2,right, MAX_COL_LEVEL,NULL);	

#else

	   	TInt retVal = Mem :: CompareC(text1,left,text2,right, MAX_COL_LEVEL,NULL);

#endif

#ifdef SYMBIAN_OE_ENHANCED_LOCALE_SUPPORT

        }

        else

        {

        CLocale* loc = CLocale::GetInstance();

        TExtendedLocale elocale;

        const TText* text;

        #ifdef SYMBIAN_DISTINCT_LOCALE_MODEL

        text = loc->GetCollateLocaleName();

        TPtrC localenew(text);

        retVal = elocale.LoadLocaleAspect(localenew); 

        if ( retVal == KErrNotFound ) // load old collate dll

            {

            text = loc->GetLocaleName();

            TPtrC locale(text);

            retVal = elocale.LoadLocaleAspect(ELocaleCollateSetting,locale);  

            }

        #else

        text = loc->GetLocaleName();

        TPtrC locale(text);

        retVal = elocale.LoadLocaleAspect(ELocaleCollateSetting,locale);  

        #endif

        if( retVal == KErrNone )

            {    

            TCollationMethod chmethod=elocale.GetPreferredCollationMethod(0);

            retVal = Mem :: CompareC(text1,left,text2,right, MAX_COL_LEVEL,&chmethod);

            }

        }

#endif

	  	delete [] text1;

	 	delete [] text2;

		return retVal;

	}	

}

static int DoConvertionToUnicode( const char* s1, TUint16* aUnicodeText)

{

    TInt r = KErrNone;

    RFs fileSession;

    r = fileSession.Connect();

    if (r != KErrNone)

        {

            return r;

        }

    CleanupClosePushL(fileSession);

    CCnvCharacterSetConverter* conv = CCnvCharacterSetConverter::NewL() ;

    CleanupStack::PushL(conv);

    CArrayFix<CCnvCharacterSetConverter::SCharacterSet> *charSet = CCnvCharacterSetConverter::CreateArrayOfCharacterSetsAvailableL(fileSession);

    CleanupStack::PushL( charSet );

    TInt i = 0;

    TInt count = charSet->Count();

    TUint charSetUID = 0 ;

    while(i < count)

    {

        CCnvCharacterSetConverter::SCharacterSet characterSet = charSet->At(i); 

        i++;

        charSetUID = characterSet.Identifier();

       // const TBufC<25> charSetName = characterSet.NameIsFileName()?TParsePtrC(characterSet.Name()).Name():characterSet.Name();                             

        const TBufC<50> charSetName = characterSet.NameIsFileName()?TParsePtrC(characterSet.Name()).Name():characterSet.Name();

        const int CHAR_SET_NAME_SIZE = 100; //worst case size

        TBuf8<CHAR_SET_NAME_SIZE> aCharSetName;

       // if(wcstombs((char *)aCharSetName.Ptr(),(wchar_t*)(const_cast<TBufC<25>*>(&charSetName))->Des().PtrZ(),CHAR_SET_NAME_SIZE) == (size_t)-1)

        if(wcstombs((char *)aCharSetName.Ptr(),(wchar_t*)(const_cast<TBufC<50>*>(&charSetName))->Des().PtrZ(),CHAR_SET_NAME_SIZE) == (size_t)-1)

            {

                CleanupStack::PopAndDestroy(3); 

                return -1;

            }

        if(!aCharSetName.Compare(TPtrC8((const TText8*) LC_COLLATE_LocaleName)))

        {

            break;;

        }

        HBufC8*  stdInterName = conv->ConvertCharacterSetIdentifierToStandardNameL(charSetUID, fileSession);

        if(NULL != stdInterName)

        {

            if(!stdInterName->Compare(TPtrC8((const TText8*) LC_COLLATE_LocaleName)))

            {

                delete stdInterName;

                stdInterName = NULL;

                break;

            }

            delete stdInterName;

            stdInterName = NULL;

        }

	}

	if(!charSetUID)	

		{

				CleanupStack::PopAndDestroy(3); 

				return -1;

		}

	TPtrC8 remainderOfForeignText((const TText8*) s1);

	TInt length = 0;

	while(remainderOfForeignText.Length() > 0)

	{

		TBuf16<300> unicodeText;

		TInt retVal = KErrNone;

		CCnvCharacterSetConverter::TAvailability  avail = conv->PrepareToConvertToOrFromL(charSetUID, fileSession);

		if(CCnvCharacterSetConverter::ENotAvailable == avail)

			{

				CleanupStack::PopAndDestroy(3); 

				return -1;

			}

			TInt state = CCnvCharacterSetConverter::KStateDefault;

			TInt aNumberOfUnconvertibleCharacters = 0;

			TInt aIndexOfFirstByteOfFirstUnconvertibleCharacter = 0;

			retVal = conv->ConvertToUnicode(unicodeText, remainderOfForeignText, state, aNumberOfUnconvertibleCharacters, aIndexOfFirstByteOfFirstUnconvertibleCharacter);

			length += unicodeText.Length();

			wcsncpy((wchar_t*)aUnicodeText, (wchar_t*) unicodeText.Ptr(), unicodeText.Length() );

			if(retVal < 0 && (retVal != CCnvCharacterSetConverter::EErrorIllFormedInput))

			{

				CleanupStack::PopAndDestroy(3); 

				return -1;

			}

			if(aNumberOfUnconvertibleCharacters)

			{

				CleanupStack::PopAndDestroy(3); 

				return -1;

			}

			if(retVal == CCnvCharacterSetConverter::EErrorIllFormedInput)

			{

				CleanupStack::PopAndDestroy(3); 

				return -1;

			}

			remainderOfForeignText.Set(remainderOfForeignText.Right(retVal));

	}

	aUnicodeText[length] = '\0';

	CleanupStack::PopAndDestroy(3); 

	return 0;

}