/* Copyright: (c) Kayne Ruse 2014
 * 
 * This software is provided 'as-is', without any express or implied
 * warranty. In no event will the authors be held liable for any damages
 * arising from the use of this software.
 * 
 * Permission is granted to anyone to use this software for any purpose,
 * including commercial applications, and to alter it and redistribute it
 * freely, subject to the following restrictions:
 * 
 * 1. The origin of this software must not be misrepresented; you must not
 * claim that you wrote the original software. If you use this software
 * in a product, an acknowledgment in the product documentation would be
 * appreciated but is not required.
 * 
 * 2. Altered source versions must be plainly marked as such, and must not be
 * misrepresented as being the original software.
 * 
 * 3. This notice may not be removed or altered from any source
 * distribution.
*/
#include "serial.hpp"

#include "map_allocator.hpp"

#include <cstring>

//-------------------------
//internal serialization functions
//-------------------------

void serializeType(SerialPacket* packet, char* buffer) {
	memcpy(buffer, &packet->meta.type, sizeof(SerialPacket::Type));
}

void serializeServer(SerialPacket* packet, char* buffer) {
	memcpy(buffer, &packet->meta.type, sizeof(SerialPacket::Type));
	buffer += sizeof(SerialPacket::Type);

	//server info
	//Note: version info serialization goes here
	memcpy(buffer, packet->serverInfo.name, PACKET_STRING_SIZE);
	buffer += PACKET_STRING_SIZE;
	memcpy(buffer, &packet->serverInfo.playerCount, sizeof(int));
	buffer += sizeof(int);

	//map format
	memcpy(buffer, &packet->serverInfo.regionWidth, sizeof(int));
	buffer += sizeof(int);
	memcpy(buffer, &packet->serverInfo.regionHeight, sizeof(int));
	buffer += sizeof(int);
	memcpy(buffer, &packet->serverInfo.regionDepth, sizeof(int));
}

void serializeClient(SerialPacket* packet, char* buffer) {
	memcpy(buffer, &packet->meta.type, sizeof(SerialPacket::Type));
	buffer += sizeof(SerialPacket::Type);
	memcpy(buffer, &packet->clientInfo.index, sizeof(int));
}

void serializePlayer(SerialPacket* packet, char* buffer) {
	memcpy(buffer, &packet->meta.type, sizeof(SerialPacket::Type));
	buffer += sizeof(SerialPacket::Type);

	//indexes
	memcpy(buffer, &packet->playerInfo.clientIndex, sizeof(int));
	buffer += sizeof(int);
	memcpy(buffer, &packet->playerInfo.playerIndex, sizeof(int));
	buffer += sizeof(int);

	//text
	memcpy(buffer, packet->playerInfo.handle, PACKET_STRING_SIZE);
	buffer += PACKET_STRING_SIZE;
	memcpy(buffer, packet->playerInfo.avatar, PACKET_STRING_SIZE);
	buffer += PACKET_STRING_SIZE;

	//vectors
	memcpy(buffer, &packet->playerInfo.position.x, sizeof(double));
	buffer += sizeof(double);
	memcpy(buffer, &packet->playerInfo.position.y, sizeof(double));
	buffer += sizeof(double);
	memcpy(buffer, &packet->playerInfo.motion.x, sizeof(double));
	buffer += sizeof(double);
	memcpy(buffer, &packet->playerInfo.motion.y, sizeof(double));
}

void serializeRegionFormat(SerialPacket* packet, char* buffer) {
	memcpy(buffer, &packet->meta.type, sizeof(SerialPacket::Type));
	buffer += sizeof(SerialPacket::Type);

	//x & y
	memcpy(buffer, &packet->regionInfo.x, sizeof(int));
	buffer += sizeof(int);
	memcpy(buffer, &packet->regionInfo.y, sizeof(int));
}

