/*

* 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 "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:  Contains the source for setting the locale

 *     

 *

*/

#include <errno.h>

#include <locale.h>

#include <stdlib.h>

#include <string.h>

#include <sys/cdefs.h>

#include <_ansi.h>

#include "lmonetary.h"	

#include "lnumeric.h"	

#include "timelocal.h" 

#include "localeinfo.h"

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

#include "libc_wsd_defs.h"

#endif

#define LOCALE_LENGTH 30

extern int  _time_using_locale;

extern int _numeric_using_locale;

extern int _monetary_using_locale;

extern int __nlocale_changed;

extern int __mlocale_changed;

#ifdef SYMBIAN_OE_ENHANCED_LOCALE_SUPPORT

extern unsigned char __clocale_set;

extern unsigned char __applocale_changed;

#endif

#ifdef EMULATOR

int *GET_WSD_VAR_NAME(_monetary_using_locale, g)();

int *GET_WSD_VAR_NAME(_numeric_using_locale, g)();

int *GET_WSD_VAR_NAME(_time_using_locale, g)();

GET_GLOBAL_VAR_FROM_TLS(__mlocale_changed, int)

GET_GLOBAL_VAR_FROM_TLS(__nlocale_changed, int)

#ifdef SYMBIAN_OE_ENHANCED_LOCALE_SUPPORT

GET_GLOBAL_VAR_FROM_TLS(__clocale_set, unsigned char)

GET_GLOBAL_VAR_FROM_TLS(__applocale_changed, unsigned char)

#endif

#define	_monetary_using_locale (*GET_WSD_VAR_NAME(_monetary_using_locale, g)())

#define _numeric_using_locale (*GET_WSD_VAR_NAME(_numeric_using_locale, g)())

#define _time_using_locale (*GET_WSD_VAR_NAME(_time_using_locale, g)())

#define __mlocale_changed (*GET_WSD_VAR_NAME(__mlocale_changed, g)())

#define __nlocale_changed (*GET_WSD_VAR_NAME(__nlocale_changed, g)())

#ifdef SYMBIAN_OE_ENHANCED_LOCALE_SUPPORT

#define __clocale_set (*GET_WSD_VAR_NAME(__clocale_set, g)())

#define __applocale_changed (*GET_WSD_VAR_NAME(__applocale_changed, g)())

#endif

#endif //EMULATOR

__BEGIN_DECLS

#ifndef EMULATOR

char LC_CTYPE_LocaleName[LOCALE_LENGTH] = {'\0'};

char LC_COLLATE_LocaleName[LOCALE_LENGTH] = {'\0'};

char LC_NUMERIC_LocaleName[LOCALE_LENGTH] = {'\0'};

char LC_MONETARY_LocaleName[LOCALE_LENGTH] = {'\0'};

char LC_TIME_LocaleName[LOCALE_LENGTH] ={'\0'};

char LC_ALL_LocaleName[LOCALE_LENGTH] = {'\0'};

#else //EMULATOR

GET_GLOBAL_ARRAY_FROM_TLS(LC_CTYPE_LocaleName, char)

GET_GLOBAL_ARRAY_FROM_TLS(LC_COLLATE_LocaleName, char)

GET_GLOBAL_ARRAY_FROM_TLS(LC_NUMERIC_LocaleName, char)

GET_GLOBAL_ARRAY_FROM_TLS(LC_MONETARY_LocaleName, char)

GET_GLOBAL_ARRAY_FROM_TLS(LC_TIME_LocaleName, char)

GET_GLOBAL_ARRAY_FROM_TLS(LC_ALL_LocaleName, char)

#define LC_CTYPE_LocaleName (GET_WSD_VAR_NAME(LC_CTYPE_LocaleName, g)())

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

#define LC_NUMERIC_LocaleName (GET_WSD_VAR_NAME(LC_NUMERIC_LocaleName, g)())

#define LC_MONETARY_LocaleName (GET_WSD_VAR_NAME(LC_MONETARY_LocaleName, g)())

#define LC_TIME_LocaleName (GET_WSD_VAR_NAME(LC_TIME_LocaleName, g)())

#define LC_ALL_LocaleName (GET_WSD_VAR_NAME(LC_ALL_LocaleName, g)())

#endif //EMULATOR

__END_DECLS

