/**
 * @file bspfile.c
 * @brief
 */

/*
Copyright (C) 1997-2001 Id Software, 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 "cmdlib.h"
#include "mathlib.h"
#include "bspfile.h"
#include "scriplib.h"

void GetLeafNums (void);

int nummodels;
dmodel_t dmodels[MAX_MAP_MODELS];

int routedatasize;
byte droutedata[MAX_MAP_ROUTING];

int lightdatasize;
byte dlightdata[MAX_MAP_LIGHTING];

static int entdatasize;
static char dentdata[MAX_MAP_ENTSTRING];

int numleafs;
dleaf_t dleafs[MAX_MAP_LEAFS];

int numplanes;
dplane_t dplanes[MAX_MAP_PLANES];

int numvertexes;
dvertex_t dvertexes[MAX_MAP_VERTS];

int numnodes;
dnode_t dnodes[MAX_MAP_NODES];

int numtexinfo;
texinfo_t texinfo[MAX_MAP_TEXINFO];

int numfaces;
dface_t dfaces[MAX_MAP_FACES];

int numedges;
dedge_t dedges[MAX_MAP_EDGES];

int numleaffaces;
unsigned short dleaffaces[MAX_MAP_LEAFFACES];

int numleafbrushes;
unsigned short dleafbrushes[MAX_MAP_LEAFBRUSHES];

int numsurfedges;
int dsurfedges[MAX_MAP_SURFEDGES];

int numbrushes;
dbrush_t dbrushes[MAX_MAP_BRUSHES];

int numbrushsides;
dbrushside_t dbrushsides[MAX_MAP_BRUSHSIDES];

/**
 * @brief Compress the routing data of a map
 * @sa DeCompressRouting
 */
extern byte *CompressRouting( byte *dataStart, byte *destStart, int l )
{
	int c;
	byte val;
	byte *data, *dend, *dest_p, *count_p;

	dest_p = destStart;
	data = dataStart;
	dend = dataStart + l;

	while (data < dend) {
		if (data + 1 < dend && *data == *(data + 1)) {
			/* repetitions */
			val = *data++;
			c = 0;
			while (data + 1 < dend && *data == *(data + 1)) {
				if (c >= 0x7F)
					break;
				data++;
				c++;
			}
			*dest_p++ = c | 0x80;
			*dest_p++ = val;
		} else {
			/* identities */
			count_p = dest_p++;
			c = 0;
			while ((data + 1 < dend && *data != *(data + 1)) || data == dend - 1) {
				if (c >= 0x7F)
					break;
				*dest_p++ = *data++;
				c++;
			}
			*count_p = c;
		}
	}

	/* terminate compressed data */
	*dest_p++ = 0;

	return dest_p;
}

#if 0
/**
 * @brief
 * @sa CompressRouting
 * @note unused
 */
extern int DeCompressRouting( byte **source, byte *dataStart )
{
	int	i, c;
	byte	*data_p;
	byte	*src;

	data_p = dataStart;
	src = *source;

	while (*src) {
		if (*src & 0x80) {
			/* repetitions */
			c = *src++ & ~0x80;
			for (i = 0; i < c+1; i++)
				*data_p++ = *src;
			src++;
		} else {
			/* identities */
			c = *src++;
			for (i = 0; i < c; i++)
				*data_p++ = *src++;
		}
	}

	src++;
	*source = src;

	return data_p - dataStart;
}
#endif

/**
 * @brief Byte swaps all data in a bsp file.
 */
