/*

Miranda IM: the free IM client for Microsoft* Windows*

Copyright 2000-2009 Miranda ICQ/IM project, 
all portions of this codebase are copyrighted to the people 
listed in contributors.txt.

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 "..\..\core\commonheaders.h"

#define FLAGS LANG_UNICODE

LangPackMuuid* __fastcall LangPackLookupUuid( WPARAM );
int LangPackMarkPluginLoaded( PLUGININFOEX* pInfo );

/////////////////////////////////////////////////////////////////////////////////////////

static INT_PTR TranslateString(WPARAM wParam, LPARAM lParam)
{
	return (INT_PTR)LangPackTranslateString( LangPackLookupUuid(wParam), (const char *)lParam, (wParam & LANG_UNICODE) ? 1 : 0);
}

TCHAR* LangPackTranslateStringT(int hLangpack, const TCHAR* tszEnglish)
{
	LangPackMuuid* pUuid = (hLangpack) ? LangPackLookupUuid(hLangpack) : 0;
	return (TCHAR*)LangPackTranslateString(pUuid, (LPCSTR)tszEnglish, 1);
}

/////////////////////////////////////////////////////////////////////////////////////////

static INT_PTR TranslateMenu(WPARAM wParam, LPARAM lParam)
{
	HMENU hMenu = ( HMENU )wParam;
	LangPackMuuid* uuid = LangPackLookupUuid( lParam );

	MENUITEMINFO mii;
	mii.cbSize = MENUITEMINFO_V4_SIZE;
	for (int i = GetMenuItemCount( hMenu )-1; i >= 0; i--) {
		TCHAR str[256];
		mii.fMask = MIIM_TYPE|MIIM_SUBMENU;
		mii.dwTypeData = ( TCHAR* )str;
		mii.cch = SIZEOF(str);
		GetMenuItemInfo(hMenu, i, TRUE, &mii);

		if ( mii.cch && mii.dwTypeData ) {
			TCHAR* result = ( TCHAR* )LangPackTranslateString( uuid, ( const char* )mii.dwTypeData, FLAGS );
			if ( result != mii.dwTypeData ) {
				mii.dwTypeData = result;
				mii.fMask = MIIM_TYPE;
				SetMenuItemInfo( hMenu, i, TRUE, &mii );
		}	}

		if ( mii.hSubMenu != NULL ) TranslateMenu(( WPARAM )mii.hSubMenu, lParam );
	}
	return 0;
}

/////////////////////////////////////////////////////////////////////////////////////////

static void TranslateWindow( LangPackMuuid* pUuid, HWND hwnd )
{
	TCHAR title[2048];
	GetWindowText(hwnd, title, SIZEOF( title ));
	{
		TCHAR* result = ( TCHAR* )LangPackTranslateString( pUuid, ( const char* )title, FLAGS );
		if ( result != title )
			SetWindowText(hwnd, result );
}	}

static BOOL CALLBACK TranslateDialogEnumProc(HWND hwnd, LPARAM lParam)
{
	LANGPACKTRANSLATEDIALOG *lptd = (LANGPACKTRANSLATEDIALOG*)lParam;
	TCHAR szClass[32];
	int i, id = GetDlgCtrlID( hwnd );

	if ( lptd->ignoreControls != NULL )
		for ( i=0; lptd->ignoreControls[i]; i++ )
			if ( lptd->ignoreControls[i] == id )
				return TRUE;

	LangPackMuuid* uuid = LangPackLookupUuid( lptd->flags );

	GetClassName( hwnd, szClass, SIZEOF(szClass));
	if (!lstrcmpi(szClass, _T("static")) || !lstrcmpi(szClass, _T("hyperlink")) || !lstrcmpi(szClass, _T("button")) || !lstrcmpi(szClass, _T("MButtonClass")) || !lstrcmpi(szClass, _T("MHeaderbarCtrl")))
		TranslateWindow( uuid, hwnd );
	else if ( !lstrcmpi( szClass, _T("edit"))) {
		if ( lptd->flags & LPTDF_NOIGNOREEDIT || GetWindowLongPtr(hwnd, GWL_STYLE) & ES_READONLY )
			TranslateWindow( uuid, hwnd );
	}
	return TRUE;
}

static INT_PTR TranslateDialog(WPARAM wParam, LPARAM lParam)
{
	LANGPACKTRANSLATEDIALOG *lptd = (LANGPACKTRANSLATEDIALOG*)lParam;
	if ( lptd == NULL || lptd->cbSize != sizeof(LANGPACKTRANSLATEDIALOG))
		return 1;

	if ( !( lptd->flags & LPTDF_NOTITLE ))
		TranslateWindow( LangPackLookupUuid( lptd->flags ), lptd->hwndDlg );

	EnumChildWindows( lptd->hwndDlg, TranslateDialogEnumProc, lParam );
	return 0;
}

/////////////////////////////////////////////////////////////////////////////////////////

static INT_PTR LPRegister(WPARAM wParam, LPARAM lParam)
{
	*( int* )wParam = LangPackMarkPluginLoaded(( PLUGININFOEX* )lParam );
	return 0;
}

/////////////////////////////////////////////////////////////////////////////////////////

static INT_PTR GetDefaultCodePage(WPARAM, LPARAM)
{
	return LangPackGetDefaultCodePage();
}

/////////////////////////////////////////////////////////////////////////////////////////

static INT_PTR GetDefaultLocale(WPARAM, LPARAM)
{
	return LangPackGetDefaultLocale();
}

/////////////////////////////////////////////////////////////////////////////////////////

static INT_PTR PcharToTchar(WPARAM wParam, LPARAM lParam)
{
	char* pszStr = ( char* )lParam;
	if ( pszStr == NULL )
		return NULL;

	LangPackMuuid* uuid = LangPackLookupUuid( wParam );

	{	int len = (int)strlen( pszStr );
		TCHAR* result = ( TCHAR* )alloca(( len+1 )*sizeof( TCHAR ));
		MultiByteToWideChar( LangPackGetDefaultCodePage(), 0, pszStr, -1, result, len );
		result[len] = 0;
		return ( INT_PTR )mir_wstrdup(( wchar_t* )LangPackTranslateString( uuid, ( char* )result, 1 ));
	}
}

/////////////////////////////////////////////////////////////////////////////////////////

INT_PTR ReloadLangpack(WPARAM wParam, LPARAM lParam);

int LoadLangPackServices(void)
{
	CreateServiceFunction(MS_LANGPACK_TRANSLATESTRING, TranslateString);
	CreateServiceFunction(MS_LANGPACK_TRANSLATEMENU, TranslateMenu);
	CreateServiceFunction(MS_LANGPACK_TRANSLATEDIALOG, TranslateDialog);
	CreateServiceFunction(MS_LANGPACK_GETCODEPAGE, GetDefaultCodePage);
	CreateServiceFunction(MS_LANGPACK_GETLOCALE, GetDefaultLocale);
	CreateServiceFunction(MS_LANGPACK_PCHARTOTCHAR, PcharToTchar);
	CreateServiceFunction(MS_LANGPACK_REGISTER, LPRegister);
	CreateServiceFunction(MS_LANGPACK_RELOAD, ReloadLangpack);
	return 0;
}