//
// Language plugin support
//
#include "VirtuaNESres.h"

#include "Pathlib.h"
#include "DebugOut.h"

#include "Plugin.h"
#include "LuaExt.h"

#pragma	comment(lib, "version.lib")

typedef	INT	(__cdecl *GETVLPVERSION)();
typedef	void	(__cdecl *GETVLPLANGUAGE)( LPSTR );
typedef LCID	(__cdecl *GETVLPLOCALEID)();

INT	CPlugin::m_PluginID = 0;
INT	CPlugin::m_PluginNum = 0;
CPlugin::PLUGIN	CPlugin::m_Plugin[PLUGIN_MAX];

HINSTANCE CPlugin::LoadPlugin()
{
	return	LoadPluginID( m_PluginID );
}

HINSTANCE CPlugin::LoadPluginID( INT nID )
{
	return ::LoadLibrary( m_Plugin[nID].Path );
}

BOOL	CPlugin::FindPlugin( LPCSTR lpModulePath )
{
	m_PluginNum = 0;

	string	Path = CPathlib::MakePath( lpModulePath, "*.vlp" );

	WIN32_FIND_DATA	find;
	HANDLE hFind = ::FindFirstFile( Path.c_str(), &find );
	if( hFind == INVALID_HANDLE_VALUE )
		return	FALSE;

	HINSTANCE	hDLL;
	GETVLPVERSION	GetVlpVersion = NULL;
	GETVLPLANGUAGE	GetVlpLanguage = NULL;
	GETVLPLOCALEID	GetVlpLocaleID = NULL;

	BOOL	bFind = TRUE;
	COMLOGF(RT_D_DEBUG, "CPlugin::FindPlugin( LPCSTR lpModulePath )");
	while( bFind ) {
		DWORD	dwHandle;
		DWORD	dwSize = ::GetFileVersionInfoSize( find.cFileName, &dwHandle );

		if( dwSize && (hDLL = ::LoadLibrary( find.cFileName )) ) {
			GetVlpVersion  = (GETVLPVERSION) ::GetProcAddress( hDLL, "GetVlpVersion" );
			GetVlpLanguage = (GETVLPLANGUAGE)::GetProcAddress( hDLL, "GetVlpLanguage" );
			GetVlpLocaleID = (GETVLPLOCALEID)::GetProcAddress( hDLL, "GetVlpLocaleID" );
			if( !(!GetVlpVersion || !GetVlpLanguage || !GetVlpLocaleID) ) {
				INT	ver = GetVlpVersion();

				if( ver >= VIRTUANES_PLUGIN_VERSION ) {
					m_Plugin[m_PluginNum].LocaleID = GetVlpLocaleID();
					string	Path = CPathlib::MakePath( lpModulePath, find.cFileName );
					::strcpy( m_Plugin[m_PluginNum].Path, Path.c_str() );
					GetVlpLanguage( m_Plugin[m_PluginNum].Language );
					m_Plugin[m_PluginNum].VirtuanesInit =  (LUA_FUNCTION)::GetProcAddress( hDLL, "VirtuanesInit" );
					m_Plugin[m_PluginNum].SetTricks =  (SET_TRICKS)::GetProcAddress( hDLL, "SetTricks" );
					m_Plugin[m_PluginNum].SetTrickName =  (SET_TRICKNAME)::GetProcAddress( hDLL, "SetTrickName" );
					m_PluginNum++;
				}
			}

			::FreeLibrary( hDLL );
		}

		bFind = ::FindNextFile( hFind, &find );

		if( m_PluginNum >= PLUGIN_MAX )
			break;
	}

	::FindClose( hFind );

	LCID	lcid = ::GetUserDefaultLCID();
	for( INT no = 0; no < m_PluginNum; no++ ) {
		if( m_Plugin[no].LocaleID == lcid ) {
			m_PluginID = no;
			return	TRUE;
		}
	}

	return	TRUE;
}

void  CPlugin::VirtuanesInit( void )
{
	std::string	pathstr, tempstr;
	if( Config.path.bLuaPath ) {
		pathstr = CPathlib::CreatePath( CApp::GetModulePath(), Config.path.szLuaPath );
		tempstr = CPathlib::MakePathExt( pathstr.c_str(), "virtuanes_int", "lua" );
		if ( m_Plugin[m_PluginID].VirtuanesInit  ){
			m_Plugin[m_PluginID].VirtuanesInit( tempstr.c_str());
		}
	} 
	return ;
}