static void SwapBSPFile (qboolean todisk)
{
	int i, j;
	dmodel_t *d;

	/* models	 */
	for (i = 0; i < nummodels; i++) {
		d = &dmodels[i];

		d->firstface = LittleLong(d->firstface);
		d->numfaces = LittleLong(d->numfaces);
		d->headnode = LittleLong(d->headnode);

		for (j = 0; j < 3; j++) {
			d->mins[j] = LittleFloat(d->mins[j]);
			d->maxs[j] = LittleFloat(d->maxs[j]);
			d->origin[j] = LittleFloat(d->origin[j]);
		}
	}

	/* vertexes */
	for (i = 0; i < numvertexes; i++) {
		for (j = 0; j < 3; j++)
			dvertexes[i].point[j] = LittleFloat(dvertexes[i].point[j]);
	}

	/* planes */
	for (i = 0; i < numplanes; i++) {
		for (j = 0; j < 3; j++)
			dplanes[i].normal[j] = LittleFloat(dplanes[i].normal[j]);
		dplanes[i].dist = LittleFloat(dplanes[i].dist);
		dplanes[i].type = LittleLong(dplanes[i].type);
	}

	/* texinfos */
	for (i = 0; i < numtexinfo; i++) {
		for (j = 0; j < 8; j++)
			texinfo[i].vecs[0][j] = LittleFloat(texinfo[i].vecs[0][j]);
		texinfo[i].flags = LittleLong(texinfo[i].flags);
		texinfo[i].value = LittleLong(texinfo[i].value);
		texinfo[i].nexttexinfo = LittleLong(texinfo[i].nexttexinfo);
	}

	/* faces */
	for (i = 0; i < numfaces; i++) {
		dfaces[i].texinfo = LittleShort(dfaces[i].texinfo);
		dfaces[i].planenum = LittleShort(dfaces[i].planenum);
		dfaces[i].side = LittleShort(dfaces[i].side);
		dfaces[i].lightofs = LittleLong(dfaces[i].lightofs);
		dfaces[i].firstedge = LittleLong(dfaces[i].firstedge);
		dfaces[i].numedges = LittleShort(dfaces[i].numedges);
	}

	/* nodes */
	for (i = 0; i < numnodes; i++) {
		dnodes[i].planenum = LittleLong(dnodes[i].planenum);
		for (j = 0; j < 3; j++) {
			dnodes[i].mins[j] = LittleShort(dnodes[i].mins[j]);
			dnodes[i].maxs[j] = LittleShort(dnodes[i].maxs[j]);
		}
		dnodes[i].children[0] = LittleLong(dnodes[i].children[0]);
		dnodes[i].children[1] = LittleLong(dnodes[i].children[1]);
		dnodes[i].firstface = LittleShort(dnodes[i].firstface);
		dnodes[i].numfaces = LittleShort(dnodes[i].numfaces);
	}

	/* leafs */
	for (i = 0; i < numleafs; i++) {
		dleafs[i].contents = LittleLong(dleafs[i].contents);
		dleafs[i].cluster = LittleShort(dleafs[i].cluster);
		dleafs[i].area = LittleShort(dleafs[i].area);
		for (j = 0; j < 3; j++) {
			dleafs[i].mins[j] = LittleShort(dleafs[i].mins[j]);
			dleafs[i].maxs[j] = LittleShort(dleafs[i].maxs[j]);
		}

		dleafs[i].firstleafface = LittleShort(dleafs[i].firstleafface);
		dleafs[i].numleaffaces = LittleShort(dleafs[i].numleaffaces);
		dleafs[i].firstleafbrush = LittleShort(dleafs[i].firstleafbrush);
		dleafs[i].numleafbrushes = LittleShort(dleafs[i].numleafbrushes);
	}

	/* leaffaces */
	for (i = 0; i < numleaffaces; i++)
		dleaffaces[i] = LittleShort(dleaffaces[i]);

	/* leafbrushes */
	for (i = 0; i < numleafbrushes; i++)
		dleafbrushes[i] = LittleShort(dleafbrushes[i]);

	/* surfedges */
	for (i = 0; i < numsurfedges; i++)
		dsurfedges[i] = LittleLong(dsurfedges[i]);

	/* edges */
	for (i = 0; i < numedges; i++) {
		dedges[i].v[0] = LittleShort(dedges[i].v[0]);
		dedges[i].v[1] = LittleShort(dedges[i].v[1]);
	}

	/* brushes */
	for (i = 0; i < numbrushes; i++) {
		dbrushes[i].firstside = LittleLong(dbrushes[i].firstside);
		dbrushes[i].numsides = LittleLong(dbrushes[i].numsides);
		dbrushes[i].contents = LittleLong(dbrushes[i].contents);
	}

	/* brushsides */
	for (i = 0; i < numbrushsides; i++) {
		dbrushsides[i].planenum = LittleShort(dbrushsides[i].planenum);
		dbrushsides[i].texinfo = LittleShort(dbrushsides[i].texinfo);
	}

#if 0
	/* visibility */
	if (todisk)
		j = dvis->numclusters;
	else
		j = LittleLong(dvis->numclusters);
	dvis->numclusters = LittleLong(dvis->numclusters);
	for (i = 0; i < j; i++) {
		dvis->bitofs[i][0] = LittleLong(dvis->bitofs[i][0]);
		dvis->bitofs[i][1] = LittleLong(dvis->bitofs[i][1]);
	}
#endif
}


dheader_t	*header;

/**
 * @brief
 */
static int CopyLump (int lump, void *dest, int size)
{
	int length, ofs;

	length = header->lumps[lump].filelen;
	ofs = header->lumps[lump].fileofs;

	if (length % size)
		Error("LoadBSPFile: odd lump size");

	memcpy(dest, (byte *)header + ofs, length);

	return length / size;
}

