#include <stdio.h>

#include <unistd.h>

#include <dlfcn.h>

#include <fcntl.h>

#include <math.h>

#include <iostream>

#include "gdc.h"

#include "GameConfigs.h"

#include "MemoryUtils.h"

MemoryUtils mu;

char *game = NULL;

char *engine = NULL;

char *game_binary = NULL;

char *engine_binary = NULL;

char *wgame_binary = NULL;

char *wengine_binary = NULL;

char *symbols_file = NULL;

bool use_symtab = true;

CGameConfig symbols;

CGameConfig gc;

inline bool IsDigit( char c )

{

	return c < 58 && c > 47;

}

void PrintUsage()

{

	printf("Usage: ./gdc -g <game> -e <engine name> -f <gamedata file> -b <game binary> -x <engine binary> -w <win game binary> -y <win engine binary> [-s <symbols.txt file>]\n");

	printf("Other options:\n");

	printf(" -d\tAdd debug output\n");

	printf(" -n\tDon't use symbol table for lookups (falls back to dlsym)\n");

}

int main(int argc, char **argv)

{

	char *gamedata = NULL;

	bool debug = false;

	opterr = 0;

	int opt;

	while ((opt = getopt(argc, argv, "b:nde:f:g:x:w:y:s:")) != -1)

	{

		switch (opt)

		{

			case 'd':

				debug = true;

				break;

			case 'n':

				use_symtab = false;

				break;

			case 'g':

				game = optarg;

				break;

			case 'e':

				engine = optarg;

				break;

			case 'f':

				gamedata = optarg;

				break;

			case 'b':

				game_binary = optarg;

				break;

			case 'x':

				engine_binary = optarg;

				break;

			case 'w':

				wgame_binary = optarg;

				break;

			case 'y':

				wengine_binary = optarg;

				break;

			case 's':

				symbols_file = optarg;

				break;

			case '?':

				PrintUsage();

				return 0;

			default:

				printf("WHAT\n");

				return 0;

		}

	}

	if (!game || !engine || !gamedata || !game_binary || !engine_binary || !wgame_binary || !wengine_binary)

	{

		PrintUsage();

		return 0;

	}

	printf("Game: %s\n", game);

	if (debug)

	{

		printf("Engine: %s\nGame binary: %s\nEngine binary: %s\nWin game binary: %s\nWin engine binary: %s\n",

			engine, game_binary, engine_binary, wgame_binary, wengine_binary

			);

	}

	printf("Gamedata: %s\n\n", gamedata);

	void *ghandle;

	ghandle = dlopen(game_binary, RTLD_LAZY);

	if (!ghandle)

	{

		printf("Couldn't open %s (%s)\n", game_binary, dlerror());

			return 0;

	}

	void *ehandle;

	ehandle = dlopen(engine_binary, RTLD_LAZY);

	if (!ehandle)

	{

		printf("Couldn't open %s (%s)\n", engine_binary, dlerror());

			return 0;

	}

	int wgfile = open(wgame_binary, O_RDONLY);

	if (wgfile == -1)

	{

		printf("Couldn't open %s\n", wgame_binary);

		return 0;

	}

	int wefile = open(wengine_binary, O_RDONLY);

	if (wefile == -1)

	{

		printf("Couldn't open %s\n", wengine_binary);

		return 0;

	}

	char err[512];

	if (!gc.EnterFile(gamedata, err, sizeof(err)))

	{

		printf("%s: %s\n", gamedata, err);

		return 0;

	}

	if (!symbols.EnterFile(symbols_file ? symbols_file : "symbols.txt", err, sizeof(err)))

	{

		printf("symbols.txt: %s\n", err);

		return 0;

	}

	for (list<Offset>::iterator it = gc.m_Offsets.begin(); it != gc.m_Offsets.end(); it++)

	{

		if (debug)

		{

			printf("DEBUG %s - l: %d w: %d\n", it->name, it->lin, it->win);

		}

		const char *symbol = symbols.GetKeyValue(it->name);

		if (symbol)

		{

			char symvt[128] = "_ZTV";

			bool bGotFirstNumbers = false;

			bool bLastNumberDigit = false;

			unsigned int symlen = strlen(symbol);

			unsigned int pos = strlen(symvt);

			for ( unsigned int i = 0; i < symlen && pos < (sizeof(symvt)-1); ++i )

			{

				bool isDigit = IsDigit( symbol[i] );

				if( !isDigit && bLastNumberDigit )

				{

					bGotFirstNumbers = true;

				}

				// we're before the class len

				if( !bGotFirstNumbers && !isDigit )

					continue;

				// we're at the function name len

				if( bGotFirstNumbers && isDigit )

				{

					symvt[pos] = 0;

					break;

				}

				// we're at the class len or class name. we want these

				symvt[pos++] = symbol[i];

				if( isDigit )

				{

					bLastNumberDigit = isDigit;

				}

			}

			symvt[pos] = 0;

			int newOffset;

			if (symvt[0])

			{

                void **newvt = NULL;

				if( use_symtab )

				{

					newvt = (void**)mu.ResolveSymbol(ghandle, symvt);

				}

				else

				{

					newvt = (void **)dlsym(ghandle, symvt);

				}

			    if (!newvt)

				{

					printf("? O: %-22s - can't find, skipping\n", symvt);

					continue;

				}

				newOffset = findVFunc(ghandle, newvt, symbol);

			}

			if (newOffset == it->lin)

			{

				printf("  O: %-22s - GOOD.    current [ w: %3d, l: %3d ].\n", it->name, it->win, it->lin);

			}

			else

			{

				printf("! O: %-22s - CHANGED. old [ w: %3d, l: %3d ]. new [ w: %3d, l: %3d ].\n",

					it->name,

					it->win, it->lin,

					newOffset - (it->lin - it->win), newOffset

					);

			}

		}

		else // !symbol

		{

			printf("  O: %-22s - no Linux symbol, skipping\n", it->name);

		}

	}

	printf("\nWindows offsets are (semi-)wild guesses!\n\nSignature offsets are wild guesses!\n\n");

	for (list<Sig>::iterator it = gc.m_Sigs.begin(); it != gc.m_Sigs.end(); it++)

	{

		if (debug)

		{

			printf("DEBUG %s - %s - l: %s\n", it->name, it->lib == Server ? "server" : "engine", it->lin);

		}

		const char *linSymbol = it->lin;

		const char *winSymbol = it->win;

		bool hasLinux   = (linSymbol && linSymbol[0]);

		bool hasWindows = (winSymbol && winSymbol[0]);

		if (!hasLinux && !hasWindows)

		{

			printf("  S: %-22s - hasn't linux nor windows data, skipping\n", it->name);

			continue;

		}

		int  winFile;

		void *linHandle;

		if (it->lib == Server)

		{

			winFile   = wgfile;

			linHandle = ghandle;

		}

		else if (it->lib == Engine)

		{

			winFile   = wefile;

			linHandle = ehandle;

		}

		else

		{

			printf("  S: %-22s - isn't from server nor engine, skipping\n", it->name);

			continue;

		}

		int linuxMatches = 0, windowsMatches = 0;

		if( hasLinux )

			linuxMatches = checkSigStringL(linHandle, linSymbol);

		if( hasWindows )

			windowsMatches = checkSigStringW(winFile,   winSymbol);

		if (linuxMatches == 1 && windowsMatches == 1)

		{

			// too much clutter to print current data if it matches anyway, unlike with offsets

			/*

			printf("%-22s (%s) - GOOD. current:\n\t[w:%s]\n\t[l:%s]\n",

				it->name,

				(it->lib == Server) ? "server" : "engine",

				winSymbol ? winSymbol : "",

				linSymbol ? linSymbol : ""

				);

			*/

			printf("  S: %-22s (%s) - w: GOOD     - l: GOOD    \n",

				it->name,

				(it->lib == Server) ? "server" : "engine"

				);

			//Check if they signature has a matching offset

			CheckWindowsSigOffset(it->name, winSymbol, winFile);

			CheckLinuxSigOffset(it->name, linSymbol, linHandle);

		}

		else

		{

			char winStatus[16];

			// right now the only option is to ignore

			const char *options = symbols.GetOptionValue(it->name);

			bool allowMulti = ( options && strstr(options, "allowmultiple") != NULL );

			bool allowMidfunc = ( options && strstr(options, "allowmidfunc") != NULL );

			bool bWinGood = false;

			if( !hasWindows ) {

				snprintf( winStatus, sizeof(winStatus), "UNKNOWN" );

			}

			else if( windowsMatches == -1 && !allowMidfunc) {

				snprintf( winStatus, sizeof(winStatus), "MIDFUNC" );

			}

			else if( windowsMatches == 0 ) {

				snprintf( winStatus, sizeof(winStatus), "NOTFOUND" );

			}

			else if( windowsMatches > 1 && !allowMulti) {

				snprintf( winStatus, sizeof(winStatus), "MULTIPLE" );

			}

			else {

				bWinGood = true;

				snprintf( winStatus, sizeof(winStatus), "GOOD" );

			}

			char linStatus[16];

			bool bLinGood = false;

			if( !hasLinux ) {

				snprintf( linStatus, sizeof(linStatus), "UNKNOWN" );

			}

			else if( linuxMatches == 0 ) {

				snprintf( linStatus, sizeof(linStatus), "NOTFOUND" );

			}

			else if( linuxMatches == 1 ) {

				bLinGood = true;

				snprintf( linStatus, sizeof(linStatus), "GOOD" );

			}

			else {

				snprintf( linStatus, sizeof(linStatus), "CHECK" );

			}

			bool showWinExtra = (hasWindows && !bWinGood);

			bool showLinExtra = ( ( hasLinux && !bLinGood ) || showWinExtra );

			printf("%s S: %-22s (%s)", (showWinExtra || showLinExtra) ? "!" : " ", it->name, (it->lib == Server) ? "server" : "engine" );

				printf(" - w: %-8s - l: %-8s\n", winStatus, linStatus );

			if( showWinExtra || showLinExtra )

				printf( "!    current:\n" );

			if( showWinExtra )

			{

				printf("!    w: \"%s\"\n",

					winSymbol ? winSymbol : ""

					);

			}

			if( showLinExtra )

			{

				// extra \n at end is intentional to add buffer after possibly long sigs

				printf("!    l: \"%s\"\n\n",

					linSymbol ? linSymbol : ""

					);

			}			

		}

	}

	return 0;

}

