// Copyright (C) 2003-2009 Dolphin Project.

// 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, version 2.0.

// 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 2.0 for more details.

// A copy of the GPL 2.0 should have been included with the program.
// If not, see http://www.gnu.org/licenses/

// Official SVN repository and contact information can be found at
// http://code.google.com/p/dolphin-emu/

#include <iostream>
#include <cstring>

#include "Common.h"
#include "Thread.h"
#include "HW/Memmap.h"
#include "PowerPC/PPCAnalyst.h"
#include "PowerPC/PPCTables.h"
#include "CoreTiming.h"
#include "Core.h"
#include "PowerPC/Jit64/Jit.h"
#include "PowerPC/PPCSymbolDB.h"
#include "PowerPCDisasm.h"
#include "Console.h"

#define CASE1(x) if (memcmp(cmd, x, 2*sizeof(TCHAR))==0)
#define CASE(x) else if (memcmp(cmd, x, 4*sizeof(TCHAR))==0)

void Console_Submit(const char *cmd)
{
	CASE1("r")
	{
		Core::StartTrace(false);
		INFO_LOG(CONSOLE, "read tracing started.");			
	}
	CASE1("w")
	{
		Core::StartTrace(true);
		INFO_LOG(CONSOLE, "write tracing started.");			
	}
	CASE("trans")
	{
		TCHAR temp[256];
		u32 addr;
		sscanf(cmd, "%s %08x", temp, &addr);
		
		if (addr)
		{
#if MAX_LOGLEVEL >= INFO_LEVEL
			u32 EA =
				Memory::CheckDTLB(addr, Memory::FLAG_NO_EXCEPTION);
			INFO_LOG(CONSOLE, "EA 0x%08x to 0x%08x", addr, EA);
#endif
		}
		else
		{
			DEBUG_LOG(CONSOLE, "Syntax: trans ADDR");
		}
	}
	CASE("call")
	{
		TCHAR temp[256];
		u32 addr;
		sscanf(cmd, "%s %08x", temp, &addr);
		if (addr)
		{
			g_symbolDB.PrintCalls(addr);
		}
		else
		{
			DEBUG_LOG(CONSOLE, "Syntax: call ADDR");
		}
	}
	CASE("llac")
	{
		TCHAR temp[256];
		u32 addr;
		sscanf(cmd, "%s %08x", temp, &addr);
		if (addr)
		{
			g_symbolDB.PrintCallers(addr);
		}
		else
		{
			DEBUG_LOG(CONSOLE, "Syntax: llac ADDR");
		}
	}
	CASE("pend")
	{
		CoreTiming::LogPendingEvents();
	}
	CASE("dump")
	{
		TCHAR temp[256];
		TCHAR filename[256];
		u32 start;
		u32 end;
		sscanf(cmd, "%s %08x %08x %s", temp, &start, &end, filename);

		FILE *f = fopen(filename, "wb");
		for (u32 i = start; i < end; i++)
		{
			u8 b = Memory::ReadUnchecked_U8(i);
			fputc(b,f);
		}
		fclose(f);
		INFO_LOG(CONSOLE, "Dumped from %08x to %08x to %s",start,end,filename);
	}
	CASE("disa")
	{
		u32 start;
		u32 end;
		TCHAR temp[256];
		sscanf(cmd, "%s %08x %08x", temp, &start, &end);
		char disasm[256];
		for (u32 addr = start; addr <= end; addr += 4)
		{
			u32 data = Memory::ReadUnchecked_U32(addr);
			DisassembleGekko(data, addr, disasm, 256);
			printf("%08x: %08x: %s\n", addr, data, disasm);	
		}
	}
	CASE("help")
	{
		ERROR_LOG(CONSOLE, "Dolphin Console Command List");
		ERROR_LOG(CONSOLE, "scan ADDR - will find functions that are called by this function");
		ERROR_LOG(CONSOLE, "call ADDR - will find functions that call this function");
		ERROR_LOG(CONSOLE, "dump START_A END_A FILENAME - will dump memory between START_A and END_A");
		ERROR_LOG(CONSOLE, "help - guess what this does :P");
		ERROR_LOG(CONSOLE, "lisd - list signature database");
		ERROR_LOG(CONSOLE, "lisf - list functions");
		ERROR_LOG(CONSOLE, "trans ADDR - translate address");
	}
	CASE("lisd")
	{
		// PPCAnalyst::ListDB();
	}
	CASE("ipro")
	{
		PPCTables::PrintInstructionRunCounts();
	}
	CASE("lisf")
	{
		g_symbolDB.List();
	}
	else
	{
		printf("blach\n");
		ERROR_LOG(CONSOLE, "Invalid command");	
	}
}