/**
 * @brief
 */
extern void LoadBSPFile (char *filename)
{
	int i;

	/* load the file header */
	LoadFile(filename, (void **)&header);

	/* swap the header */
	for (i = 0; i < sizeof(dheader_t) / 4; i++)
		((int *)header)[i] = LittleLong(((int *)header)[i]);

	if (header->ident != IDBSPHEADER)
		Error("%s is not a IBSP file", filename);
	if (header->version != BSPVERSION)
		Error("%s is version %i, not %i", filename, header->version, BSPVERSION);

	nummodels = CopyLump(LUMP_MODELS, dmodels, sizeof(dmodel_t));
	numvertexes = CopyLump(LUMP_VERTEXES, dvertexes, sizeof(dvertex_t));
	numplanes = CopyLump(LUMP_PLANES, dplanes, sizeof(dplane_t));
	numleafs = CopyLump(LUMP_LEAFS, dleafs, sizeof(dleaf_t));
	numnodes = CopyLump(LUMP_NODES, dnodes, sizeof(dnode_t));
	numtexinfo = CopyLump(LUMP_TEXINFO, texinfo, sizeof(texinfo_t));
	numfaces = CopyLump(LUMP_FACES, dfaces, sizeof(dface_t));
	numleaffaces = CopyLump(LUMP_LEAFFACES, dleaffaces, sizeof(dleaffaces[0]));
	numleafbrushes = CopyLump(LUMP_LEAFBRUSHES, dleafbrushes, sizeof(dleafbrushes[0]));
	numsurfedges = CopyLump(LUMP_SURFEDGES, dsurfedges, sizeof(dsurfedges[0]));
	numedges = CopyLump(LUMP_EDGES, dedges, sizeof(dedge_t));
	numbrushes = CopyLump(LUMP_BRUSHES, dbrushes, sizeof(dbrush_t));
	numbrushsides = CopyLump(LUMP_BRUSHSIDES, dbrushsides, sizeof(dbrushside_t));

	routedatasize = CopyLump(LUMP_ROUTING, droutedata, 1);
	lightdatasize = CopyLump(LUMP_LIGHTING, dlightdata, 1);
	entdatasize = CopyLump(LUMP_ENTITIES, dentdata, 1);

	free(header);		/* everything has been copied out */

	/* swap everything */
	SwapBSPFile(qfalse);
}


/**
 * @brief Only loads the texinfo lump, so qdata can scan for textures
 */
extern void LoadBSPFileTexinfo (char *filename)
{
	int i, length, ofs;
	FILE *f;

	header = malloc(sizeof(dheader_t));

	f = fopen(filename, "rb");
	if (fread(header, sizeof(dheader_t), 1, f) != 1) {
		Sys_Printf("LoadBSPFileTexinfo: Header size mismatch\n");
		free(header);
		return;
	}

	/* swap the header */
	for (i = 0; i < sizeof(dheader_t) / 4; i++)
		((int *)header)[i] = LittleLong(((int *)header)[i]);

	if (header->ident != IDBSPHEADER)
		Error("%s is not a IBSP file", filename);
	if (header->version != BSPVERSION)
		Error("%s is version %i, not %i", filename, header->version, BSPVERSION);

	length = header->lumps[LUMP_TEXINFO].filelen;
	ofs = header->lumps[LUMP_TEXINFO].fileofs;

	fseek(f, ofs, SEEK_SET);
	if (fread(texinfo, length, 1, f) != 1)
		Sys_Printf("LoadBSPFileTexInfo: Warning, read error\n");
	fclose(f);

	numtexinfo = length / sizeof(texinfo_t);

	free(header);		/* everything has been copied out */

	SwapBSPFile(qfalse);
}


static FILE *wadfile;
static dheader_t outheader;

/**
 * @brief
 */
static void AddLump (int lumpnum, void *data, int len)
{
	lump_t *lump;

	lump = &header->lumps[lumpnum];

	lump->fileofs = LittleLong(ftell(wadfile));
	lump->filelen = LittleLong(len);
	SafeWrite(wadfile, data, (len + 3) &~ 3);
}

/**
 * @brief Swaps the bsp file in place, so it should not be referenced again
 */
