#include "gui/wxgui.h"
#include "TextureRelationWindow.h"
#include "Cafe/HW/Latte/Core/LatteTexture.h"

enum
{
	// options
	REFRESH_ID,
	CLOSE_ID,
	TEX_LIST_A_ID,
	TEX_LIST_B_ID,
	CHECKBOX_SHOW_ONLY_ACTIVE,
	CHECKBOX_SHOW_VIEWS,
};

wxBEGIN_EVENT_TABLE(TextureRelationViewerWindow, wxFrame)
EVT_BUTTON(CLOSE_ID, TextureRelationViewerWindow::OnCloseButton)
EVT_BUTTON(REFRESH_ID, TextureRelationViewerWindow::OnRefreshButton)
EVT_CHECKBOX(CHECKBOX_SHOW_ONLY_ACTIVE, TextureRelationViewerWindow::OnCheckbox)
EVT_CHECKBOX(CHECKBOX_SHOW_VIEWS, TextureRelationViewerWindow::OnCheckbox)

EVT_CLOSE(TextureRelationViewerWindow::OnClose)
wxEND_EVENT_TABLE()

wxListCtrl* textureRelationListA;
bool isTextureViewerOpen = false;

void openTextureViewer(wxFrame& parentFrame)
{
	if (isTextureViewerOpen)
		return;
	auto frame = new TextureRelationViewerWindow(parentFrame);
	frame->Show(true);
}

TextureRelationViewerWindow::TextureRelationViewerWindow(wxFrame& parent)
	: wxFrame(&parent, wxID_ANY, _("Texture cache"), wxDefaultPosition, wxSize(1000, 480), wxCLOSE_BOX | wxCLIP_CHILDREN | wxCAPTION | wxRESIZE_BORDER)
{
	isTextureViewerOpen = true;

	this->showOnlyActive = false;
	this->showTextureViews = true;

	wxPanel* mainPane = new wxPanel(this);
	wxBoxSizer* sizer = new wxBoxSizer(wxVERTICAL);
	textureRelationListA = new wxListCtrl(mainPane, TEX_LIST_A_ID, wxPoint(0, 0), wxSize(1008, 440), wxLC_REPORT);

	textureRelationListA->SetFont(wxFont(8, wxFONTFAMILY_MODERN, wxFONTSTYLE_NORMAL, wxFONTWEIGHT_NORMAL, false, "Courier New"));//wxSystemSettings::GetFont(wxSYS_OEM_FIXED_FONT));

	// add columns
	wxListItem col0;
	sint32 columnIndex = 0;
	col0.SetId(columnIndex); columnIndex++;
	col0.SetText("Type");
	col0.SetWidth(85);
	textureRelationListA->InsertColumn(columnIndex-1, col0);
	wxListItem col1;
	col1.SetId(columnIndex); columnIndex++;
	col1.SetText("PhysAddr");
	col1.SetWidth(80);
	textureRelationListA->InsertColumn(columnIndex-1, col1);
	wxListItem col2;
	col2.SetId(columnIndex); columnIndex++;
	col2.SetText("Dim");
	col2.SetWidth(80);
	textureRelationListA->InsertColumn(columnIndex-1, col2);
	wxListItem col3;
	col3.SetId(columnIndex); columnIndex++;
	col3.SetText("Resolution");
	col3.SetWidth(110);
	textureRelationListA->InsertColumn(columnIndex-1, col3);
	wxListItem col5;
	col5.SetId(columnIndex); columnIndex++;
	col5.SetText("Format");
	col5.SetWidth(70);
	textureRelationListA->InsertColumn(columnIndex-1, col5);
	wxListItem colPriority;
	colPriority.SetId(columnIndex); columnIndex++;
	colPriority.SetText("Pitch");
	colPriority.SetWidth(80);
	textureRelationListA->InsertColumn(columnIndex-1, colPriority);
	wxListItem col6;
	col6.SetId(columnIndex); columnIndex++;
	col6.SetText("Tilemode");
	col6.SetWidth(80);
	textureRelationListA->InsertColumn(columnIndex-1, col6);
	wxListItem col7;
	col7.SetId(columnIndex); columnIndex++;
	col7.SetText("SliceRange");
	col7.SetWidth(90);
	textureRelationListA->InsertColumn(columnIndex-1, col7);
	wxListItem col8;
	col8.SetId(columnIndex); columnIndex++;
	col8.SetText("MipRange");
	col8.SetWidth(90);
	textureRelationListA->InsertColumn(columnIndex-1, col8);
	wxListItem colAge;
	colAge.SetId(columnIndex); columnIndex++;
	colAge.SetText("Last access");
	colAge.SetWidth(90);
	textureRelationListA->InsertColumn(columnIndex - 1, colAge);
	wxListItem colOverwriteRes;
	colOverwriteRes.SetId(columnIndex); columnIndex++;
	colOverwriteRes.SetText("OverwriteRes");
	colOverwriteRes.SetWidth(110);
	textureRelationListA->InsertColumn(columnIndex - 1, colOverwriteRes);

	wxBoxSizer* sizerBottom = new wxBoxSizer(wxHORIZONTAL);

	sizer->Add(textureRelationListA, 1, wxEXPAND | wxBOTTOM, 0);
	wxButton* button = new wxButton(mainPane, REFRESH_ID, _("Refresh"), wxPoint(0, 0), wxSize(80, 26));
	sizerBottom->Add(button, 0, wxBOTTOM | wxTOP | wxLEFT, 10);

	wxCheckBox* checkboxShowOnlyActive = new wxCheckBox(mainPane, CHECKBOX_SHOW_ONLY_ACTIVE, _("Show only active"), wxPoint(0, 0), wxSize(110, 26));
	sizerBottom->Add(checkboxShowOnlyActive, 0, wxBOTTOM | wxTOP | wxLEFT, 10);

	wxCheckBox* checkboxShowViews = new wxCheckBox(mainPane, CHECKBOX_SHOW_VIEWS, _("Show views"), wxPoint(0, 0), wxSize(90, 26));
	sizerBottom->Add(checkboxShowViews, 0, wxBOTTOM | wxTOP | wxLEFT, 10);
	checkboxShowViews->SetValue(true);

	textureRelationListA->Connect(wxEVT_RIGHT_DOWN, wxMouseEventHandler(TextureRelationViewerWindow::OnTextureListRightClick), NULL, this);

	sizer->Add(
		sizerBottom,
		0,                // vertically unstretchable
		wxALIGN_LEFT);
	mainPane->SetSizer(sizer);

	RefreshTextureList();

	wxFrame::SetBackgroundColour(*wxWHITE);
}

