/* AbiSource Program Utilities
 * Copyright (C) 2001 AbiSource, Inc.
 * 
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.
 * 
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  
 * 02111-1307, USA.
 */

#include <stdlib.h>

#include "ut_iconv.h"
#include "ut_Encoding.h"
#include "ut_string.h"
#include "ut_debugmsg.h"

#include "xap_App.h"
#include "xap_Strings.h"

// Please keep the list below alphabetised by the encoding; even though 
// this is not required for it to work, it will make it easier to maintain.

// to add a new encoding:
// (1) check on this list it is not already there;
// (2) add it to the list in xap_String_Id.h 
// (3) add it here, using the ID corresponding to the one
//     from xap_String_Id.h

// This list is based on libiconv.
// Since iconv implementations differ and iconv has no enumeration API,
// this code attempts to enumerate the supported encodings.
//
// There is an array of possible names for each encoding
// in order of standardization or popularity.  We attempt to
// open each before deciding the encoding is not supported.
//
// Another approach is to do these tests in an external program which
// outputs the C++ code for the following table.
//
// TODO Note that certain operations in AbiWord currently try to open or
// TODO compare certain encodings via hard-coded names.  This should be
// TODO discouraged and replaced with names derived as in these tables.
//
// TODO This code should probably move into the Encoding Manager.
//
// TODO Some platforms use specific names not covered by this alias table
// TODO such as the solaris iso-8559-n problem just fixed.  Root out any
// TODO more instances of this to easily avoid problems that can cause a
// TODO huge PITA when misdiagnosed.