void serializeRegionContent(SerialPacket* packet, char* buffer) {
	//format
	memcpy(buffer, &packet->meta.type, sizeof(SerialPacket::Type));
	buffer += sizeof(SerialPacket::Type);

	//x & y
	*reinterpret_cast<int*>(buffer) = packet->regionInfo.region->GetX();
	buffer += sizeof(int);
	*reinterpret_cast<int*>(buffer) = packet->regionInfo.region->GetY();
	buffer += sizeof(int);

	//content
	for (register int i = 0; i < REGION_WIDTH; i++) {
		for (register int j = 0; j < REGION_HEIGHT; j++) {
			for (register int k = 0; k < REGION_DEPTH; k++) {
				*reinterpret_cast<Region::type_t*>(buffer) = packet->regionInfo.region->GetTile(i, j, k);
				buffer += sizeof(Region::type_t);
			}
		}
	}
}

//-------------------------
//internal deserialization functions
//-------------------------

void deserializeType(SerialPacket* packet, char* buffer) {
	memcpy(&packet->meta.type, buffer, sizeof(SerialPacket::Type));
}

void deserializeServer(SerialPacket* packet, char* buffer) {
	memcpy(&packet->meta.type, buffer, sizeof(SerialPacket::Type));
	buffer += sizeof(SerialPacket::Type);

	//server info
	//Note: version info deserialization goes here
	memcpy(packet->serverInfo.name, buffer, PACKET_STRING_SIZE);
	buffer += PACKET_STRING_SIZE;
	memcpy(&packet->serverInfo.playerCount, buffer, sizeof(int));
	buffer += sizeof(int);

	//map format
	memcpy(&packet->serverInfo.regionWidth, buffer, sizeof(int));
	buffer += sizeof(int);
	memcpy(&packet->serverInfo.regionHeight, buffer, sizeof(int));
	buffer += sizeof(int);
	memcpy(&packet->serverInfo.regionDepth, buffer, sizeof(int));
}

void deserializeClient(SerialPacket* packet, char* buffer) {
	memcpy(&packet->meta.type, buffer, sizeof(SerialPacket::Type));
	buffer += sizeof(SerialPacket::Type);
	memcpy(&packet->clientInfo.index, buffer, sizeof(int));
}

void deserializePlayer(SerialPacket* packet, char* buffer) {
	memcpy(&packet->meta.type, buffer, sizeof(SerialPacket::Type));
	buffer += sizeof(SerialPacket::Type);

	//indexes
	memcpy(&packet->playerInfo.clientIndex, buffer, sizeof(int));
	buffer += sizeof(int);
	memcpy(&packet->playerInfo.playerIndex, buffer, sizeof(int));
	buffer += sizeof(int);

	//text
	memcpy(packet->playerInfo.handle, buffer, PACKET_STRING_SIZE);
	buffer += PACKET_STRING_SIZE;
	memcpy(packet->playerInfo.avatar, buffer, PACKET_STRING_SIZE);
	buffer += PACKET_STRING_SIZE;

	//vectors
	memcpy(&packet->playerInfo.position.x, buffer, sizeof(double));
	buffer += sizeof(double);
	memcpy(&packet->playerInfo.position.y, buffer, sizeof(double));
	buffer += sizeof(double);
	memcpy(&packet->playerInfo.motion.x, buffer, sizeof(double));
	buffer += sizeof(double);
	memcpy(&packet->playerInfo.motion.y, buffer, sizeof(double));
}

void deserializeRegionFormat(SerialPacket* packet, char* buffer) {
	memcpy(&packet->meta.type, buffer, sizeof(SerialPacket::Type));
	buffer += sizeof(SerialPacket::Type);

	//x & y
	memcpy(&packet->regionInfo.x, buffer, sizeof(int));
	buffer += sizeof(int);
	memcpy(&packet->regionInfo.y, buffer, sizeof(int));
}