TextureRelationViewerWindow::~TextureRelationViewerWindow()
{
	isTextureViewerOpen = false;
}

void TextureRelationViewerWindow::OnCloseButton(wxCommandEvent& event)
{
	Close();
}

void TextureRelationViewerWindow::OnRefreshButton(wxCommandEvent& event)
{
	RefreshTextureList();
}

void TextureRelationViewerWindow::OnCheckbox(wxCommandEvent& event)
{
	if (event.GetId() == CHECKBOX_SHOW_ONLY_ACTIVE)
	{
		showOnlyActive = event.IsChecked();
		RefreshTextureList();
	}
	else if (event.GetId() == CHECKBOX_SHOW_VIEWS)
	{
		showTextureViews = event.IsChecked();
		RefreshTextureList();
	}
}

void TextureRelationViewerWindow::OnClose(wxCloseEvent& event)
{
	Close();
}

void TextureRelationViewerWindow::_setTextureRelationListItemTexture(wxListCtrl* uiList, sint32 rowIndex, struct LatteTextureInformation* texInfo)
{
	char tempStr[512];
	// count number of alternative views for base view
	sint32 alternativeViewCount = texInfo->alternativeViewCount;
	if (texInfo->isUpdatedOnGPU)
		sprintf(tempStr, "TEXTURE*");
	else
		sprintf(tempStr, "TEXTURE");
	if (alternativeViewCount > 0)
	{
		sprintf(tempStr + strlen(tempStr), "(%d)", alternativeViewCount + 1);
	}
	uint32 bgColor = 0xFFEEEEEE;
	wxListItem item;
	item.SetId(rowIndex);
	item.SetText(tempStr);
	item.SetBackgroundColour(wxColour(bgColor));
	uiList->InsertItem(item);

	sint32 columnIndex = 1;
	// phys address
	sprintf(tempStr, "%08X", texInfo->physAddress);
	uiList->SetItem(rowIndex, columnIndex, tempStr);
	columnIndex++;
	// dim
	if (texInfo->dim == Latte::E_DIM::DIM_2D)
		strcpy(tempStr, "2D");
	else if (texInfo->dim == Latte::E_DIM::DIM_2D_ARRAY)
		strcpy(tempStr, "2D_ARRAY");
	else if (texInfo->dim == Latte::E_DIM::DIM_3D)
		strcpy(tempStr, "3D");
	else if (texInfo->dim == Latte::E_DIM::DIM_CUBEMAP)
		strcpy(tempStr, "CUBEMAP");
	else if (texInfo->dim == Latte::E_DIM::DIM_1D)
		strcpy(tempStr, "1D");
	else if (texInfo->dim == Latte::E_DIM::DIM_2D_MSAA)
		strcpy(tempStr, "2D_MSAA");
	else if (texInfo->dim == Latte::E_DIM::DIM_2D_ARRAY_MSAA)
		strcpy(tempStr, "2D_MS_ARRAY");
	else
		strcpy(tempStr, "UKN");
	uiList->SetItem(rowIndex, columnIndex, tempStr);
	columnIndex++;
	// resolution
	if (texInfo->depth == 1)
		sprintf(tempStr, "%dx%d", texInfo->width, texInfo->height);
	else
		sprintf(tempStr, "%dx%dx%d", texInfo->width, texInfo->height, texInfo->depth);
	uiList->SetItem(rowIndex, columnIndex, tempStr);
	columnIndex++;
	// format
	if(texInfo->isDepth)
		sprintf(tempStr, "%04x(d)", (uint32)texInfo->format);
	else
		sprintf(tempStr, "%04x", (uint32)texInfo->format);
	uiList->SetItem(rowIndex, columnIndex, tempStr);
	columnIndex++;
	// pitch
	sprintf(tempStr, "%d", texInfo->pitch);
	uiList->SetItem(rowIndex, columnIndex, tempStr);
	columnIndex++;
	// tilemode
	sprintf(tempStr, "%d", texInfo->tileMode);
	uiList->SetItem(rowIndex, columnIndex, tempStr);
	columnIndex++;
	// sliceRange
	sprintf(tempStr, "");
	uiList->SetItem(rowIndex, columnIndex, tempStr);
	columnIndex++;
	// mipRange
	if(texInfo->mipLevels == 1)
		sprintf(tempStr, "1 mip");
	else
		sprintf(tempStr, "%d mips", texInfo->mipLevels);
	uiList->SetItem(rowIndex, columnIndex, tempStr);
	columnIndex++;
	// last access
	sprintf(tempStr, "%ds", (GetTickCount() - texInfo->lastAccessTick + 499) / 1000);
	uiList->SetItem(rowIndex, columnIndex, tempStr);
	columnIndex++;
	// overwrite resolution
	strcpy(tempStr, "");
	if (texInfo->overwriteInfo.hasResolutionOverwrite)
	{
		if(texInfo->overwriteInfo.depth != 1 || texInfo->depth != 1)
			sprintf(tempStr, "%dx%dx%d", texInfo->overwriteInfo.width, texInfo->overwriteInfo.height, texInfo->overwriteInfo.depth);
		else
			sprintf(tempStr, "%dx%d", texInfo->overwriteInfo.width, texInfo->overwriteInfo.height);
	}
	uiList->SetItem(rowIndex, columnIndex, tempStr);
	columnIndex++;
}