static XML_Char * enc_armscii[]	= {"ARMSCII-8",0};
static XML_Char * enc_big5[]	= {"BIG5","BIG-5","BIG-FIVE","BIGFIVE","CN-BIG5",0};
static XML_Char * enc_big5hkscs[]	= {"BIG5-HKSCS","BIG5HKSCS",0};
#ifdef WIN32 /* DOS/Win32 console encodings, peer iconv supports, others may not */
static XML_Char * enc_cp437[]	= {"C437","IBM437","437",0};
static XML_Char * enc_cp850[]	= {"C850","IBM850","850",0};
#endif
static XML_Char * enc_cp874[]	= {"CP874",0};
static XML_Char * enc_cp932[]	= {"CP932",0};
static XML_Char * enc_cp936[]	= {"CP936","GBK",0};
static XML_Char * enc_cp949[]	= {"CP949","UHC",0};
static XML_Char * enc_cp950[]	= {"CP950",0};
static XML_Char * enc_cp1250[]	= {"CP1250","WINDOWS-1250","MS-EE",0};
static XML_Char * enc_cp1251[]	= {"CP1251","WINDOWS-1251","MS-CYRL",0};
static XML_Char * enc_cp1252[]	= {"CP1252","WINDOWS-1252","MS-ANSI",0};
static XML_Char * enc_cp1253[]	= {"CP1253","WINDOWS-1253","MS-GREEK",0};
static XML_Char * enc_cp1254[]	= {"CP1254","WINDOWS-1254","MS-TURK",0};
static XML_Char * enc_cp1255[]	= {"CP1255","WINDOWS-1255","MS-HEBR",0};
static XML_Char * enc_cp1256[]	= {"CP1256","WINDOWS-1256","MS-ARAB",0};
static XML_Char * enc_cp1257[]	= {"CP1257","WINDOWS-1257","WINBALTRIM",0};
static XML_Char * enc_cp1258[]	= {"CP1258","WINDOWS-1258",0};
static XML_Char * enc_euc_cn[]	= {"EUC-CN","EUCCN","GB2312","CN-GB",0};	// Cf. GB_2312-80
static XML_Char * enc_euc_jp[]	= {"EUC-JP","EUCJP",0};
static XML_Char * enc_euc_kr[]	= {"EUC-KR","EUCKR",0};
static XML_Char * enc_euc_tw[]	= {"EUC-TW","EUCTW",0};
static XML_Char * enc_gb2312[]	= {"GB_2312-80","ISO-IR-58","CHINESE",0};	// Cf. EUC-CN
static XML_Char * enc_georga[]	= {"GEORGIAN-ACADEMY",0};
static XML_Char * enc_georgps[]	= {"GEORGIAN-PS",0};
static XML_Char * enc_hp[]		= {"HP-ROMAN8","ROMAN8","R8",0};
static XML_Char * enc_hz[]		= {"HZ","HZ-GB-2312",0};
static XML_Char * enc_8859_1[]	= {"ISO-8859-1","ISO_8859-1","8859-1","LATIN1","L1",0};
static XML_Char * enc_8859_2[]	= {"ISO-8859-2","ISO_8859-2","8859-2","LATIN2","L2",0};
//static XML_Char * enc_8859_3[]  = {"ISO-8859-3","ISO_8859-3","8859-3","LATIN3","L3",0};
static XML_Char * enc_8859_4[]	= {"ISO-8859-4","ISO_8859-4","8859-4","LATIN4","L4",0};
static XML_Char * enc_8859_5[]	= {"ISO-8859-5","ISO_8859-5","8859-5","CYRILLIC",0};
static XML_Char * enc_8859_6[]	= {"ISO-8859-6","ISO_8859-6","8859-6","ECMA-114","ASMO-708","ARABIC",0};
static XML_Char * enc_8859_7[]	= {"ISO-8859-7","ISO_8859-7","8859-7","ECMA-118","ELOT_928","GREEK8","GREEK",0};
static XML_Char * enc_8859_8[]	= {"ISO-8859-8","ISO_8859-8","8859-8","HEBREW",0};
static XML_Char * enc_8859_9[]	= {"ISO-8859-9","ISO_8859-9","8859-9","LATIN5","L5",0};
//static XML_Char * enc_8859_10[]	= {"ISO-8859-10","ISO_8859-10","8859-10","LATIN6","L6",0};
//static XML_Char * enc_8859_13[]	= {"ISO-8859-13","ISO_8859-13","8859-13","LATIN7","L7",0};
//static XML_Char * enc_8859_14[]	= {"ISO-8859-14","ISO_8859-14","8859-14","LATIN8","L8",0};
//static XML_Char * enc_8859_15[]	= {"ISO-8859-15","ISO_8859-15","8859-15",0};
//static XML_Char * enc_8859_16[]	= {"ISO-8859-16","ISO_8859-16","8859-16",0};
static XML_Char * enc_2022_jp[]	= {"ISO-2022-JP",0};
// There are 4 JIS encodings which are not Shift-JIS...
static XML_Char * enc_johab[]	= {"JOHAB","CP1361",0};
static XML_Char * enc_koi8r[]	= {"KOI8-R",0};
static XML_Char * enc_koi8u[]	= {"KOI8-U",0};
static XML_Char * enc_ksc5601[]	= {"KSC_5601","KS_C_5601-1987","KS_C_5601-1989","KOREAN",0};
static XML_Char * enc_macarab[]	= {"MacArabic",0};
static XML_Char * enc_macceur[] = {"MacCentralEurope",0};
static XML_Char * enc_maccroat[]	= {"MacCroatian",0};
static XML_Char * enc_maccyr[]	= {"MacCyrillic",0};
static XML_Char * enc_macgrk[]	= {"MacGreek",0};
static XML_Char * enc_macheb[]	= {"MacHebrew",0};
static XML_Char * enc_macice[]	= {"MacIceLand",0};
static XML_Char * enc_macrom[]	= {"MacRoman","MACINTOSH","MAC",0};
static XML_Char * enc_macrman[]	= {"MacRomania",0};
static XML_Char * enc_macthai[]	= {"MacThai",0};
static XML_Char * enc_macturk[]	= {"MacTurkish",0};
static XML_Char * enc_macukr[]	= {"MacUkraine",0};
//static XML_Char * enc_mulao[]	= {"MULELAO-1",0};
static XML_Char * enc_next[]	= {"NEXTSTEP",0};
static XML_Char * enc_sjis[]	= {"SJIS","SHIFT_JIS","SHIFT-JIS","MS_KANJI",0};
static XML_Char * enc_tcvn[]	= {"TCVN","TCVN-5712","TCVN5712-1",0};
static XML_Char * enc_tis620[]	= {"TIS-620","TIS620","TIS620-0",0};
static XML_Char * enc_ucs2be[]	= {"UCS-2BE","UCS-2-BE","UNICODEBIG","UNICODE-1-1",0};
static XML_Char * enc_ucs2le[]	= {"UCS-2LE","UCS-2-LE","UNICODELITTLE",0};
static XML_Char * enc_ucs4be[]	= {"UCS-4BE","UCS-4-BE",0};
static XML_Char * enc_ucs4le[]	= {"UCS-4LE","UCS-4-LE",0};
// US-ASCII has more aliases if we need them
static XML_Char * enc_usascii[]	= {"US-ASCII","ASCII","US",0};
static XML_Char * enc_utf7[]	= {"UTF-7","UNICODE-1-1-UTF-7",0};
static XML_Char * enc_utf8[]	= {"UTF-8",0};
static XML_Char * enc_utf16be[]	= {"UTF-16BE","UTF-16-BE",0};
static XML_Char * enc_utf16le[]	= {"UTF-16LE","UTF-16-LE",0};
static XML_Char * enc_utf32be[]	= {"UTF-32BE","UTF-32-BE",0};
static XML_Char * enc_utf32le[]	= {"UTF-32LE","UTF-32-LE",0};
static XML_Char * enc_viscii[]	= {"VISCII",0};