void deserializeRegionContent(SerialPacket* packet, char* buffer) {
	memcpy(&packet->meta.type, buffer, sizeof(SerialPacket::Type));
	buffer += sizeof(SerialPacket::Type);

	//x & y
	memcpy(&packet->regionInfo.x, buffer, sizeof(int));
	buffer += sizeof(int);
	memcpy(&packet->regionInfo.y, buffer, sizeof(int));
	buffer += sizeof(int);

	//content
	BlankAllocator().Create(
		&packet->regionInfo.region,
		packet->regionInfo.x,
		packet->regionInfo.y
	);

	for (register int i = 0; i < REGION_WIDTH; i++) {
		for (register int j = 0; j < REGION_HEIGHT; j++) {
			for (register int k = 0; k < REGION_DEPTH; k++) {
				packet->regionInfo.region->SetTile(i, j, k, *reinterpret_cast<Region::type_t*>(buffer));
				buffer += sizeof(Region::type_t);
			}
		}
	}
}

//-------------------------
//the interface functions
//-------------------------

void serialize(SerialPacket* packet, void* buffer) {
	switch(packet->meta.type) {
		//No extra data
		case SerialPacket::Type::NONE:
		case SerialPacket::Type::PING:
		case SerialPacket::Type::PONG:
		case SerialPacket::Type::BROADCAST_REQUEST:
		case SerialPacket::Type::JOIN_REQUEST:
		case SerialPacket::Type::SYNCHRONIZE:
			serializeType(packet, reinterpret_cast<char*>(buffer));
		break;

		//Server info
		case SerialPacket::Type::BROADCAST_RESPONSE:
			serializeServer(packet, reinterpret_cast<char*>(buffer));
		break;

		//Client info
		case SerialPacket::Type::JOIN_RESPONSE:
		case SerialPacket::Type::DISCONNECT:
		case SerialPacket::Type::SHUTDOWN:
			serializeClient(packet, reinterpret_cast<char*>(buffer));
		break;

		//Player info
		case SerialPacket::Type::PLAYER_NEW:
		case SerialPacket::Type::PLAYER_DELETE:
		case SerialPacket::Type::PLAYER_UPDATE:
			serializePlayer(packet, reinterpret_cast<char*>(buffer));
		break;

		//region info
		case SerialPacket::Type::REGION_REQUEST:
			serializeRegionFormat(packet, reinterpret_cast<char*>(buffer));
		break;

		case SerialPacket::Type::REGION_CONTENT:
			serializeRegionContent(packet, reinterpret_cast<char*>(buffer));
		break;
	}
}

void deserialize(SerialPacket* packet, void* buffer) {
	//find the type, so that you can actually deserialize the packet!
	deserializeType(packet, reinterpret_cast<char*>(buffer));
	switch(packet->meta.type) {
		//No extra data
		case SerialPacket::Type::NONE:
		case SerialPacket::Type::PING:
		case SerialPacket::Type::PONG:
		case SerialPacket::Type::BROADCAST_REQUEST:
		case SerialPacket::Type::JOIN_REQUEST:
		case SerialPacket::Type::SYNCHRONIZE:
			//NOTHING
		break;

		//Server info
		case SerialPacket::Type::BROADCAST_RESPONSE:
			deserializeServer(packet, reinterpret_cast<char*>(buffer));
		break;

		//Client info
		case SerialPacket::Type::JOIN_RESPONSE:
		case SerialPacket::Type::DISCONNECT:
		case SerialPacket::Type::SHUTDOWN:
			deserializeClient(packet, reinterpret_cast<char*>(buffer));
		break;

		//Player info
		case SerialPacket::Type::PLAYER_NEW:
		case SerialPacket::Type::PLAYER_DELETE:
		case SerialPacket::Type::PLAYER_UPDATE:
			deserializePlayer(packet, reinterpret_cast<char*>(buffer));
		break;

		//region info
		case SerialPacket::Type::REGION_REQUEST:
			deserializeRegionFormat(packet, reinterpret_cast<char*>(buffer));
		break;

		case SerialPacket::Type::REGION_CONTENT:
			deserializeRegionContent(packet, reinterpret_cast<char*>(buffer));
		break;
	}
}