extern void WriteBSPFile (const char *filename)
{
	header = &outheader;
	memset(header, 0, sizeof(dheader_t));

	SwapBSPFile(qtrue);

	header->ident = LittleLong(IDBSPHEADER);
	header->version = LittleLong(BSPVERSION);

	wadfile = SafeOpenWrite(filename);
	SafeWrite(wadfile, header, sizeof(dheader_t));	/* overwritten later */

	AddLump(LUMP_PLANES, dplanes, numplanes*sizeof(dplane_t));
	AddLump(LUMP_LEAFS, dleafs, numleafs*sizeof(dleaf_t));
	AddLump(LUMP_VERTEXES, dvertexes, numvertexes*sizeof(dvertex_t));
	AddLump(LUMP_NODES, dnodes, numnodes*sizeof(dnode_t));
	AddLump(LUMP_TEXINFO, texinfo, numtexinfo*sizeof(texinfo_t));
	AddLump(LUMP_FACES, dfaces, numfaces*sizeof(dface_t));
	AddLump(LUMP_BRUSHES, dbrushes, numbrushes*sizeof(dbrush_t));
	AddLump(LUMP_BRUSHSIDES, dbrushsides, numbrushsides*sizeof(dbrushside_t));
	AddLump(LUMP_LEAFFACES, dleaffaces, numleaffaces*sizeof(dleaffaces[0]));
	AddLump(LUMP_LEAFBRUSHES, dleafbrushes, numleafbrushes*sizeof(dleafbrushes[0]));
	AddLump(LUMP_SURFEDGES, dsurfedges, numsurfedges*sizeof(dsurfedges[0]));
	AddLump(LUMP_EDGES, dedges, numedges*sizeof(dedge_t));
	AddLump(LUMP_MODELS, dmodels, nummodels*sizeof(dmodel_t));

	AddLump(LUMP_LIGHTING, dlightdata, lightdatasize);
	/* removed LUMP_VISIBILITY and use LUMP_ROUTING */
	AddLump(LUMP_ROUTING, droutedata, routedatasize);
	AddLump(LUMP_ENTITIES, dentdata, entdatasize);

	fseek(wadfile, 0, SEEK_SET);
	SafeWrite(wadfile, header, sizeof(dheader_t));
	fclose(wadfile);
	SwapBSPFile(qtrue);
}

/**
 * @brief Dumps info about current file
 * @note Used in bspinfo3
 */
extern void PrintBSPFileSizes (void)
{
	if (!num_entities)
		ParseEntities();

	Sys_Printf("%5i models       %7i\n"
		,nummodels, (int)(nummodels*sizeof(dmodel_t)));
	Sys_Printf("%5i brushes      %7i\n"
		,numbrushes, (int)(numbrushes*sizeof(dbrush_t)));
	Sys_Printf("%5i brushsides   %7i\n"
		,numbrushsides, (int)(numbrushsides*sizeof(dbrushside_t)));
	Sys_Printf("%5i planes       %7i\n"
		,numplanes, (int)(numplanes*sizeof(dplane_t)));
	Sys_Printf("%5i texinfo      %7i\n"
		,numtexinfo, (int)(numtexinfo*sizeof(texinfo_t)));
	Sys_Printf("%5i entdata      %7i\n", num_entities, entdatasize);

	Sys_Printf("\n");

	Sys_Printf("%5i vertexes     %7i\n"
		,numvertexes, (int)(numvertexes*sizeof(dvertex_t)));
	Sys_Printf("%5i nodes        %7i\n"
		,numnodes, (int)(numnodes*sizeof(dnode_t)));
	Sys_Printf("%5i faces        %7i\n"
		,numfaces, (int)(numfaces*sizeof(dface_t)));
	Sys_Printf("%5i leafs        %7i\n"
		,numleafs, (int)(numleafs*sizeof(dleaf_t)));
	Sys_Printf("%5i leaffaces    %7i\n"
		,numleaffaces, (int)(numleaffaces*sizeof(dleaffaces[0])));
	Sys_Printf("%5i leafbrushes  %7i\n"
		,numleafbrushes, (int)(numleafbrushes*sizeof(dleafbrushes[0])));
	Sys_Printf("%5i surfedges    %7i\n"
		,numsurfedges, (int)(numsurfedges*sizeof(dsurfedges[0])));
	Sys_Printf("%5i edges        %7i\n"
		,numedges, (int)(numedges*sizeof(dedge_t)));
	Sys_Printf("      lightdata    %7i\n", lightdatasize);
	Sys_Printf("      routedata    %7i\n", routedatasize);
}


int num_entities;
entity_t entities[MAX_MAP_ENTITIES];

/**
 * @brief
 */
static void StripTrailing (char *e)
{
	char	*s;

	s = e + strlen(e)-1;
	while (s >= e && *s <= 32) {
		*s = 0;
		s--;
	}
}

