/*
   PrtView plugin for GtkRadiant
   Copyright (C) 2001 Geoffrey Dewan, Loki software and qeradiant.com

   This library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Lesser General Public
   License as published by the Free Software Foundation; either
   version 2.1 of the License, or (at your option) any later version.

   This library 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
   Lesser General Public License for more details.

   You should have received a copy of the GNU Lesser General Public
   License along with this library; if not, write to the Free Software
   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */

// PrtView.cpp : Defines the initialization routines for the DLL.
//

#include "stdafx.h"
#include <stdio.h>
#include <stdlib.h>

#define Q3R_CMD_SPLITTER "-"
#define Q3R_CMD_ABOUT "About Portal Viewer"
#define Q3R_CMD_LOAD "Load .prt file"
#define Q3R_CMD_RELEASE "Unload .prt file"
#define Q3R_CMD_SHOW_3D "Toggle portals (3D)"
#define Q3R_CMD_SHOW_2D "Toggle portals (2D)"
#define Q3R_CMD_OPTIONS "Configure Portal Viewer"

static char INIfn[NAME_MAX];

/////////////////////////////////////////////////////////////////////////////
// CPrtViewApp construction

#define RENDER_2D "Render2D"
#define WIDTH_2D "Width2D"
#define AA_2D "AntiAlias2D"
#define COLOR_2D "Color2D"

#define RENDER_3D "Render3D"
#define WIDTH_3D "Width3D"
#define AA_3D "AntiAlias3D"
#define COLOR_3D "Color3D"
#define COLOR_FOG "ColorFog"
#define FOG "Fog"
#define ZBUFFER "ZBuffer"
#define POLYGON "Polygons"
#define LINE "Lines"
#define TRANS_3D "Transparency"
#define CLIP_RANGE "ClipRange"
#define CLIP "Clip"

void InitInstance(){
#ifdef _WIN32
	char fn[_MAX_PATH];
	char fn_drive[_MAX_DRIVE];
	char fn_dir[_MAX_DIR];
	char fn_name[_MAX_FNAME];
	char fn_ext[_MAX_EXT];

	GetModuleFileName( GetModuleHandle( "PrtView.dll" ), fn, _MAX_PATH );

	_splitpath( fn, fn_drive, fn_dir, fn_name, fn_ext );

	strcpy( INIfn, fn_drive );
	strcat( INIfn, fn_dir );
	strcat( INIfn, fn_name );
	strcat( INIfn, ".ini" );
#else // if def __linux__
	strcpy( INIfn, g_get_home_dir() );
	strcat( INIfn, "/.radiant/" );
	strcat( INIfn, RADIANT_VERSION );
	strcat( INIfn, "/prtview.ini" );
#endif

	portals.show_2d = INIGetInt( RENDER_2D, FALSE ) ? true : false;
	portals.aa_2d = INIGetInt( AA_2D, FALSE ) ? true : false;
	portals.width_2d = (float)INIGetInt( WIDTH_2D, 10 );
	portals.color_2d = (COLORREF)INIGetInt( COLOR_2D, RGB( 0, 0, 255 ) ) & 0xFFFFFF;

	if ( portals.width_2d > 40.0f ) {
		portals.width_2d = 40.0f;
	}
	else if ( portals.width_2d < 2.0f ) {
		portals.width_2d = 2.0f;
	}

	portals.show_3d = INIGetInt( RENDER_3D, TRUE ) ? true : false;

	portals.zbuffer = INIGetInt( ZBUFFER, 1 );
	portals.fog = INIGetInt( FOG, FALSE ) ? true : false;
	portals.polygons = INIGetInt( POLYGON, TRUE );
	portals.lines = INIGetInt( LINE, TRUE );
	portals.aa_3d = INIGetInt( AA_3D, FALSE ) ? true : false;
	portals.width_3d = (float)INIGetInt( WIDTH_3D, 4 );
	portals.color_3d = (COLORREF)INIGetInt( COLOR_3D, RGB( 255, 255, 0 ) ) & 0xFFFFFF;
	portals.color_fog = (COLORREF)INIGetInt( COLOR_FOG, RGB( 127, 127, 127 ) ) & 0xFFFFFF;
	portals.trans_3d = (float)INIGetInt( TRANS_3D, 50 );
	portals.clip = INIGetInt( CLIP, FALSE ) ? true : false;
	portals.clip_range = (float)INIGetInt( CLIP_RANGE, 16 );

	if ( portals.clip_range < 1 ) {
		portals.clip_range = 1;
	}
	else if ( portals.clip_range > 128 ) {
		portals.clip_range = 128;
	}

	if ( portals.zbuffer < 0 ) {
		portals.zbuffer = 0;
	}
	else if ( portals.zbuffer > 2 ) {
		portals.zbuffer = 0;
	}

	if ( portals.width_3d > 40.0f ) {
		portals.width_3d = 40.0f;
	}
	else if ( portals.width_3d < 2.0f ) {
		portals.width_3d = 2.0f;
	}

	if ( portals.trans_3d > 100.0f ) {
		portals.trans_3d = 100.0f;
	}
	else if ( portals.trans_3d < 0.0f ) {
		portals.trans_3d = 0.0f;
	}

	SaveConfig();

	portals.FixColors();
}

