/*

* Copyright (c) 1995-2009 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:

*

*/

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include <string>

#include <new>

#ifdef WIN32

#include <windows.h>

#else

#include <strings.h>

#include <iconv.h>

#endif

#include "uniconv.hpp"

int UniConv::DefaultCodePage2UTF8(const char* DCPStringRef, unsigned int DCPLength, char** UTF8StringRef, unsigned int* UTFLength) throw ()

{

	int reslen = -1;

	if(!UTF8StringRef || !UTFLength || !DCPStringRef)

		return (int)-1;

#ifdef WIN32

	//make Unicode string from its default code page

	reslen = MultiByteToWideChar(CP_ACP, 0, DCPStringRef, DCPLength, NULL, 0);

	if(0 == reslen)

		return (int)-1;

	WCHAR* unistr = new (std::nothrow) WCHAR[reslen+1];

	if(!unistr)

		return (int)-1;

	reslen = MultiByteToWideChar(CP_ACP, 0, DCPStringRef, DCPLength, unistr, reslen);

	if(0 == reslen)

	{

		delete[] unistr;

		return (int)-1;

	}

	//make UTF-8 string from its Unicode encoding

	unsigned int realutflen = 0;

	realutflen = WideCharToMultiByte(CP_UTF8, 0, unistr, reslen, NULL, 0, NULL, NULL);

	if(0 == realutflen)

	{

		delete[] unistr;

		return (int)-1;

	}

	if(realutflen+1 > *UTFLength)

	{

		if(*UTF8StringRef)

			delete[] *UTF8StringRef;

		*UTF8StringRef = new (std::nothrow) char[realutflen+1];

		if(!*UTF8StringRef)

		{

			delete[] unistr;

			*UTFLength = 0;

			return (int)-1;

		}

	}

	*UTFLength = realutflen;

	reslen = WideCharToMultiByte(CP_UTF8, 0, unistr, reslen, *UTF8StringRef, *UTFLength, NULL, NULL);

	(*UTF8StringRef)[realutflen] = 0;

	if(0 == reslen)

		reslen = (int)-1;

	//clean up temporarily allocated resources

	delete[] unistr;

#else

	//character set format: language[_territory][.codeset][@modifier]

	char* dcp = getenv("LANG");

	if(!dcp)

		return (int)-1;

	char* dot = strstr(dcp, ".");

	if(dot)

		dcp += ((dot-dcp) + 1);

	char* atmark = strstr(dcp, "@");

	if(atmark)

		*(atmark) = 0;

	if(strcasecmp(dcp, "UTF-8") == 0)

	{

		strcpy(*UTF8StringRef, DCPStringRef);

		*UTFLength = DCPLength;

		return DCPLength;

	}

	iconv_t convhan = iconv_open("UTF-8", dcp);

	if((iconv_t)(-1) == convhan)

		return (int)-1;

	char* utf8str = new (std::nothrow) char[DCPLength*4];

	if(!utf8str)

	{

		iconv_close(convhan);

		return (int)-1;

	}

	int realutflen = DCPLength*4;

	int origLen = realutflen;

	char* pout = utf8str;

	if(iconv(convhan, const_cast<char**>(&DCPStringRef), (size_t*)&DCPLength, &pout, (size_t*)&realutflen) < 0)

	{

		iconv_close(convhan);

		delete[] utf8str;

		return (int)-1;

	}

	realutflen = origLen - realutflen;

	if((unsigned int)(realutflen+1) > *UTFLength)

	{

		if(*UTF8StringRef)

			delete[] *UTF8StringRef;

		*UTF8StringRef = new (std::nothrow) char[realutflen+1];

		if(!*UTF8StringRef)

		{

			delete[] utf8str;

			iconv_close(convhan);

			return (int)-1;

		}

	}

	strncpy(*UTF8StringRef, utf8str, realutflen);

	(*UTF8StringRef)[realutflen] = 0;

	*UTFLength = realutflen;

	reslen = realutflen;

	delete[] utf8str;

	iconv_close(convhan);

#endif

	return reslen;

}