/**
 * @brief
 * @sa ParseEntity
 * @sa ParseMapEntity
 */
extern epair_t *ParseEpair (void)
{
	epair_t	*e;

	e = malloc(sizeof(epair_t));
	memset(e, 0, sizeof(epair_t));

	if (strlen(token) >= MAX_KEY - 1)
		Error("ParseEpar: token too long");
	e->key = copystring(token);
	GetToken(qfalse);
	if (strlen(token) >= MAX_VALUE - 1)
		Error("ParseEpar: token too long");
	e->value = copystring(token);

	/* strip trailing spaces */
	StripTrailing(e->key);
	StripTrailing(e->value);

	return e;
}


/**
 * @brief
 * @sa ParseEntities
 */
static qboolean ParseEntity (void)
{
	epair_t		*e;
	entity_t	*mapent;

	if (!GetToken(qtrue))
		return qfalse;

	if (strcmp(token, "{"))
		Error("ParseEntity: { not found");

	if (num_entities >= MAX_MAP_ENTITIES)
		Error("num_entities >= MAX_MAP_ENTITIES (%i)", num_entities);

	mapent = &entities[num_entities];
	num_entities++;

	do {
		if (!GetToken(qtrue))
			Error("ParseEntity: EOF without closing brace");
		if (!strcmp(token, "}") )
			break;
		e = ParseEpair ();
		e->next = mapent->epairs;
		mapent->epairs = e;
	} while (1);

	return qtrue;
}

/**
 * @brief Parses the dentdata string into entities
 * @sa UnparseEntities
 * @sa ParseEntity
 */
extern void ParseEntities (void)
{
	num_entities = 0;
	ParseFromMemory(dentdata, entdatasize);

	while (ParseEntity()) {
	}
}


/**
 * @brief Generates the dentdata string from all the entities
 * @sa ParseEntities
 */
extern void UnparseEntities (void)
{
	char	*buf, *end;
	epair_t	*ep;
	char	line[2048];
	int		i;
	char	key[1024], value[1024];

	buf = dentdata;
	end = buf;
	*end = 0;

	for (i = 0; i < num_entities; i++) {
		ep = entities[i].epairs;
		if (!ep)
			continue;	/* ent got removed */

		strcat (end,"{\n");
		end += 2;

		for (ep = entities[i].epairs; ep; ep = ep->next) {
			strncpy(key, ep->key, sizeof(key));
			StripTrailing(key);
			strncpy(value, ep->value, sizeof(value));
			StripTrailing(value);

			snprintf(line, sizeof(line), "\"%s\" \"%s\"\n", key, value);
			strcat(end, line);
			end += strlen(line);
		}
		strcat(end,"}\n");
		end += 2;

		if (end > buf + MAX_MAP_ENTSTRING)
			Error("Entity text too long");
	}
	entdatasize = end - buf + 1;
}

#if 0
/**
 * @brief
 */
static void PrintEntity (entity_t *ent)
{
	epair_t *ep;

	Sys_Printf("------- entity %p -------\n", ent);
	for (ep = ent->epairs; ep; ep = ep->next)
		Sys_Printf("%s = %s\n", ep->key, ep->value);
}
#endif

/**
 * @brief
 */
extern void SetKeyValue (entity_t *ent, char *key, char *value)
{
	epair_t *ep;

	for (ep = ent->epairs; ep; ep = ep->next)
		if (!strcmp (ep->key, key) ) {
			free(ep->value);
			ep->value = copystring(value);
			return;
		}
	ep = malloc (sizeof(*ep));
	ep->next = ent->epairs;
	ent->epairs = ep;
	ep->key = copystring(key);
	ep->value = copystring(value);
}

/**
 * @brief
 */
extern char *ValueForKey (entity_t *ent, char *key)
{
	epair_t *ep;

	for (ep = ent->epairs; ep; ep = ep->next)
		if (!strcmp(ep->key, key) )
			return ep->value;
	return "";
}

/**
 * @brief
 */
extern vec_t FloatForKey (entity_t *ent, char *key)
{
	char *k;

	k = ValueForKey(ent, key);
	return atof(k);
}

/**
 * @brief
 */
extern void GetVectorForKey (entity_t *ent, char *key, vec3_t vec)
{
	char *k;
	double v1, v2, v3;

	k = ValueForKey(ent, key);
	/* scanf into doubles, then assign, so it is vec_t size independent */
	v1 = v2 = v3 = 0;
	sscanf(k, "%lf %lf %lf", &v1, &v2, &v3);
	vec[0] = v1;
	vec[1] = v2;
	vec[2] = v3;
}