void TextureRelationViewerWindow::_setTextureRelationListItemView(wxListCtrl* uiList, sint32 rowIndex, struct LatteTextureInformation* texInfo, struct LatteTextureViewInformation* viewInfo)
{
	char tempStr[512];
	// count number of alternative views
	sint32 alternativeViewCount = 0; // todo
	// set type string
	if(alternativeViewCount == 0)
		sprintf(tempStr, "> VIEW");
	else
		sprintf(tempStr, "> VIEW(%d)", alternativeViewCount+1);
	// find and handle highlight entry
	uint32 bgColor = 0xFFDDDDDD;
	wxListItem item;
	item.SetId(rowIndex);
	item.SetText(tempStr);
	item.SetBackgroundColour(wxColour(bgColor));
	uiList->InsertItem(item);
	//uiList->SetItemPtrData(item, (wxUIntPtr)viewInfo);
	sint32 columnIndex = 1;
	// phys address
	sprintf(tempStr, "");
	uiList->SetItem(rowIndex, columnIndex, tempStr);
	columnIndex++;
	// dim
	if (viewInfo->dim == Latte::E_DIM::DIM_2D)
		strcpy(tempStr, "2D");
	else if (viewInfo->dim == Latte::E_DIM::DIM_2D_ARRAY)
		strcpy(tempStr, "2D_ARRAY");
	else if (viewInfo->dim == Latte::E_DIM::DIM_3D)
		strcpy(tempStr, "3D");
	else if (viewInfo->dim == Latte::E_DIM::DIM_CUBEMAP)
		strcpy(tempStr, "CUBEMAP");
	else if (viewInfo->dim == Latte::E_DIM::DIM_1D)
		strcpy(tempStr, "1D");
	else if (viewInfo->dim == Latte::E_DIM::DIM_2D_MSAA)
		strcpy(tempStr, "2D_MSAA");
	else if (viewInfo->dim == Latte::E_DIM::DIM_2D_ARRAY_MSAA)
		strcpy(tempStr, "2D_ARRAY_MSAA");
	else
		strcpy(tempStr, "UKN");
	uiList->SetItem(rowIndex, columnIndex, tempStr);
	columnIndex++;
	// resolution
	tempStr[0] = '\0';
	uiList->SetItem(rowIndex, columnIndex, tempStr);
	columnIndex++;
	// format
	sprintf(tempStr, "%04x", (uint32)viewInfo->format);
	uiList->SetItem(rowIndex, columnIndex, tempStr);
	columnIndex++;
	// pitch
	tempStr[0] = '\0';
	uiList->SetItem(rowIndex, columnIndex, tempStr);
	columnIndex++;
	// tilemode
	tempStr[0] = '\0';
	uiList->SetItem(rowIndex, columnIndex, tempStr);
	columnIndex++;
	// sliceRange
	sprintf(tempStr, "%d-%d", viewInfo->firstSlice, viewInfo->firstSlice+ viewInfo->numSlice-1);
	uiList->SetItem(rowIndex, columnIndex, tempStr);
	columnIndex++;
	// mipRange
	sprintf(tempStr, "%d-%d", viewInfo->firstMip, viewInfo->firstMip + viewInfo->numMip - 1);
	uiList->SetItem(rowIndex, columnIndex, tempStr);
	columnIndex++;
	// last access
	tempStr[0] = '\0';
	uiList->SetItem(rowIndex, columnIndex, tempStr);
	columnIndex++;
}