void CheckWindowsSigOffset(char* name, const char* symbol, int file)

{

	void *ptr = GetWindowsSigPtr(file, symbol);

	if(!ptr)

	{

		return;

	}

	const char* sigOffsetKey = NULL;

	const char* sigOffsetByte = NULL;

	int sigOffset = -1;

	char sigOffsetName[128];

	char sigByteName[128];

	snprintf(sigOffsetName, sizeof(sigOffsetName), "%s_Offset", name);

	snprintf(sigByteName, sizeof(sigByteName), "%s_Byte_Win", name);

	sigOffsetKey = symbols.GetKeyValue((const char *)sigOffsetName);

	if(sigOffsetKey == NULL)

	{

		//Maybe it has multiple?

		for(unsigned int i = 1; i <= 4; i++)

		{

			snprintf(sigOffsetName, sizeof(sigOffsetName), "%s_Offset%i", name, i);

			snprintf(sigByteName, sizeof(sigByteName), "%s_Byte_Win%i", name, i);

			sigOffsetKey = symbols.GetKeyValue((const char *)sigOffsetName);

			if(sigOffsetKey == NULL)

			{

				break;

			}

			sigOffset = GetOffset(sigOffsetKey, true);

			sigOffsetByte = symbols.GetKeyValue((const char *)sigByteName);

			if(sigOffset != -1 && sigOffsetByte != NULL)//Got the offset in the function

			{

				uint8_t iByte = strtoul(sigOffsetByte, NULL, 16);

				if(iByte == *(uint8_t *)((intptr_t)ptr + sigOffset))

				{

					printf("     w: %s -> %s (%4d) == \\x%s GOOD\n", name, sigOffsetKey, sigOffset, sigOffsetByte);

				}

				else

				{

					printf("!    w: %s -> %s (%4d) != \\x%s BAD\n", name, sigOffsetKey, sigOffset, sigOffsetByte);

				}

			}

		}

	}

	else

	{

		sigOffset = GetOffset(sigOffsetKey, true);

		sigOffsetByte = symbols.GetKeyValue((const char *)sigByteName);

		if(sigOffset != -1 && sigOffsetByte != NULL)//Got the offset in the function

		{

			uint8_t iByte = strtoul(sigOffsetByte, NULL, 16);

			if(iByte == *(uint8_t *)((intptr_t)ptr + sigOffset))

			{

				printf("     w: %s -> %s (%4d) == \\x%s GOOD\n", name, sigOffsetKey, sigOffset, sigOffsetByte);

			}

			else

			{

				printf("!    w: %s -> %s (%4d) != \\x%s BAD\n", name, sigOffsetKey, sigOffset, sigOffsetByte);

			}

		}

	}

}

