#ifdef NEW_E3D_FORMAT
#ifdef	MAP_EDITOR
#include "../../map_editor/global.h"
#else
#include "../global.h"
#endif
#include "elc_io.h"

/*
 * -2	File to old, download newer file.
 * -1	Client to old, download newer client.
 *  0	Every thing is good.
 *  1	Old client, you should update the client to use the new features.
 *  2	Old file, you can update, but it's not nessecary.
 *  3	File bug fix.
 */
static __inline__ int check_version(const elc_file_header header, const VERSION_NUMBER version)
{
	if (header.version[0] < version[0]) return -2;
	if (header.version[0] > version[0]) return -1;
	if (header.version[1] > version[1]) return -1;
	if (header.version[1] < version[1]) return 1;
	if (header.version[2] > version[2]) return 2;
	if (header.version[2] < version[2]) return 3;
	if (header.version[3] > version[3]) return 2;
	if (header.version[3] < version[3]) return 3;
	return 0;
}

#define	BLOCK_SIZE	1024*1024

#ifdef	ZLIB
int read_and_check_elc_header(gzFile* file, const MAGIC_NUMBER magic, const VERSION_NUMBER version, const char* filename)
#else	//ZLIB
int read_and_check_elc_header(FILE* file, const MAGIC_NUMBER magic, const VERSION_NUMBER version, const char* filename)
#endif	//ZLIB
{
	elc_file_header header;
	int size, header_offset, block;
	void* mem;
	MD5 md5;
	MD5_DIGEST md5_digest;
	
#ifdef	ZLIB
	size = gzread(file, (char*)&header, sizeof(elc_file_header));
#else	//ZLIB
	size = fread((char*)&header, 1, sizeof(elc_file_header), file);
#endif	//ZLIB
	if (size != sizeof(elc_file_header)) 
	{
		LOG_ERROR("File '%s' too small!", filename);
		return -1;
	}

	if (memcmp(header.magic, magic, sizeof(MAGIC_NUMBER)) != 0)
	{
		char m_str[5], hm_str[5];

		memcpy(m_str, magic, sizeof(magic));
		m_str[4] = 0;

		memcpy(hm_str, header.magic, sizeof(header.magic));
		hm_str[4] = 0;

		LOG_ERROR("Wrong file '%s'! Magic number not correct! Should be \"%s\", but is \"%s\"!", filename, m_str, hm_str);
		return -1;
	}

	switch (check_version(header, version))
	{
		case -2: 	
			LOG_ERROR("File '%s' too old! Download newer file.", filename);
			return -1;
		case -1:
			LOG_ERROR("Client too old for file '%s'! Download newer client.", filename);
			return -1;
		case 0:
			break;
		case 1:
//			LOG_INFO("Old client, you should update the client to use the new features.", filename);
//			break;
		case 2:
//			LOG_INFO("Old file, you can update, but it's not nessecary.", filename);
//			break;
		case 3:
//			LOG_DEBUG_INFO("File bug fix.", filename);
//			break;
		default:
			LOG_ERROR("This is a client Error!", filename);
			return -1;
	}

	header_offset = SDL_SwapLE32(header.header_offset);

#ifdef	ZLIB
	block = BLOCK_SIZE;
	gzseek(file, header_offset, SEEK_SET);
#else	//ZLIB
	fseek(file, 0, SEEK_END);
	size = ftell(file) - header_offset;
	if (size <= 0)
	{
		LOG_ERROR("File '%s' to small!", filename);
		return -1;
	}
	fseek(file, header_offset, SEEK_SET);
#endif	//ZLIB

	MD5Open(&md5);
	mem = malloc(BLOCK_SIZE);
#ifdef	ZLIB
	while (block > 0)
	{
		size= gzread(file, mem, block);
		if (size > 0){
			MD5Digest(&md5, mem, size);
		} else {
			break;
		}
	}
#else	//ZLIB
	while (size > 0)
	{
		block = BLOCK_SIZE;
		if (block > size) block = size;
		fread(mem, 1, block, file);
		MD5Digest(&md5, mem, block);
		size -= block;
	}
#endif	//ZLIB
	free(mem);
	MD5Close(&md5, md5_digest);

	if (memcmp(header.md5, md5_digest, sizeof(MD5_DIGEST)) != 0)
	{
		LOG_ERROR("Wrong MD5! File '%s' is corrupt! MD5 [%x %x %x %x %x %x %x %x %x %x %x %x %x %x %x %x] MD5 [%x %x %x %x %x %x %x %x %x %x %x %x %x %x %x %x]", filename, header.md5[0], header.md5[1], header.md5[2], header.md5[3], header.md5[4], header.md5[5], header.md5[6], header.md5[7], header.md5[8], header.md5[9], header.md5[10], header.md5[11], header.md5[12], header.md5[13], header.md5[14], header.md5[15], md5_digest[0], md5_digest[1], md5_digest[2], md5_digest[3], md5_digest[4], md5_digest[5], md5_digest[6], md5_digest[7], md5_digest[8], md5_digest[9], md5_digest[10], md5_digest[11], md5_digest[12], md5_digest[13], md5_digest[14], md5_digest[15]);
		return -1;
	}

#ifdef	ZLIB
	gzseek(file, SDL_SwapLE32(header.header_offset), SEEK_SET);
#else	//ZLIB
	fseek(file, SDL_SwapLE32(header.header_offset), SEEK_SET);
#endif	//ZLIB

	return 0;
}
#endif