/*
BobToolz plugin for GtkRadiant
Copyright (C) 2001 Gordon Biggans

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
*/

#include "CPortals.h"

#include <string.h>
#include <math.h>

#include "misc.h"

#define LINE_BUF 1000
#define MSG_PREFIX "bobToolz plugin: "

// these classes are far less of a mess than my code was, 
// thanq to G.DeWan 4 the prtview source on which it was based

CBspPortal::CBspPortal()
{
	memset(this, 0, sizeof(CBspPortal));
}

CBspPortal::~CBspPortal()
{
	delete[] point;
}

void ClampFloat(float* p)
{
	double i;
	double frac = modf(*p, &i);

	if(!frac)
		return;

	if(fabs(*p - ceil(*p)) < MAX_ROUND_ERROR)
		*p = static_cast<float>(ceil(*p));

	if(fabs(*p - floor(*p)) < MAX_ROUND_ERROR)
		*p = static_cast<float>(floor(*p));
}

bool CBspPortal::Build(char *def, unsigned int pointCnt, bool bInverse)
{
	char *c = def;
	unsigned int n;

	point_count = pointCnt;

	if(point_count < 3)
		return false;

	point = new CBspPoint[point_count];

	for(n = 0; n < point_count; n++)
	{
		for(; *c != 0 && *c != '('; c++);

		if(*c == 0)
			return false;

		c++;

		int x;
		if(bInverse)
			x = point_count - n - 1;
		else
			x = n;

		sscanf(c, "%f %f %f", &point[x].p[0], &point[x].p[1], &point[x].p[2]);

		ClampFloat(&point[x].p[0]);
		ClampFloat(&point[x].p[1]);
		ClampFloat(&point[x].p[2]);
	}

	return true;
}

CPortals::CPortals()
{
	memset(this, 0, sizeof(CPortals));
}

CPortals::~CPortals()
{
	Purge();
}

void CPortals::Purge()
{
	if(node)
		delete[] node;
	node = NULL;
	node_count = 0;
}

void CPortals::Load()
{
	char buf[LINE_BUF+1];

	memset(buf, 0, LINE_BUF + 1);
	
	Purge();

	globalOutputStream() << MSG_PREFIX "Loading portal file " << fn << ".\n";

	FILE *in;

	in = fopen(fn, "rt");

	if(in == NULL)
	{
		globalOutputStream() << "  ERROR - could not open file.\n";

		return;
	}

	if(!fgets(buf, LINE_BUF, in))
	{
		fclose(in);

		globalOutputStream() << "  ERROR - File ended prematurely.\n";

		return;
	}

	if(strncmp("PRT1", buf, 4) != 0)
	{
		fclose(in);

		globalOutputStream() << "  ERROR - File header indicates wrong file type (should be \"PRT1\").\n";

		return;
	}

	if(!fgets(buf, LINE_BUF, in))
	{
		fclose(in);

		globalOutputStream() << "  ERROR - File ended prematurely.\n";

		return;
	}

	sscanf(buf, "%u", &node_count);

	if(node_count > 0xFFFF)
	{
		fclose(in);

		node_count = 0;

		globalOutputStream() << "  ERROR - Extreme number of nodes, aborting.\n";

		return;
	}

	if(!fgets(buf, LINE_BUF, in))
	{
		fclose(in);

		node_count = 0;

		globalOutputStream() << "  ERROR - File ended prematurely.\n";

		return;
	}

	unsigned int p_count;
	sscanf(buf, "%u", &p_count);

	if(!fgets(buf, LINE_BUF, in))
	{
		fclose(in);

		node_count = 0;

		globalOutputStream() << "  ERROR - File ended prematurely.\n";

		return;
	}

	unsigned int p_count2;
	sscanf(buf, "%u", &p_count2);

	node = new CBspNode[node_count];

	unsigned int i;
	for(i = 0; i < p_count; i++)
	{
		if(!fgets(buf, LINE_BUF, in))
		{
			fclose(in);

			node_count = 0;

			globalOutputStream() << "  ERROR - File ended prematurely.\n";

			return;
		}

		unsigned int dummy, node1, node2;
		sscanf(buf, "%u %u %u", &dummy, &node1, &node2);

		node[node1].portal_count++;
		node[node2].portal_count++;
	}

	for(i = 0; i < p_count2; i++)
	{
		if(!fgets(buf, LINE_BUF, in))
		{
			fclose(in);

			node_count = 0;

			globalOutputStream() << "  ERROR - File ended prematurely.\n";

			return;
		}

		unsigned int dummy, node1;
		sscanf(buf, "%u %u", &dummy, &node1);

		node[node1].portal_count++;
	}

	for(i = 0; i < node_count; i++)
		node[i].portal = new CBspPortal[node[i].portal_count];

	fclose(in);

	in = fopen(fn, "rt");

	fgets(buf, LINE_BUF, in);
	fgets(buf, LINE_BUF, in);
	fgets(buf, LINE_BUF, in);
	fgets(buf, LINE_BUF, in);

	unsigned int n;
	for(n = 0; n < p_count; n++)
	{
		if(!fgets(buf, LINE_BUF, in))
		{
			fclose(in);

			Purge();

			globalOutputStream() << "  ERROR - Could not find information for portal number " << n + 1 << " of " << p_count << ".\n";

			return;
		}

		unsigned int pCount, node1, node2;
		sscanf(buf, "%u %u %u", &pCount, &node1, &node2);

		if(!node[node1].AddPortal(buf, pCount, false))
		{
			fclose(in);

			Purge();

			globalOutputStream() << "  ERROR - Information for portal number " << n + 1 << " of " << p_count << " is not formatted correctly.\n";

			return;
		}

		if(!node[node2].AddPortal(buf, pCount, true))
		{
			fclose(in);

			Purge();

			globalOutputStream() << "  ERROR - Information for portal number " << n + 1 << " of " << p_count << " is not formatted correctly.\n";

			return;
		}
	}

 for(n = 0; n < p_count2; n++)
	{
		if(!fgets(buf, LINE_BUF, in))
		{
			fclose(in);

			Purge();

			globalOutputStream() << "  ERROR - Could not find information for portal number " << n + 1 << " of " << p_count << ".\n";

			return;
		}

		unsigned int pCount, node1;
		sscanf(buf, "%u %u", &pCount, &node1);

		if(!node[node1].AddPortal(buf, pCount, false))
		{
			fclose(in);

			Purge();

			globalOutputStream() << "  ERROR - Information for portal number " << n + 1 << " of " << p_count << " is not formatted correctly.\n";

			return;
		}
	}

	fclose(in);
}

CBspNode::CBspNode()
{
	portal = NULL;
	portal_count = 0;
	portal_next = 0;
}

CBspNode::~CBspNode()
{
	if(portal != NULL)
		delete[] portal;
}

bool CBspNode::AddPortal(char *def, unsigned int pointCnt, bool bInverse)
{
	return portal[portal_next++].Build(def, pointCnt, bInverse);
}