static enc_entry s_Table[] = 
{
	//the property value, the localised translation, the numerical id
	{enc_armscii,			NULL, XAP_STRING_ID_ENC_ARME_ARMSCII},
	{enc_big5,				NULL, XAP_STRING_ID_ENC_CHTR_BIG5},
	{enc_big5hkscs,				NULL, XAP_STRING_ID_ENC_CHTR_BIG5HKSCS},
#ifdef WIN32
	{enc_cp437,				NULL, XAP_STRING_ID_ENC_US_DOS},
	{enc_cp850,				NULL, XAP_STRING_ID_ENC_MLNG_DOS},
#endif
	{enc_cp874,				NULL, XAP_STRING_ID_ENC_THAI_WIN},
	{enc_cp932,				NULL, XAP_STRING_ID_ENC_JAPN_WIN},
	{enc_cp936,				NULL, XAP_STRING_ID_ENC_CHSI_WIN},
	{enc_cp949,				NULL, XAP_STRING_ID_ENC_KORE_WIN},
	{enc_cp950,				NULL, XAP_STRING_ID_ENC_CHTR_WIN},
	{enc_cp1250,			NULL, XAP_STRING_ID_ENC_CENT_WIN},
	{enc_cp1251,			NULL, XAP_STRING_ID_ENC_CYRL_WIN},
	{enc_cp1252,			NULL, XAP_STRING_ID_ENC_WEST_WIN},
	{enc_cp1253,			NULL, XAP_STRING_ID_ENC_GREE_WIN},
	{enc_cp1254,			NULL, XAP_STRING_ID_ENC_TURK_WIN},
	{enc_cp1255,			NULL, XAP_STRING_ID_ENC_HEBR_WIN},
	{enc_cp1256,			NULL, XAP_STRING_ID_ENC_ARAB_WIN},
	{enc_cp1257,			NULL, XAP_STRING_ID_ENC_BALT_WIN},
	{enc_cp1258,			NULL, XAP_STRING_ID_ENC_VIET_WIN},
	{enc_euc_cn,			NULL, XAP_STRING_ID_ENC_CHSI_EUC},
	{enc_euc_jp,			NULL, XAP_STRING_ID_ENC_JAPN_EUC},
	{enc_euc_kr,			NULL, XAP_STRING_ID_ENC_KORE_EUC},
	{enc_euc_tw,			NULL, XAP_STRING_ID_ENC_CHTR_EUC},
	{enc_gb2312,			NULL, XAP_STRING_ID_ENC_CHSI_GB},
	{enc_georga,			NULL, XAP_STRING_ID_ENC_GEOR_ACADEMY},
	{enc_georgps,			NULL, XAP_STRING_ID_ENC_GEOR_PS},
	{enc_hp,				NULL, XAP_STRING_ID_ENC_WEST_HP},
	{enc_hz,				NULL, XAP_STRING_ID_ENC_CHSI_HZ},
	{enc_8859_1,			NULL, XAP_STRING_ID_ENC_WEST_ISO},
	{enc_8859_2,			NULL, XAP_STRING_ID_ENC_CENT_ISO},
	// 8859-3
	{enc_8859_4,			NULL, XAP_STRING_ID_ENC_BALT_ISO},
	{enc_8859_5,			NULL, XAP_STRING_ID_ENC_CYRL_ISO},
	{enc_8859_6,			NULL, XAP_STRING_ID_ENC_ARAB_ISO},
	{enc_8859_7,			NULL, XAP_STRING_ID_ENC_GREE_ISO},
	{enc_8859_8,			NULL, XAP_STRING_ID_ENC_HEBR_ISO},
	{enc_8859_9,			NULL, XAP_STRING_ID_ENC_TURK_ISO},
	// 8859-10, 8859-13-16
	{enc_2022_jp,			NULL, XAP_STRING_ID_ENC_JAPN_ISO},
	{enc_johab,				NULL, XAP_STRING_ID_ENC_KORE_JOHAB},
	{enc_koi8r,				NULL, XAP_STRING_ID_ENC_CYRL_KOI},
	{enc_koi8u,				NULL, XAP_STRING_ID_ENC_UKRA_KOI},
	{enc_ksc5601,			NULL, XAP_STRING_ID_ENC_KORE_KSC},	// ISO
	{enc_macarab,			NULL, XAP_STRING_ID_ENC_ARAB_MAC},
	{enc_macceur,			NULL, XAP_STRING_ID_ENC_CENT_MAC},
	{enc_maccroat,			NULL, XAP_STRING_ID_ENC_CROA_MAC},
	{enc_maccyr,			NULL, XAP_STRING_ID_ENC_CYRL_MAC},
	{enc_macgrk,			NULL, XAP_STRING_ID_ENC_GREE_MAC},
	{enc_macheb,			NULL, XAP_STRING_ID_ENC_HEBR_MAC},
	{enc_macice,			NULL, XAP_STRING_ID_ENC_ICEL_MAC},
	{enc_macrman,			NULL, XAP_STRING_ID_ENC_ROMA_MAC},
	{enc_macrom,			NULL, XAP_STRING_ID_ENC_WEST_MAC},
	{enc_macthai,			NULL, XAP_STRING_ID_ENC_THAI_MAC},
	{enc_macturk,			NULL, XAP_STRING_ID_ENC_TURK_MAC},
	{enc_macukr,			NULL, XAP_STRING_ID_ENC_UKRA_MAC},
	// other mac encodings
	{enc_next,				NULL, XAP_STRING_ID_ENC_WEST_NXT},
	{enc_sjis,				NULL, XAP_STRING_ID_ENC_JAPN_SJIS},
	{enc_tcvn,				NULL, XAP_STRING_ID_ENC_VIET_TCVN},
	{enc_tis620,			NULL, XAP_STRING_ID_ENC_THAI_TIS},
//	{enc_ucs2,				NULL, XAP_STRING_ID_ENC_UNIC_UCS_2},
	{enc_ucs2be,			NULL, XAP_STRING_ID_ENC_UNIC_UCS_2BE},
	{enc_ucs2le,			NULL, XAP_STRING_ID_ENC_UNIC_UCS_2LE},
//	{enc_ucs4,				NULL, XAP_STRING_ID_ENC_UNIC_UCS_4},
	{enc_ucs4be,			NULL, XAP_STRING_ID_ENC_UNIC_UCS_4BE},
	{enc_ucs4le,			NULL, XAP_STRING_ID_ENC_UNIC_UCS_4LE},
    {enc_usascii,    		NULL, XAP_STRING_ID_ENC_WEST_ASCII},
	{enc_utf7,				NULL, XAP_STRING_ID_ENC_UNIC_UTF_7},
	{enc_utf8,				NULL, XAP_STRING_ID_ENC_UNIC_UTF_8},
//	{enc_utf16,				NULL, XAP_STRING_ID_ENC_UNIC_UTF_16},
	{enc_utf16be,			NULL, XAP_STRING_ID_ENC_UNIC_UTF_16BE},
	{enc_utf16le,			NULL, XAP_STRING_ID_ENC_UNIC_UTF_16LE},
//	{enc_utf32,				NULL, XAP_STRING_ID_ENC_UNIC_UTF_32},
	{enc_utf32be,			NULL, XAP_STRING_ID_ENC_UNIC_UTF_32BE},
	{enc_utf32le,			NULL, XAP_STRING_ID_ENC_UNIC_UTF_32LE},
	{enc_viscii,			NULL, XAP_STRING_ID_ENC_VIET_VISCII},
};