extern "C" {

EXPORT_C char * setlocale(int category, const char* locale)

{

	CLocale* loc = CLocale::GetInstance();

	//Query the current locale

	if(NULL == locale)	

	{

		char* ret = NULL;

		switch(category)

		{

			case LC_CTYPE: 	if(!*LC_CTYPE_LocaleName)

							{

								LC_CTYPE_LocaleName[0] = 'C';

								LC_CTYPE_LocaleName[1] = '\0';

							}

							ret = (char*) LC_CTYPE_LocaleName;

							break;

			case LC_COLLATE:if(!*LC_COLLATE_LocaleName)

							{

								LC_COLLATE_LocaleName[0] = 'C';

								LC_COLLATE_LocaleName[1] = '\0';

							} 

							ret = (char*) LC_COLLATE_LocaleName;

							break;

			case LC_TIME:	if(!*LC_TIME_LocaleName)

							{

								LC_TIME_LocaleName[0] = 'C';

								LC_TIME_LocaleName[1] = '\0';

								_time_using_locale = 0;

							} 

							ret = (char*) LC_TIME_LocaleName;

							break;	

			case LC_NUMERIC:if(!*LC_NUMERIC_LocaleName)

							{

								LC_NUMERIC_LocaleName[0] = 'C';

								LC_NUMERIC_LocaleName[1] = '\0';

								_numeric_using_locale = 0;

							}  

							ret = (char*) LC_NUMERIC_LocaleName;

							break;

			case LC_MONETARY:if(!*LC_MONETARY_LocaleName)

							{

								LC_MONETARY_LocaleName[0] = 'C';

								LC_MONETARY_LocaleName[1] = '\0';

								_monetary_using_locale = 0;

							}  

							ret = (char*) LC_MONETARY_LocaleName;

							break;

			case LC_MESSAGES:

						break;

			case LC_ALL :if(!*LC_ALL_LocaleName)

							{

								_time_using_locale = 0;

								_numeric_using_locale = 0;

								_monetary_using_locale = 0;

								LC_CTYPE_LocaleName[0] = 'C';

								LC_CTYPE_LocaleName[1] = '\0';

								LC_COLLATE_LocaleName[0] = 'C';

								LC_COLLATE_LocaleName[1] = '\0';

								LC_TIME_LocaleName[0] = 'C';

								LC_TIME_LocaleName[1] = '\0';

								LC_NUMERIC_LocaleName[0] = 'C';

								LC_NUMERIC_LocaleName[1] = '\0';

								LC_MONETARY_LocaleName[0] = 'C';

								LC_MONETARY_LocaleName[1] = '\0';

								LC_ALL_LocaleName[0] =  'C';

								LC_ALL_LocaleName[1] = '\0';

							}  

						 ret = (char*) LC_ALL_LocaleName;

						 break;

			default:

				errno = EINVAL;

				return (NULL);

		}

		return ret;

	}

	//If locale is  "" set each category(LC_CTYPE, LC_COLLATE, LC_NUMERIC, LC_TIME, LC_MONETARY) to C locale

	if(strcmp(locale, "") == 0 )

	{

		_time_using_locale = 0;

		_numeric_using_locale = 0;

		_monetary_using_locale = 0;

		__nlocale_changed = 1;

		__mlocale_changed = 1;

#ifdef SYMBIAN_OE_ENHANCED_LOCALE_SUPPORT

		__clocale_set = 1;

		__applocale_changed = 1;

#endif

		LC_CTYPE_LocaleName[0] = 'C';

		LC_CTYPE_LocaleName[1] = '\0';

		LC_COLLATE_LocaleName[0] = 'C';

		LC_COLLATE_LocaleName[1] = '\0';

		LC_TIME_LocaleName[0] = 'C';

		LC_TIME_LocaleName[1] = '\0';

		LC_NUMERIC_LocaleName[0] = 'C';

		LC_NUMERIC_LocaleName[1] = '\0';

		LC_MONETARY_LocaleName[0] = 'C';

		LC_MONETARY_LocaleName[1] = '\0';

		LC_ALL_LocaleName[0] =  'C';

		LC_ALL_LocaleName[1] = '\0';

		return "C";

	}

	if (strcmp(locale, "C") == 0 || strcmp(locale, "POSIX") == 0)

	{

		if(LC_ALL == category)

		{

			_time_using_locale = 0;

			_numeric_using_locale = 0;

			_monetary_using_locale = 0;

			__nlocale_changed = 1;

			__mlocale_changed = 1;

#ifdef SYMBIAN_OE_ENHANCED_LOCALE_SUPPORT

			__clocale_set = 1;

			__applocale_changed = 1;

#endif

			strcpy((char*) LC_ALL_LocaleName, locale);

			LC_ALL_LocaleName[strlen(locale)] = '\0';

			strcpy((char*) LC_CTYPE_LocaleName, locale);

			LC_CTYPE_LocaleName[strlen(locale)] = '\0';

			strcpy((char*) LC_COLLATE_LocaleName, locale);

			LC_COLLATE_LocaleName[strlen(locale)] = '\0';

			strcpy((char*) LC_NUMERIC_LocaleName, locale);

			LC_NUMERIC_LocaleName[strlen(locale)] = '\0';

			strcpy((char*) LC_MONETARY_LocaleName, locale);

			LC_MONETARY_LocaleName[strlen(locale)] = '\0';

			strcpy((char*) LC_TIME_LocaleName, locale);

			LC_TIME_LocaleName[strlen(locale)] = '\0';

			return (char*) locale;	

		}

		switch(category)

		{

			case LC_CTYPE: 	strcpy((char*) LC_CTYPE_LocaleName, locale);

							LC_CTYPE_LocaleName[strlen(locale)] = '\0';

							break;

			case LC_COLLATE: strcpy((char*) LC_COLLATE_LocaleName, locale);

							 LC_COLLATE_LocaleName[strlen(locale)] = '\0';

							 break;

			case LC_TIME:	_time_using_locale = 0;

							strcpy((char*) LC_TIME_LocaleName, locale);

							LC_TIME_LocaleName[strlen(locale)] = '\0';

							break;	

			case LC_NUMERIC: _numeric_using_locale = 0;

							 __nlocale_changed = 1;

#ifdef SYMBIAN_OE_ENHANCED_LOCALE_SUPPORT

							 __applocale_changed = 1;

#endif

							 strcpy((char*) LC_NUMERIC_LocaleName, locale);

							 LC_NUMERIC_LocaleName[strlen(locale)] = '\0';

							 break;

			case LC_MONETARY: _monetary_using_locale = 0;

							  __mlocale_changed = 1;

#ifdef SYMBIAN_OE_ENHANCED_LOCALE_SUPPORT

							  __applocale_changed = 1;

#endif

							  strcpy((char*) LC_MONETARY_LocaleName, locale);

							  LC_MONETARY_LocaleName[strlen(locale)] = '\0';	

							  break;

			case LC_MESSAGES:

			default:

				errno = EINVAL;

				return (NULL);	

		}

		return ((char*) locale);

	}

	//If locale is other than C or POSIX

	TPtrC8 src((const TUint8*)locale);

	TBuf16 <LOCALE_LENGTH> localeString;

	localeString.Copy(src);

	TText* retVal = loc->SetLocale(localeString);

	if(NULL == retVal)

	{

		return NULL;

	}

	if(LC_ALL == category)

	{

		TInt retVal =0;

		if( __numeric_load_locale(locale) == -1)

		{

			retVal = -1;

		}

		if(__monetary_load_locale(locale) == -1)

		{

			retVal = -1;

		}

		if (__time_load_locale(locale) == -1)

		{

			retVal = -1;

		}	

		if(!retVal)

		{

			strcpy((char*) LC_ALL_LocaleName, locale);

			LC_ALL_LocaleName[strlen(locale)] = '\0';

			strcpy((char*) LC_CTYPE_LocaleName, locale);

			LC_CTYPE_LocaleName[strlen(locale)] = '\0';

			strcpy((char*) LC_COLLATE_LocaleName, locale);

			LC_COLLATE_LocaleName[strlen(locale)] = '\0';

			strcpy((char*) LC_NUMERIC_LocaleName, locale);

			LC_NUMERIC_LocaleName[strlen(locale)] = '\0';

			strcpy((char*) LC_MONETARY_LocaleName, locale);

			LC_MONETARY_LocaleName[strlen(locale)] = '\0';

			strcpy((char*) LC_TIME_LocaleName, locale);

			LC_TIME_LocaleName[strlen(locale)] = '\0';

			return (char*) locale;

		}

		else

		{

			return NULL;

		}

	}

	switch (category)

	{

		case LC_CTYPE: 	strcpy((char*) LC_CTYPE_LocaleName, locale);

						LC_CTYPE_LocaleName[strlen(locale)] = '\0';

						break;

		case LC_COLLATE: strcpy((char*) LC_COLLATE_LocaleName, locale);

						 LC_COLLATE_LocaleName[strlen(locale)] = '\0';

						 break;

		case LC_TIME:	if(!__time_load_locale(locale))

						{

							strcpy((char*) LC_TIME_LocaleName, locale);

							LC_TIME_LocaleName[strlen(locale)] = '\0';

						}

						else

						{

							return NULL;	

						}	

						break;	

		case LC_NUMERIC: if(!__numeric_load_locale(locale))

						 {

						 	strcpy((char*) LC_NUMERIC_LocaleName, locale);

							LC_NUMERIC_LocaleName[strlen(locale)] = '\0';

						 }

						 else

						 {

						 	return NULL;	

						 }	

						 break;

		case LC_MONETARY: if(!__monetary_load_locale(locale))

						 {

						 	strcpy((char*) LC_MONETARY_LocaleName, locale);

							LC_MONETARY_LocaleName[strlen(locale)] = '\0';	

						 }

						 else

						 {

						 	return NULL;

						 }	

						 break;

		case LC_MESSAGES:

		default:

			errno = EINVAL;

			return (NULL);

	}

	return ((char*) locale);

}

EXPORT_C wchar_t* wsetlocale(int category, const wchar_t* locale)

{

	char LocaleName[LOCALE_LENGTH];	

	wchar_t *wideLocaleName = new wchar_t[LOCALE_LENGTH + 1];

	char *result = NULL;

	if (locale != NULL)

	{

		if ((size_t)-1 != (wcstombs((char*)LocaleName, locale, LOCALE_LENGTH*sizeof(wchar_t))))

		{

			result = setlocale(category, LocaleName);

		}

	}

	else

	{

		result = setlocale(category, NULL);

	}

	if (result != NULL)

	{

		if ((size_t)-1  != (mbstowcs(wideLocaleName, result, LOCALE_LENGTH*sizeof(wchar_t))))

		{

			return wideLocaleName;

		}

	}

	delete []wideLocaleName;

	return NULL;

}

} //extern "C"