void TextureRelationViewerWindow::RefreshTextureList()
{
	int scrollPos = textureRelationListA->GetScrollPos(wxVERTICAL);
	textureRelationListA->DeleteAllItems();

	std::vector<LatteTextureInformation> texCache = LatteTexture_QueryCacheInfo();

	// sort by physAddr in ascending order
	for (sint32 i1 = 0; i1 < texCache.size(); i1++)
	{
		for (sint32 i2 = i1+1; i2 < texCache.size(); i2++)
		{
			if (texCache[i1].physAddress > texCache[i2].physAddress)
			{
				std::swap(texCache[i1], texCache[i2]);
			}
		}
	}

	textureRelationListA->Freeze();

	sint32 rowIndex = 0;
	uint32 currentTick = GetTickCount();
	for (auto& tex : texCache)
	{
		uint32 timeSinceLastAccess = currentTick - tex.lastAccessTick;
		if (showOnlyActive && timeSinceLastAccess > 3000)
			continue; // hide textures which haven't been updated in more than 3 seconds

		_setTextureRelationListItemTexture(textureRelationListA, rowIndex, &tex);
		rowIndex++;
		if (showTextureViews)
		{
			for (auto& view : tex.views)
			{
				_setTextureRelationListItemView(textureRelationListA, rowIndex, &tex, &view);
				rowIndex++;
			}
		}
	}
	textureRelationListA->Thaw();
	long itemCount = textureRelationListA->GetItemCount();
	if (itemCount > 0)
		textureRelationListA->EnsureVisible(std::min<long>(itemCount - 1, scrollPos + textureRelationListA->GetCountPerPage() - 1));
}

void TextureRelationViewerWindow::OnTextureListRightClick(wxMouseEvent& event)
{
	
}

void TextureRelationViewerWindow::Close()
{
	this->Destroy();
}