static int s_compareQ(const void * a, const void *b)
{
	const enc_entry * A = static_cast<const enc_entry *>(a);
	const enc_entry * B = static_cast<const enc_entry *>(b);

	if (A->id < B->id) 
	{
		return -1;
	}
	else if (A->id > B->id) 
	{
		return 1;
	}
	return 0;
}

static int s_compareB(const void * l, const void *e)
{
	const XML_Char * L   = static_cast<const XML_Char *>(l);
	const enc_entry * E = static_cast<const enc_entry *>(e);
	return UT_strcmp(L, E->encs[0]);
}

bool UT_Encoding::s_Init = true;
UT_uint32 UT_Encoding::s_iCount = 0;


/*!
  Construct encoding class

 Find out which encodings the iconv on this system supports.
 We try several possible names for each encoding.
 If any name is successfully opened it becomes the only name for this encoding.
 If no name is successfully opened the encoding is removed from the table.
 */
UT_Encoding::UT_Encoding()
{
	if (s_Init) //only do this once
	{
		const XAP_StringSet * pSS = XAP_App::getApp()->getStringSet();
		
		// Test all the encodings in our master table
		// Build a list of only those supported by the current iconv
		UT_uint32 iCheckIndex = 0;
		UT_uint32 iOkayIndex = 0;

		while (iCheckIndex < NrElements(s_Table))
		{
			XML_Char * szName = const_cast<XML_Char *>(pSS->getValue(s_Table[iCheckIndex].id));
			XML_Char * szEnc;
			UT_uint32 iAltIndex;
			bool bFound = false;

			UT_DEBUGMSG(("Encoding '%s' = ",s_Table[iCheckIndex].encs[0]));
			for (iAltIndex = 0; (szEnc = s_Table[iCheckIndex].encs[iAltIndex]); ++iAltIndex)
			{
				UT_iconv_t iconv_handle = UT_iconv_open(szEnc,szEnc);
				if (UT_iconv_isValid(iconv_handle))
				{
					bFound = true;
					UT_iconv_close(iconv_handle);
					s_Table[iOkayIndex].encs[0] = szEnc;
					s_Table[iOkayIndex].encs[1] = 0;
					s_Table[iOkayIndex].desc = szName;
					s_Table[iOkayIndex].id = s_Table[iCheckIndex].id;
					UT_DEBUGMSG(("'%s' (alias %d)\n",szEnc,iAltIndex+1));
					++iOkayIndex;
					break;
				}
			}
			if (bFound == false)
			{
				UT_DEBUGMSG(("** Not supported **\n"));
			}
			++iCheckIndex;
		}
		s_iCount = iOkayIndex;

		qsort(s_Table, s_iCount, sizeof(enc_entry), s_compareQ);

		s_Init = false;
	}
}