void SaveConfig(){
	INISetInt( RENDER_2D, portals.show_2d, "Draw in 2D windows" );
	INISetInt( WIDTH_2D, (int)portals.width_2d, "Width of lines in 2D windows (in units of 1/2)" );
	INISetInt( COLOR_2D, (int)portals.color_2d, "Color of lines in 2D windows" );
	INISetInt( AA_2D, portals.aa_2d, "Draw lines in 2D window anti-aliased" );

	INISetInt( ZBUFFER, portals.zbuffer, "ZBuffer level in 3D window" );
	INISetInt( FOG, portals.fog, "Use depth cueing in 3D window" );
	INISetInt( POLYGON, portals.polygons, "Render using polygons polygons in 3D window" );
	INISetInt( LINE, portals.polygons, "Render using lines in 3D window" );
	INISetInt( RENDER_3D, portals.show_3d, "Draw in 3D windows" );
	INISetInt( WIDTH_3D, (int)portals.width_3d, "Width of lines in 3D window (in units of 1/2)" );
	INISetInt( COLOR_3D, (int)portals.color_3d, "Color of lines/polygons in 3D window" );
	INISetInt( COLOR_FOG, (int)portals.color_fog, "Color of distant lines/polygons in 3D window" );
	INISetInt( AA_3D, portals.aa_3d, "Draw lines in 3D window anti-aliased" );
	INISetInt( TRANS_3D, (int)portals.trans_3d, "Transparency in 3d view (0 = solid, 100 = invisible)" );
	INISetInt( CLIP, portals.clip, "Cubic clipper active for portal viewer" );
	INISetInt( CLIP_RANGE, (int)portals.clip_range, "Portal viewer cubic clip distance (in units of 64)" );
}

// Radiant function table
// use to access what Radiant provides
_QERFuncTable_1 g_FuncTable;
_QERQglTable g_QglTable;

#define CONFIG_SECTION "Configuration"

#if defined( __linux__ ) || defined( __APPLE__ )

static bool read_var( const char *filename, const char *section, const char *key, char *value ){
	char line[1024], *ptr;
	FILE *rc;

	rc = fopen( filename, "rt" );

	if ( rc == NULL ) {
		return false;
	}

	while ( fgets( line, 1024, rc ) != 0 )
	{
		// First we find the section
		if ( line[0] != '[' ) {
			continue;
		}

		ptr = strchr( line, ']' );
		*ptr = '\0';

		if ( strcmp( &line[1], section ) == 0 ) {
			while ( fgets( line, 1024, rc ) != 0 )
			{
				ptr = strchr( line, '=' );

				if ( ptr == NULL ) {
					// reached the end of the section
					fclose( rc );
					return false;
				}
				*ptr = '\0';

				if ( strcmp( line, key ) == 0 ) {
					strcpy( value, ptr + 1 );
					fclose( rc );

					while ( value[strlen( value ) - 1] == 10 ||
							value[strlen( value ) - 1] == 13 ||
							value[strlen( value ) - 1] == 32 )
						value[strlen( value ) - 1] = 0;
					return true;
				}
			}
		}
	}

	fclose( rc );
	return false;
}