void CheckLinuxSigOffset(char* name, const char* symbol, void * handle)

{

	void *ptr = GetLinuxSigPtr(handle, symbol);

	if(!ptr)

	{

		return;

	}

	const char* sigOffsetKey = NULL;

	const char* sigOffsetByte = NULL;

	int sigOffset = -1;

	char sigOffsetName[128];

	char sigByteName[128];

	snprintf(sigOffsetName, sizeof(sigOffsetName), "%s_Offset", name);

	snprintf(sigByteName, sizeof(sigByteName), "%s_Byte_Lin", name);

	sigOffsetKey = symbols.GetKeyValue((const char *)sigOffsetName);

	if(sigOffsetKey == NULL)

	{

		//Maybe it has multiple?

		for(unsigned int i = 1; i <= 4; i++)

		{

			snprintf(sigOffsetName, sizeof(sigOffsetName), "%s_Offset%i", name, i);

			snprintf(sigByteName, sizeof(sigByteName), "%s_Byte_Lin%i", name, i);

			sigOffsetKey = symbols.GetKeyValue((const char *)sigOffsetName);

			if(sigOffsetKey == NULL)

			{

				break;

			}

			sigOffset = GetOffset(sigOffsetKey, false);

			sigOffsetByte = symbols.GetKeyValue((const char *)sigByteName);

			if(sigOffset != -1 && sigOffsetByte != NULL)//Got the offset in the function

			{

				uint8_t iByte = strtoul(sigOffsetByte, NULL, 16);

				if(iByte == *(uint8_t *)((intptr_t)ptr + sigOffset))

				{

					printf("     l: %s -> %s (%4d) == \\x%s GOOD\n", name, sigOffsetKey, sigOffset, sigOffsetByte);

				}

				else

				{

					printf("!    l: %s -> %s (%4d) != \\x%s BAD\n", name, sigOffsetKey, sigOffset, sigOffsetByte);

				}

			}

		}

	}

	else

	{

		sigOffset = GetOffset(sigOffsetKey, false);

		sigOffsetByte = symbols.GetKeyValue((const char *)sigByteName);

		if(sigOffset != -1 && sigOffsetByte != NULL)//Got the offset in the function

		{

			uint8_t iByte = strtoul(sigOffsetByte, NULL, 16);

			if(iByte == *(uint8_t *)((intptr_t)ptr + sigOffset))

			{

				printf("     l: %s -> %s (%4d) == \\x%s GOOD\n", name, sigOffsetKey, sigOffset, sigOffsetByte);

			}

			else

			{

				printf("!    l: %s -> %s (%4d) != \\x%s BAD\n", name, sigOffsetKey, sigOffset, sigOffsetByte);

			}

		}

	}

}

int GetOffset(const char* key, bool windows)

{

	for (list<Offset>::iterator it = gc.m_Offsets.begin(); it != gc.m_Offsets.end(); it++)

	{

		if (strcmp(it->name, key) == 0)

		{

			if(windows)

				return it->win;

			else

				return it->lin;

		}

	}

	return -1;

}

void *GetWindowsSigPtr(int file, const char* symbol)

{

	int matches = 0;

	bool atFuncStart = true;

	bool isAt = (symbol[0] == '@');

	// we can't support this on windows from here