UT_uint32 UT_Encoding::getCount()
{
	UT_ASSERT (s_Init == false);
	return s_iCount;
}

const XML_Char * UT_Encoding::getNthEncoding(UT_uint32 n)
{
	UT_ASSERT (s_Init == false);
	return (s_Table[n].encs[0]);
}

const XML_Char * UT_Encoding::getNthDescription(UT_uint32 n)
{
	UT_ASSERT (s_Init == false);
	return (s_Table[n].desc);
}


const XML_Char * UT_Encoding::getEncodingFromDescription(const XML_Char * desc)
{
	UT_ASSERT (s_Init == false);
	for (UT_uint32 i = 0; i < s_iCount; i++)
	{
		if (!UT_strcmp(desc, s_Table[i].desc))
		{
			return s_Table[i].encs[0];
		}
	}
	return NULL;
}

UT_uint32 UT_Encoding::getIndxFromEncoding(const XML_Char * enc)
{
	UT_ASSERT(s_Init == false);
	for (UT_uint32 i = 0; i < s_iCount; i++)
	{
		if (!UT_strcmp(enc, s_Table[i].encs[0]))
		{
			return i;
		}
	}
	return 0;
}

UT_uint32 UT_Encoding::getIdFromEncoding(const XML_Char * enc)
{
	UT_ASSERT (s_Init == false);
	enc_entry * e = static_cast<enc_entry *>(bsearch(enc, s_Table, s_iCount, sizeof(enc_entry), s_compareB));
	if (e)
	{
		return e->id;
	}
	else
	{
		return 0;
	}
}

