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

 }