static bool save_var( const char *filename, const char *section, const char *key, const char *value ){
	char line[1024], *ptr;
	FILE *old_rc = NULL, *rc;
	bool found;

	rc = fopen( filename, "rb" );

	if ( rc != NULL ) {
		guint32 len;
		void *buf;

		char *tmpname = g_strdup_printf( "%s.tmp", filename );
		old_rc = fopen( tmpname, "w+b" );
		g_free( tmpname );

		fseek( rc, 0, SEEK_END );
		len = ftell( rc );
		rewind( rc );
		buf = g_malloc( len );
		fread( buf, len, 1, rc );
		fwrite( buf, len, 1, old_rc );
		g_free( buf );
		fclose( rc );
		rewind( old_rc );
	}

	rc = fopen( filename, "wb" );

	if ( rc == NULL ) {
		return false;
	}

	// First we need to find the section
	found = false;
	if ( old_rc != NULL ) {
		while ( fgets( line, 1024, old_rc ) != NULL )
		{
			fputs( line, rc );

			if ( line[0] == '[' ) {
				ptr = strchr( line, ']' );
				*ptr = '\0';

				if ( strcmp( &line[1], section ) == 0 ) {
					found = true;
					break;
				}
			}
		}
	}

	if ( !found ) {
		fputs( "\n", rc );
		fprintf( rc, "[%s]\n", section );
	}

	fprintf( rc, "%s=%s\n", key, value );

	if ( old_rc != NULL ) {
		while ( fgets( line, 1024, old_rc ) != NULL )
		{
			ptr = strchr( line, '=' );

			if ( ptr != NULL ) {
				*ptr = '\0';

				if ( strcmp( line, key ) == 0 ) {
					break;
				}

				*ptr = '=';
				fputs( line, rc );
			}
			else
			{
				fputs( line, rc );
				break;
			}
		}

		while ( fgets( line, 1024, old_rc ) != NULL )
			fputs( line, rc );

		fclose( old_rc );

		char *tmpname = g_strdup_printf( "%s.tmp", filename );
		remove( tmpname );
		g_free( tmpname );
	}

	fclose( rc );

	return true;
}

#endif

int INIGetInt( const char *key, int def ){
#if defined( __linux__ ) || defined( __APPLE__ )
	char value[1024];

	if ( read_var( INIfn, CONFIG_SECTION, key, value ) ) {
		return atoi( value );
	}
	else{
		return def;
	}
#else
	return GetPrivateProfileInt( CONFIG_SECTION, key, def, INIfn );
#endif
}

void INISetInt( const char *key, int val, const char *comment /* = NULL */ ){
	char s[1000];

	if ( comment ) {
		sprintf( s, "%d        ; %s", val, comment );
	}
	else{
		sprintf( s, "%d", val );
	}
#if defined( __linux__ ) || defined( __APPLE__ )
	save_var( INIfn, CONFIG_SECTION, key, s );
#else
	WritePrivateProfileString( CONFIG_SECTION, key, s, INIfn );
#endif
}


// plugin name
static const char *PLUGIN_NAME = "Portal Viewer";
// commands in the menu
static const char *PLUGIN_COMMANDS =
	Q3R_CMD_ABOUT ";"
	Q3R_CMD_SPLITTER ";"
	Q3R_CMD_OPTIONS ";"
	Q3R_CMD_SPLITTER ";"
	Q3R_CMD_SHOW_2D ";"
	Q3R_CMD_SHOW_3D ";"
	Q3R_CMD_SPLITTER ";"
	Q3R_CMD_RELEASE ";"
	Q3R_CMD_LOAD;

extern "C" LPVOID WINAPI QERPlug_GetFuncTable(){
	return &g_FuncTable;
}


//extern "C" LPCSTR WINAPI QERPlug_Init (HMODULE hApp, GtkWidget* hwndMain)
extern "C" const char* QERPlug_Init( void *hApp, void* pMainWidget ){
	// Setup defaults & load config
	InitInstance();

	return "Portal Viewer for Q3Radiant";
}

extern "C" const char* QERPlug_GetName(){
	return (char*)PLUGIN_NAME;
}

extern "C" const char* QERPlug_GetCommandList(){
	return (char*)PLUGIN_COMMANDS;
}

/*
   void Sys_Printf (char *text, ...)
   {
   va_list argptr;
   char buf[32768];

   va_start (argptr,text);
   vsprintf (buf, text, argptr);
   va_end (argptr);

   g_FuncTable.m_pfnSysMsg (buf);
   }
 */

bool interfaces_started = false;

static void CheckInterfaces(){
	if ( interfaces_started ) {
		return;
	}

	render.Register();

	interfaces_started = true;
}

