/*
   filesystem/mapfile.cc
   This file is part of the Osirion project and is distributed under
   the terms of the GNU General Public License version 2
*/

#include "filesystem/filesystem.h"
#include "math/mathlib.h"
#include "model/mapfile.h"
#include "model/vertexarray.h"
#include "sys/sys.h"

#include <sstream>
#include <string>

namespace model {

const float MAX_BOUNDS = 16384;
const float MIN_DELTA = 10e-10;

MapFile::MapFile() {}

MapFile::~MapFile() {}

bool MapFile::open(std::string const & name) {

	last_read_was_classname = false;
	last_read_was_key = false;
	key_current = "";
	value_current = "";
	classname_current = "";
	line_number = 0;
	parse_level = 0;
	brushes = 0;

	mapfile_name.assign("maps/");
	mapfile_name.append(name);
	mapfile_name.append(".map");
	
	filesystem::File *f = filesystem::open(mapfile_name.c_str());	
	if (!f) {
		con_warn << "Could not open " << mapfile_name << std::endl;
		return false;
	}
	
	std::string fn = f->path();
	fn.append(f->name());
	filesystem::close(f);
	
	mapfile_ifs.open(fn.c_str());
	if (!mapfile_ifs.is_open()) {
		con_warn << "Could not stream " << fn << "!\n";
		return false;
	}

	return true;
}


bool MapFile::got_classname() const {
	return last_read_was_classname;
}

bool MapFile::got_classname(const char * classnamelabel) const {
	return (last_read_was_classname && (classname_current.compare(classnamelabel) == 0));
}

bool MapFile::getline() {
	using math::Vector3f;

	char data[1024];

	last_read_was_classname = false;
	last_read_was_key = false;

	key_current = "";
	value_current = "";

	if (!mapfile_ifs.is_open())
		return false;

	if (mapfile_ifs.getline(data, 1023)) {
		line_number++;
		std::istringstream linestream(data);
		std::string firstword;
		
		if (linestream >> firstword) {
			if (!firstword.size()) {
				return true;

			} else if (firstword == "//") {
				return true;

			} else if (firstword == "{") {
				parse_level++;
			
			} else if (firstword == "}") {
				if ((parse_level == 2) && (classname_current == "worldspawn")) {
					// brush
					if (VertexArray::instance()) {
						// for every face
						for (std::vector<Plane *>::iterator face = planes.begin(); face != planes.end(); face++) {
							make_brushface((*face));
						}
					
						// clean planes
						for (std::vector<Plane *>::iterator it = planes.begin(); it != planes.end(); it++) {
							delete(*it);
						}
						planes.clear();
			
						brushes++;				
					}
					value_current.clear();
				}
				parse_level--;

			} else 	if (parse_level == 1) {

				if (firstword == "\"classname\"") {
					classname_current.clear();
	
					if (linestream >> classname_current) {
						if (classname_current.size() > 2) {
							classname_current.erase(0,1);
							classname_current.erase(classname_current.size()-1, 1);
							last_read_was_classname = true;
						} else {
							classname_current.clear();
						}
					}

				} else if ((firstword.size() > 2) && (firstword[0] == '\"') && (firstword[firstword.size()-1] == '\"')) {

					key_current.assign(firstword);
					key_current.erase(0,1);
					key_current.erase(key_current.size()-1, 1);
	
					value_current.clear();
					char c;
					while ((linestream.get(c)) && (c != '"'));
					while ((linestream.get(c)) && (c != '"'))
						value_current += c;
			
					last_read_was_key = true;
				}
				
			} else if (parse_level == 2) {

				if ((firstword == "(") && (classname_current == "worldspawn")) {
					// brush plane
					if (VertexArray::instance()) {
						Vector3f p1, p2, p3;
						std::string tmp;
						std::string texture;
						int n = 0;
						
						linestream >> p1;
						linestream >> tmp; // )
						linestream >> tmp; // (
						linestream >> p2;
						linestream >> tmp; // )
						linestream >> tmp; // (
						linestream >> p3;
						linestream >> tmp; // )
						linestream >> texture;
						
						// 5 numbers (texture alignment?)
						for (int i=0; i < 5; i++)
							linestream >> tmp;
	
						// surface flags ?
						if (!(linestream >> n))
							n = 0;
						
						Plane *plane = new Plane(p1, p2, p3);
						plane->texture() = texture;
						if (n > 0)
							plane->detail() = true;
						planes.push_back(plane);
					}
					value_current.clear();
				}
			}
		}
	} else {

		return false;
	}

	return true;
}

void MapFile::make_brushface(Plane *face)
{
	using math::Vector3f;
	
	// ignore caulk
	if (face->texture() == "common/caulk") {
		return;
	}
	
	// FIXME clip should be parsed as collision blocks
	if (face->texture() == "common/clip") {
		return;
	}

	// using suggestions from
	// http://www.flipcode.com/archives/Level_Editing.shtml
	
	// vertex list
	std::vector<math::Vector3f *> vl;
	
	// calculate initial vertices on the bounding box
	
	// check if the face is x-axis oriented
	if ((fabsf(face->normal().x) >= fabsf(face->normal().y)) && (fabsf(face->normal().x) >=  fabsf(face->normal().z))) {

		if (face->normal().x >= 0) {
			vl.push_back(new math::Vector3f(0, -MAX_BOUNDS, -MAX_BOUNDS));
			vl.push_back(new math::Vector3f(0, -MAX_BOUNDS, MAX_BOUNDS));
			vl.push_back(new math::Vector3f(0, MAX_BOUNDS, MAX_BOUNDS));
			vl.push_back(new math::Vector3f(0, MAX_BOUNDS, -MAX_BOUNDS));
		} else {
			vl.push_back(new math::Vector3f(0, MAX_BOUNDS, -MAX_BOUNDS));
			vl.push_back(new math::Vector3f(0, MAX_BOUNDS, MAX_BOUNDS));
			vl.push_back(new math::Vector3f(0, -MAX_BOUNDS, MAX_BOUNDS));
			vl.push_back(new math::Vector3f(0, -MAX_BOUNDS, -MAX_BOUNDS));
		}
		// calculate the x coordinate of each face vertex
		for (std::vector<Vector3f *>::iterator it = vl.begin(); it != vl.end(); it++) {
			(*it)->x = (-face->d() -
				    face->normal().z * (*it)->z -
				    face->normal().y * (*it)->y) /
				   face->normal().x;
		}
	}
	
	// check if the face is y-axis oriented
	else if ((fabsf(face->normal().y) >= fabsf(face->normal().x)) && (fabsf(face->normal().y) >=  fabsf(face->normal().z))) {
		
		if (face->normal().y >= 0) {
			vl.push_back(new Vector3f(MAX_BOUNDS, 0, -MAX_BOUNDS));
			vl.push_back(new Vector3f(MAX_BOUNDS, 0, MAX_BOUNDS));
			vl.push_back(new Vector3f(-MAX_BOUNDS, 0, MAX_BOUNDS));
			vl.push_back(new Vector3f(-MAX_BOUNDS, 0, -MAX_BOUNDS));
		} else {
			vl.push_back(new Vector3f(-MAX_BOUNDS, 0, -MAX_BOUNDS));
			vl.push_back(new Vector3f(-MAX_BOUNDS, 0, MAX_BOUNDS));
			vl.push_back(new Vector3f(MAX_BOUNDS, 0, MAX_BOUNDS));
			vl.push_back(new Vector3f(MAX_BOUNDS, 0, -MAX_BOUNDS));
		}
		
		// calculate the x coordinate of each face vertex
		for (std::vector<Vector3f *>::iterator it = vl.begin(); it != vl.end(); it++) {
			(*it)->y = (-face->d() -
				    face->normal().z * (*it)->z -
				    face->normal().x * (*it)->x) /
				   face->normal().y;
		}
	}
	
	// face must be z-axis oriented
	else {

		if (face->normal().z >= 0) {
			vl.push_back(new Vector3f(-MAX_BOUNDS, -MAX_BOUNDS, 0));
			vl.push_back(new Vector3f(-MAX_BOUNDS, MAX_BOUNDS, 0));
			vl.push_back(new Vector3f(MAX_BOUNDS, MAX_BOUNDS, 0));
			vl.push_back(new Vector3f(MAX_BOUNDS, -MAX_BOUNDS, 0));
		} else {
			vl.push_back(new Vector3f(MAX_BOUNDS, -MAX_BOUNDS, 0));
			vl.push_back(new Vector3f(MAX_BOUNDS, MAX_BOUNDS, 0));
			vl.push_back(new Vector3f(-MAX_BOUNDS, MAX_BOUNDS, 0));
			vl.push_back(new Vector3f(-MAX_BOUNDS, -MAX_BOUNDS, 0));
		}
		
		// calculate the x coordinate of each face vertex
		for (std::vector<Vector3f *>::iterator it = vl.begin(); it != vl.end(); it++) {
			(*it)->z = (-face->d() -
				    face->normal().x * (*it)->x -
				    face->normal().y * (*it)->y) /
				   face->normal().z;
		}
	}
	
	
	// intersect the face with every plane
	for (std::vector<Plane *>::iterator pit = planes.begin(); pit != planes.end(); pit++) {
		Plane *plane = (*pit);
		if (plane == face) {
			continue;
		}
		
		Vector3f fn = crossproduct(face->point(1)-face->point(0), face->point(2)-face->point(0));
		Vector3f pn = crossproduct(plane->point(1)-plane->point(0), plane->point(2)-plane->point(0));
		
		Vector3f t = crossproduct(fn, pn);
		if ((t.x == 0)  && (t.y == 0) && (t.z == 0)) {
			continue;
		}
		
		// intersect face with plane
		for (int i=0; vl.size() - i > 0; i++) {
		
			Vector3f v(*vl.at(i));
		
			Vector3f next;
			if (vl.size() - i > 1) {
				next = *vl.at(i+1);
			} else {
				next = *vl.front();
			}
			
			Vector3f prev;
			if (i > 0) {
				prev = *vl.at(i-1);
			} else {
				prev = *vl.back();
			}
			
			if ((v.x*plane->normal().x + v.y*plane->normal().y + v.z*plane->normal().z +plane->d()) < MIN_DELTA) {
			
				// find current
				std::vector<Vector3f *>::iterator vit = vl.begin();
				while ((*vit) != vl.at(i)) {
					vit++;
				}
				
				// check if prev - v intersects with plane
				if ((prev.x*plane->normal().x + prev.y*plane->normal().y + prev.z*plane->normal().z + plane->d()) > -MIN_DELTA) {
				
					// calculate intersection
					float t1 = -plane->normal().x * prev.x - plane->normal().y * prev.y - plane->normal().z * prev.z -plane->d();
					float t2 = (plane->normal().x * v.x - plane->normal().x * prev.x +
						    plane->normal().y * v.y - plane->normal().y * prev.y +
						    plane->normal().z * v.z - plane->normal().z * prev.z);

					Vector3f *s = new Vector3f;
					
					if (t2 == 0) {
						*s = v;
					} else {
						for (int j = 0; j < 3; j++)
							(*s)[j] = prev [j] + t1 * (v[j] - prev[j]) / t2;
					}
					
					vit = vl.insert(vit,s);
					vit++;
					i++;
				}
				
				// check if next - v intersects with plane
				if ((next.x*plane->normal().x +  next.y*plane->normal().y + next.z*plane->normal().z + plane->d()) > -MIN_DELTA) {
					
					// calculate intersection
					float t1 = -plane->normal().x * v.x - plane->normal().y * v.y - plane->normal().z * v.z -plane->d();
					float t2 = (plane->normal().x * next.x - plane->normal().x * v.x +
						    plane->normal().y * next.y - plane->normal().y * v.y +
						    plane->normal().z * next.z - plane->normal().z * v.z);
					//cout << "next t2 " << t2 << std::endl;
					Vector3f *s = new Vector3f;
					
					if (t2 == 0) {
						*s = v;
					} else {
						for (int j = 0; j < 3; j++)
							(*s)[j] = v [j] + t1 * (next[j] - v[j]) / t2;
					}
					
					vit = vl.insert(vit,s);
					vit++;
					i++;
				}
				
				// erase
				delete *vit;
				vl.erase(vit);
				i--;
			}
			
		}
	}
	
	if (vl.size() > 2) {
	
		math::Color *color = 0;
		if (face->texture() == "colors/white") {
			color = new math::Color(1, 1, 1);
		} else if (face->texture() == "colors/grey90") {
			color = new math::Color(0.9, 0.9, 0.9);
		} else if (face->texture() == "colors/grey75") {
			color = new math::Color(0.75, 0.75, 0.75);
		} else if (face->texture() == "colors/grey50") {
			color = new math::Color(0.5, 0.5, 0.5);
		} else if (face->texture() == "colors/grey25") {
			color = new math::Color(0.25, 0.25, 0.25);
		} else if (face->texture() == "colors/black") {
			color = new math::Color(0, 0, 0);
		} else if (face->texture() == "common/entity") {
			color = 0;
		} else
			// unknown textures get hot pink
			color = new math::Color(1.0f, 0.0, 1.0f);
	
		// calculate bounding box
		for (std::vector<Vector3f *>::iterator it = vl.begin(); it != vl.end(); it++) {	

			*(*it) *= SCALE;

			for (int i=0; i < 3; i++) {
				if (class_maxbbox[i] < (*(*it))[i])
					class_maxbbox[i] = (*(*it))[i];

				if (class_minbbox[i] > (*(*it))[i])
					class_minbbox[i] = (*(*it))[i];
			}
		}

		// split face into triangles
		while (vl.size() >2 ) {
			std::vector<Vector3f *>::iterator v0 = vl.begin();
			std::vector<Vector3f *>::reverse_iterator vn = vl.rbegin();
			std::vector<Vector3f *>::reverse_iterator vn1 = vl.rbegin();
			++vn1;
			
			Vector3f n(face->normal()*-1);
			n.normalize();

			if (!color) {
				// evertices will be added to the VertexArray after normal vertices
				Triangle *triangle = new Triangle(*(*vn1), *(*vn), *(*v0), n, 0, face->detail());
				class_etris.push_back(triangle);
			} else {
				Triangle *triangle = new Triangle(*(*vn1), *(*vn), *(*v0), n, color, face->detail());
				class_tris.push_back(triangle);
			}
		
			delete (*vn);
			vl.pop_back();
		}
		if (color) delete color;
	} else {
		con_debug << "Unresolved face!\n";
	}
	
	// clean up the vertex list
	for (std::vector<Vector3f *>::iterator it = vl.begin(); it != vl.end(); it++) {
		delete(*it);
	}
	
	vl.clear();
}

bool MapFile::got_key_string(const char * keylabel, std::string & valuestring) {
	if (last_read_was_key && (key_current.compare(keylabel) == 0 )) {
		valuestring.assign(value_current);
		return true;
	} else {
		return false;
	}
}

bool MapFile::got_key_vector3f(const char * keylabel, math::Vector3f & v) {
	if (last_read_was_key && (key_current.compare(keylabel) == 0 )) {
		std::istringstream is(value_current);
		float x, y, z;
		if ((is >> x) && (is >> y) && (is >> z)) {
			v = math::Vector3f(x,y,z);
		} else {
			 v= math::Vector3f();
		}
		return true;
	} else {
		return false;
	}
}

bool MapFile::got_key_float(const char * keylabel, float & f) {
	if (last_read_was_key && (key_current.compare(keylabel) == 0 )) {
		std::istringstream is(value_current);
		if (!(is >> f)) {
			f = 0;
		}
		return true;
	} else {
		return false;
	}
}

bool MapFile::got_key_int(const char * keylabel, unsigned int & u)
{
	if (last_read_was_key && (key_current.compare(keylabel) == 0 )) {
		std::istringstream is(value_current);
		if (!(is >> u)) {
			u = 0;
		}
		return true;
	} else {
		return false;
	}
}

bool MapFile::got_key(const char * keylabel) {
	return (last_read_was_key && (key_current.compare(keylabel) == 0 ));
}

bool MapFile::got_key_angle(const char * keylabel, float & f) {
	if (last_read_was_key && (key_current.compare(keylabel) == 0 )) {
		std::istringstream is(value_current);
		if ((is >> f)) {
			f = math::degrees360f(f);
		} else {
			f = 0;
		}
		return true;
	} else {
		return false;
	}
}

bool MapFile::got_key_color(const char * keylabel, math::Color & color) {
	if (last_read_was_key && (key_current.compare(keylabel) == 0 )) {
		std::istringstream is(value_current);
		float r, g, b;
		if ((is >> r) && (is >> g) && (is >> b)) {
			if ((r > 1) || (g > 1) || (b > 1)) {
				r /= 255; g /= 255; b /= 255;
			}
			color = math::Color(r, g, b);
		} else {
			color = math::Color();
		}
		return true;
	} else {
		return false;
	}
}

void MapFile::close()
{
	mapfile_ifs.close();
}

} // namespace filesystem