int UniConv::UTF82DefaultCodePage(const char* UTF8StringRef, unsigned int UTFLength, char** DCPStringRef, unsigned int* DCPLength) throw ()

{

	int reslen = -1;

	if(!DCPStringRef || !DCPLength || !UTF8StringRef)

		return (int)-1;

#ifdef WIN32

	//make Unicode string from its UTF-8 encoding

	reslen = MultiByteToWideChar(CP_UTF8, 0, UTF8StringRef, UTFLength, NULL, 0);

	if(0 == reslen)

		return (int)-1;

	WCHAR* unistr = new (std::nothrow) WCHAR[reslen+1];

	if(!unistr)

		return (int)-1;

	reslen = MultiByteToWideChar(CP_UTF8, 0, UTF8StringRef, UTFLength, unistr, reslen);

	if(0 == reslen)

	{

		delete[] unistr;

		return (int)-1;

	}

	//make default code paged string from its Unicode encoding

	unsigned int realdcplen = 0;

	realdcplen = WideCharToMultiByte(CP_ACP, 0, unistr, reslen, NULL, 0, NULL, NULL);

	if(0 == realdcplen)

	{

		delete[] unistr;

		return (int)-1;

	}

	if(realdcplen+1 > *DCPLength)

	{

		if(*DCPStringRef)

			delete[] *DCPStringRef;

		*DCPStringRef = new (std::nothrow) char[realdcplen+1];

		if(!*DCPStringRef)

		{

			delete[] unistr;

			*DCPLength = 0;

			return (int)-1;

		}

	}

	*DCPLength = realdcplen;

	reslen = WideCharToMultiByte(CP_ACP, 0, unistr, reslen, *DCPStringRef, *DCPLength, NULL, NULL);

	(*DCPStringRef)[realdcplen] = 0;

	if(0 == reslen)

		reslen = (int)-1;

	//clean up temporarily allocated resources

	delete[] unistr;

#else

	//character set format: language[_territory][.codeset][@modifier]

	char* dcp = getenv("LANG");

	if(!dcp)

		return (int)-1;

	char* dot = strstr(dcp, ".");

	if(dot)

		dcp += ((dot-dcp) + 1);

	char* atmark = strstr(dcp, "@");

	if(atmark)

		*(atmark) = 0;

	iconv_t convhan = iconv_open(dcp, "UTF-8");

	if((iconv_t)(-1) == convhan)

		return (int)-1;

	char* dcpstr = new (std::nothrow) char[UTFLength*4];

	if(!dcpstr)

	{

		iconv_close(convhan);

		return (int)-1;

	}

	int realdcplen = UTFLength*4;

	int origLen = realdcplen;

	char* pout = dcpstr;

	if(iconv(convhan, const_cast<char**>(&UTF8StringRef), (size_t*)&UTFLength, &pout, (size_t*)&realdcplen) < 0)

	{

		iconv_close(convhan);

		delete[] dcpstr;

		return (int)-1;

	}

	realdcplen = origLen - realdcplen;

	if((unsigned int)(realdcplen+1) > *DCPLength)

	{

		if(*DCPStringRef)

			delete[] *DCPStringRef;

		*DCPStringRef = new (std::nothrow) char[realdcplen+1];

		if(!*DCPStringRef)

		{

			delete[] dcpstr;

			iconv_close(convhan);

			return (int)-1;

		}

	}

	strncpy(*DCPStringRef, dcpstr, realdcplen);

	(*DCPStringRef)[realdcplen] = 0;

	*DCPLength = realdcplen;

	reslen = realdcplen;

	delete[] dcpstr;

	iconv_close(convhan);

#endif

	return reslen;

}

bool UniConv::IsPureASCIITextStream(const char* StringRef) throw ()

{

	while (*StringRef && !(*StringRef++ & 0x80))

		;

	if (*StringRef)

		return false;

	else

		return true;

}