extern "C" void QERPlug_Dispatch( const char* p, vec3_t vMin, vec3_t vMax, bool bSingleBrush ){
	Sys_Printf( MSG_PREFIX "Command \"%s\"\n",p );

	if ( !strcmp( p,Q3R_CMD_ABOUT ) ) {
		DoAboutDlg();
	}
	else if ( !strcmp( p,Q3R_CMD_LOAD ) ) {
		CheckInterfaces();

		if ( interfaces_started ) {
			if ( DoLoadPortalFileDialog() == IDOK ) {
				portals.Load();
				g_FuncTable.m_pfnSysUpdateWindows( UPDATE_ALL );
			}
			else
			{
				Sys_Printf( MSG_PREFIX "Portal file load aborted.\n", portals.fn );
			}
		}
	}
	else if ( !strcmp( p,Q3R_CMD_RELEASE ) ) {
		portals.Purge();

		if ( interfaces_started ) {
			g_FuncTable.m_pfnSysUpdateWindows( UPDATE_ALL );
		}

		Sys_Printf( MSG_PREFIX "Portals unloaded.\n" );
	}
	else if ( !strcmp( p,Q3R_CMD_SHOW_2D ) ) {
		portals.show_2d = !portals.show_2d;

		if ( interfaces_started ) {
			g_FuncTable.m_pfnSysUpdateWindows( UPDATE_ALL );
		}
		SaveConfig();

		if ( portals.show_2d ) {
			Sys_Printf( MSG_PREFIX "Portals will be rendered in 2D view.\n" );
		}
		else{
			Sys_Printf( MSG_PREFIX "Portals will NOT be rendered in 2D view.\n" );
		}
	}
	else if ( !strcmp( p,Q3R_CMD_SHOW_3D ) ) {
		portals.show_3d = !portals.show_3d;
		SaveConfig();

		if ( interfaces_started ) {
			g_FuncTable.m_pfnSysUpdateWindows( UPDATE_ALL );
		}

		if ( portals.show_3d ) {
			Sys_Printf( MSG_PREFIX "Portals will be rendered in 3D view.\n" );
		}
		else{
			Sys_Printf( MSG_PREFIX "Portals will NOT be rendered in 3D view.\n" );
		}
	}
	else if ( !strcmp( p,Q3R_CMD_OPTIONS ) ) {
		DoConfigDialog();
		SaveConfig();

		if ( interfaces_started ) {
			g_FuncTable.m_pfnSysUpdateWindows( UPDATE_ALL );
		}
	}
}



// =============================================================================
// SYNAPSE

class CSynapseClientPrtView : public CSynapseClient
{
public:
// CSynapseClient API
bool RequestAPI( APIDescriptor_t *pAPI );
const char* GetInfo();

CSynapseClientPrtView() { }
virtual ~CSynapseClientPrtView() { }
};


CSynapseServer* g_pSynapseServer = NULL;
CSynapseClientPrtView g_SynapseClient;

#if __GNUC__ >= 4
#pragma GCC visibility push(default)
#endif
extern "C" CSynapseClient * SYNAPSE_DLL_EXPORT Synapse_EnumerateInterfaces( const char *version, CSynapseServer *pServer ) {
#if __GNUC__ >= 4
#pragma GCC visibility pop
#endif
	if ( strcmp( version, SYNAPSE_VERSION ) ) {
		Syn_Printf( "ERROR: synapse API version mismatch: should be '" SYNAPSE_VERSION "', got '%s'\n", version );
		return NULL;
	}
	g_pSynapseServer = pServer;
	g_pSynapseServer->IncRef();
	Set_Syn_Printf( g_pSynapseServer->Get_Syn_Printf() );

	g_SynapseClient.AddAPI( PLUGIN_MAJOR, PRTVIEW_MINOR, sizeof( _QERPluginTable ) );

	g_SynapseClient.AddAPI( RADIANT_MAJOR, NULL, sizeof( g_FuncTable ), SYN_REQUIRE, &g_FuncTable );
	g_SynapseClient.AddAPI( QGL_MAJOR, NULL, sizeof( g_QglTable ), SYN_REQUIRE, &g_QglTable );

	return &g_SynapseClient;
}

bool CSynapseClientPrtView::RequestAPI( APIDescriptor_t *pAPI ){
	if ( !strcmp( pAPI->major_name, PLUGIN_MAJOR ) ) {
		if ( !strcmp( pAPI->minor_name, PRTVIEW_MINOR ) ) {
			_QERPluginTable* pTable = static_cast<_QERPluginTable*>( pAPI->mpTable );

			pTable->m_pfnQERPlug_Init = QERPlug_Init;
			pTable->m_pfnQERPlug_GetName = QERPlug_GetName;
			pTable->m_pfnQERPlug_GetCommandList = QERPlug_GetCommandList;
			pTable->m_pfnQERPlug_Dispatch = QERPlug_Dispatch;
			return true;
		}
	}

	Syn_Printf( "ERROR: RequestAPI( '%s' ) not found in '%s'\n", pAPI->major_name, GetInfo() );
	return false;
}

#include "version.h"

const char* CSynapseClientPrtView::GetInfo(){
	return "PrtView module built " __DATE__ " " RADIANT_VERSION;
}