/**

  * vim: set ts=4 :

  * ===============================================================

  * SourceMod (C)2004-2007 AlliedModders LLC.  All rights reserved.

  * ===============================================================

  *

  * This file is not open source and may not be copied without explicit

  * written permission of AlliedModders LLC.  This file may not be redistributed 

  * in whole or significant part.

  * For information, see LICENSE.txt or http://www.sourcemod.net/license.php

  *

  * Version: $Id$

  */

 #include <stdarg.h>

 #include "sm_stringutil.h"

 #include "MenuStyle_Base.h"

 #include "PlayerManager.h"

 #include "MenuManager.h"

 #include "HandleSys.h"

 BaseMenuStyle::BaseMenuStyle() : m_WatchList(256), m_hHandle(BAD_HANDLE)

 {

 }

 Handle_t BaseMenuStyle::GetHandle()

 {

 	/* Don't create the handle until we need it */

 	if (m_hHandle == BAD_HANDLE)

 	{

 		m_hHandle = g_Menus.CreateStyleHandle(this);

 	}

 	return m_hHandle;

 }

 void BaseMenuStyle::AddClientToWatch(int client)

 {

 	m_WatchList.push_back(client);

 }

 void BaseMenuStyle::RemoveClientFromWatch(int client)

 {

 	m_WatchList.remove(client);

 }

 void BaseMenuStyle::_CancelClientMenu(int client, bool bAutoIgnore/* =false */, MenuCancelReason reason/* =MenuCancel_Interrupt */)

 {

 	CBaseMenuPlayer *player = GetMenuPlayer(client);

 	menu_states_t &states = player->states;

 	bool bOldIgnore = player->bAutoIgnore;

 	if (bAutoIgnore)

 	{

 		player->bAutoIgnore = true;

 	}

 	/* Save states */

 	IMenuHandler *mh = states.mh;

 	IBaseMenu *menu = states.menu;

 	/* Clear menu */

 	player->bInMenu = false;

 	if (player->menuHoldTime)

 	{

 		RemoveClientFromWatch(client);

 	}

 	/* Fire callbacks */

 	mh->OnMenuCancel(menu, client, reason);

 	/* Only fire end if there's a valid menu */

 	if (menu)

 	{

 		mh->OnMenuEnd(menu);

 	}

 	if (bAutoIgnore)

 	{

 		player->bAutoIgnore = bOldIgnore;

 	}

 }

 void BaseMenuStyle::CancelMenu(CBaseMenu *menu)

 {

 	int maxClients = g_Players.GetMaxClients();

 	for (int i=1; i<=maxClients; i++)

 	{

 		CBaseMenuPlayer *player = GetMenuPlayer(i);

 		if (player->bInMenu)

 		{

 			menu_states_t &states = player->states;

 			if (states.menu == menu)

 			{

 				_CancelClientMenu(i);

 			}

 		}

 	}

 }

 bool BaseMenuStyle::CancelClientMenu(int client, bool autoIgnore)

 {

 	if (client < 1 || client > g_Players.MaxClients())

 	{

 		return false;

 	}

 	CBaseMenuPlayer *player = GetMenuPlayer(client);

 	if (!player->bInMenu)

 	{

 		return false;

 	}

 	_CancelClientMenu(client, autoIgnore);

 	return true;

 }

 MenuSource BaseMenuStyle::GetClientMenu(int client, void **object)

 {

 	if (client < 1 || client > g_Players.GetMaxClients())

 	{

 		return MenuSource_None;

 	}

 	CBaseMenuPlayer *player = GetMenuPlayer(client);

 	if (player->bInMenu)

 	{

 		IBaseMenu *menu;

 		if ((menu=player->states.menu) != NULL)

 		{

 			if (object)

 			{

 				*object = menu;

 			}

 			return MenuSource_BaseMenu;

 		}

 		return MenuSource_Display;

 	} else if (player->bInExternMenu) {

 		if (player->menuHoldTime != 0

 			&& (gpGlobals->curtime > player->menuStartTime + player->menuHoldTime))

 		{

 			player->bInExternMenu = false;

 			return MenuSource_None;

 		}

 		return MenuSource_External;

 	}

 	return MenuSource_None;

 }

 void BaseMenuStyle::OnClientDisconnected(int client)

 {

 	CBaseMenuPlayer *player = GetMenuPlayer(client);

 	if (!player->bInMenu)

 	{

 		return;

 	}

 	_CancelClientMenu(client, true, MenuCancel_Disconnect);

 	player->bInMenu = false;

 	player->bInExternMenu = false;

 }

 static int do_lookup[256];

 void BaseMenuStyle::ProcessWatchList()

 {

 	if (!m_WatchList.size())

 	{

 		return;

 	}

 	unsigned int total = 0;

 	for (FastLink<int>::iterator iter=m_WatchList.begin(); iter!=m_WatchList.end(); ++iter)

 	{

 		do_lookup[total++] = (*iter);

 	}

 	int client;

 	CBaseMenuPlayer *player;

 	float curTime = gpGlobals->curtime;

 	for (unsigned int i=0; i<total; i++)

 	{

 		client = do_lookup[i];

 		player = GetMenuPlayer(client);

 		if (!player->bInMenu || !player->menuHoldTime)

 		{

 			m_WatchList.remove(i);

 			continue;

 		}

 		if (curTime > player->menuStartTime + player->menuHoldTime)

 		{

 			_CancelClientMenu(client, false);

 		}

 	}

 }

 void BaseMenuStyle::ClientPressedKey(int client, unsigned int key_press)

 {

 	CBaseMenuPlayer *player = GetMenuPlayer(client);

 	/* First question: Are we in a menu? */

 	if (!player->bInMenu)

 	{

 		return;

 	}

 	bool cancel = false;

 	unsigned int item = 0;

 	MenuCancelReason reason = MenuCancel_Exit;

 	menu_states_t &states = player->states;

 	assert(states.mh != NULL);

 	if (states.menu == NULL)

 	{

 		item = key_press;

 	} else if (key_press < 1 || key_press > GetMaxPageItems()) {

 		cancel = true;

 	} else {

 		ItemSelection type = states.slots[key_press].type;

 		/* For navigational items, we're going to redisplay */

 		if (type == ItemSel_Back)

 		{

 			if (!RedoClientMenu(client, ItemOrder_Descending))

 			{

 				cancel = true;

 				reason = MenuCancel_NoDisplay;

 			} else {

 				return;

 			}

 		} else if (type == ItemSel_Next) {

 			if (!RedoClientMenu(client, ItemOrder_Ascending))

 			{

 				cancel = true;						/* I like Saltines. */

 				reason = MenuCancel_NoDisplay;

 			} else {

 				return;

 			}

 		} else if (type == ItemSel_Exit || type == ItemSel_None) {

 			cancel = true;

 		} else {

 			item = states.slots[key_press].item;

 		}

 	}

 	/* Save variables */

 	IMenuHandler *mh = states.mh;

 	IBaseMenu *menu = states.menu;

 	/* Clear states */

 	player->bInMenu = false;

 	if (player->menuHoldTime)

 	{

 		m_WatchList.remove(client);

 	}

 	if (cancel)

 	{

 		mh->OnMenuCancel(menu, client, reason);

 	} else {

 		mh->OnMenuSelect(menu, client, item);

 	}

 	/* Only fire end for valid menus */

 	if (menu)

 	{

 		mh->OnMenuEnd(menu);

 	}

 }

 bool BaseMenuStyle::DoClientMenu(int client, IMenuPanel *menu, IMenuHandler *mh, unsigned int time)

 {

 	CPlayer *pPlayer = g_Players.GetPlayerByIndex(client);

 	if (!pPlayer || pPlayer->IsFakeClient() || !pPlayer->IsInGame())

 	{

 		return false;

 	}

 	CBaseMenuPlayer *player = GetMenuPlayer(client);

 	if (player->bAutoIgnore)

 	{

 		return false;

 	}

 	/* For the duration of this, we are going to totally ignore whether

 	* the player is already in a menu or not (except to cancel the old one).

 	* Instead, we are simply going to ignore any further menu displays, so

 	* this display can't be interrupted.

 	*/

 	player->bAutoIgnore = true;

 	/* Cancel any old menus */

 	menu_states_t &states = player->states;

 	if (player->bInMenu)

 	{

 		_CancelClientMenu(client, true);

 	}

 	states.firstItem = 0;

 	states.lastItem = 0;

 	states.menu = NULL;

 	states.mh = mh;

 	states.apiVers = SMINTERFACE_MENUMANAGER_VERSION;

 	player->bInMenu = true;

 	player->bInExternMenu = false;

 	player->menuStartTime = gpGlobals->curtime;

 	player->menuHoldTime = time;

 	if (time)

 	{

 		AddClientToWatch(client);

 	}

 	/* Draw the display */

 	SendDisplay(client, menu);

 	/* We can be interrupted again! */

 	player->bAutoIgnore = false;

 	return true;

 }

 bool BaseMenuStyle::DoClientMenu(int client, CBaseMenu *menu, IMenuHandler *mh, unsigned int time)

 {

 	mh->OnMenuStart(menu);

 	if (!mh)

 	{

 		mh->OnMenuCancel(menu, client, MenuCancel_NoDisplay);

 		mh->OnMenuEnd(menu);

 		return false;

 	}

 	CPlayer *pPlayer = g_Players.GetPlayerByIndex(client);

 	if (!pPlayer || pPlayer->IsFakeClient() || !pPlayer->IsInGame())

 	{

 		mh->OnMenuCancel(menu, client, MenuCancel_NoDisplay);

 		mh->OnMenuEnd(menu);

 		return false;

 	}

 	CBaseMenuPlayer *player = GetMenuPlayer(client);

 	if (player->bAutoIgnore)

 	{

 		mh->OnMenuCancel(menu, client, MenuCancel_NoDisplay);

 		mh->OnMenuEnd(menu);

 		return false;

 	}

 	/* For the duration of this, we are going to totally ignore whether

 	* the player is already in a menu or not (except to cancel the old one).

 	* Instead, we are simply going to ignore any further menu displays, so

 	* this display can't be interrupted.

 	*/

 	player->bAutoIgnore = true;

 	/* Cancel any old menus */

 	menu_states_t &states = player->states;

 	if (player->bInMenu)

 	{

 		_CancelClientMenu(client, true);

 	}

 	states.firstItem = 0;

 	states.lastItem = 0;

 	states.menu = menu;

 	states.mh = mh;

 	states.apiVers = SMINTERFACE_MENUMANAGER_VERSION;

 	IMenuPanel *display = g_Menus.RenderMenu(client, states, ItemOrder_Ascending);

 	if (!display)

 	{

 		player->bAutoIgnore = false;

 		player->bInMenu = false;

 		mh->OnMenuCancel(menu, client, MenuCancel_NoDisplay);

 		mh->OnMenuEnd(menu);

 		return false;

 	}

 	/* Finally, set our states */

 	player->bInMenu = true;

 	player->bInExternMenu = false;

 	player->menuStartTime = gpGlobals->curtime;

 	player->menuHoldTime = time;

 	if (time)

 	{

 		AddClientToWatch(client);

 	}

 	/* Draw the display */

 	SendDisplay(client, display);

 	/* Free the display pointer */

 	display->DeleteThis();

 	/* We can be interrupted again! */

 	player->bAutoIgnore = false;

 	return true;

 }

 bool BaseMenuStyle::RedoClientMenu(int client, ItemOrder order)

 {

 	CBaseMenuPlayer *player = GetMenuPlayer(client);

 	menu_states_t &states = player->states;

 	player->bAutoIgnore = true;

 	IMenuPanel *display = g_Menus.RenderMenu(client, states, order);

 	if (!display)

 	{

 		if (player->menuHoldTime)

 		{

 			m_WatchList.remove(client);

 		}

 		player->bAutoIgnore = false;

 		return false;

 	}

 	SendDisplay(client, display);

 	display->DeleteThis();

 	player->bAutoIgnore = false;

 	return true;

 }

 CBaseMenu::CBaseMenu(IMenuHandler *pHandler, IMenuStyle *pStyle, IdentityToken_t *pOwner) : 

 m_pStyle(pStyle), m_Strings(512), m_Pagination(7), m_ExitButton(true), 

 m_bShouldDelete(false), m_bCancelling(false), m_pOwner(pOwner ? pOwner : g_pCoreIdent), 

 m_bDeleting(false), m_bWillFreeHandle(false), m_hHandle(BAD_HANDLE), m_pHandler(pHandler)

 {

 }

 CBaseMenu::~CBaseMenu()

 {

 }

 Handle_t CBaseMenu::GetHandle()

 {

 	if (!m_hHandle)

 	{

 		m_hHandle = g_Menus.CreateMenuHandle(this, m_pOwner);

 	}

 	return m_hHandle;

 }

 bool CBaseMenu::AppendItem(const char *info, const ItemDrawInfo &draw)

 {

 	if (m_Pagination == (unsigned)MENU_NO_PAGINATION

 		&& m_items.size() >= m_pStyle->GetMaxPageItems())

 	{

 		return false;

 	}

 	CItem item;

 	item.infoString = m_Strings.AddString(info);

 	if (draw.display)

 	{

 		item.displayString = m_Strings.AddString(draw.display);

 	}

 	item.style = draw.style;

 	m_items.push_back(item);

 	return true;

 }

 bool CBaseMenu::InsertItem(unsigned int position, const char *info, const ItemDrawInfo &draw)

 {

 	if (m_Pagination == (unsigned)MENU_NO_PAGINATION

 		&& m_items.size() >= m_pStyle->GetMaxPageItems())

 	{

 		return false;

 	}

 	if (position >= m_items.size())

 	{

 		return false;

 	}

 	CItem item;

 	item.infoString = m_Strings.AddString(info);

 	if (draw.display)

 	{

 		item.displayString = m_Strings.AddString(draw.display);

 	}

 	item.style = draw.style;

 	CVector<CItem>::iterator iter = m_items.iterAt(position);

 	m_items.insert(iter, item);

 	return true;

 }

 bool CBaseMenu::RemoveItem(unsigned int position)

 {

 	if (position >= m_items.size())

 	{

 		return false;

 	}

 	m_items.erase(m_items.iterAt(position));

 	if (m_items.size() == 0)

 	{

 		m_Strings.Reset();

 	}

 	return true;

 }

 void CBaseMenu::RemoveAllItems()

 {

 	m_items.clear();

 	m_Strings.Reset();

 }

 const char *CBaseMenu::GetItemInfo(unsigned int position, ItemDrawInfo *draw/* =NULL */)

 {

 	if (position >= m_items.size())

 	{

 		return NULL;

 	}

 	if (draw)

 	{

 		draw->display = m_Strings.GetString(m_items[position].displayString);

 		draw->style = m_items[position].style;

 	}

 	return m_Strings.GetString(m_items[position].infoString);

 }

 unsigned int CBaseMenu::GetItemCount()

 {

 	return m_items.size();

 }

 bool CBaseMenu::SetPagination(unsigned int itemsPerPage)

 {

 	if (itemsPerPage > 7)

 	{

 		return false;

 	}

 	m_Pagination = itemsPerPage;

 	return true;

 }

 unsigned int CBaseMenu::GetPagination()

 {

 	return m_Pagination;

 }

 IMenuStyle *CBaseMenu::GetDrawStyle()

 {

 	return m_pStyle;

 }

 void CBaseMenu::SetDefaultTitle(const char *message)

 {

 	m_Title.assign(message);

 }

 const char *CBaseMenu::GetDefaultTitle()

 {

 	return m_Title.c_str();

 }

 bool CBaseMenu::GetExitButton()

 {

 	return m_ExitButton;

 }

 bool CBaseMenu::SetExitButton(bool set)

 {

 	m_ExitButton = set;

 	return true;

 }

 void CBaseMenu::Cancel()

 {

 	if (m_bCancelling)

 	{

 		return;

 	}

 	m_bCancelling = true;

 	Cancel_Finally();

 	m_bCancelling = false;

 	if (m_bShouldDelete)

 	{

 		InternalDelete();

 	}

 }

 void CBaseMenu::Destroy(bool releaseHandle)

 {

 	/* Check if we shouldn't be here */

 	if (m_bDeleting)

 	{

 		return;

 	}

 	/* Save the destruction hint about our handle */

 	m_bWillFreeHandle = releaseHandle;

 	/* Now actually do stuff */

 	if (!m_bCancelling || m_bShouldDelete)

 	{

 		Cancel();

 		InternalDelete();

 	} else {

 		m_bShouldDelete = true;

 	}

 }

 void CBaseMenu::InternalDelete()

 {

 	if (m_bWillFreeHandle && m_hHandle != BAD_HANDLE)

 	{

 		Handle_t hndl = m_hHandle;

 		HandleSecurity sec;

 		sec.pOwner = m_pOwner;

 		sec.pIdentity = g_pCoreIdent;

 		m_hHandle = BAD_HANDLE;

 		m_bDeleting = true;

 		g_HandleSys.FreeHandle(hndl, &sec);

 	}

 	m_pHandler->OnMenuDestroy(this);

 	delete this;

 }