mirror of
https://github.com/VCMP-SqMod/SqMod.git
synced 2024-11-08 08:47:17 +01:00
b818a162ee
Implemented utilities to convert between fundamental types. Implemented helper functions to retrieve numeric values from the stack at all costs. Implemented various delegates on the long integer types to mimic the standard types. Moved most of the stack utilities in a separate source. Various other fixes and improvements.
293 lines
10 KiB
C++
293 lines
10 KiB
C++
// ------------------------------------------------------------------------------------------------
|
|
#include "Entity/Keybind.hpp"
|
|
#include "Base/Stack.hpp"
|
|
#include "Core.hpp"
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
namespace SqMod {
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
const Int32 CKeybind::Max = SQMOD_KEYBIND_POOL;
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
SQInteger CKeybind::Typename(HSQUIRRELVM vm)
|
|
{
|
|
static SQChar name[] = _SC("SqKeybind");
|
|
sq_pushstring(vm, name, sizeof(name));
|
|
return 1;
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
CKeybind::CKeybind(Int32 id)
|
|
: m_ID(VALID_ENTITYGETEX(id, SQMOD_KEYBIND_POOL))
|
|
, m_Tag(ToStrF("%d", id))
|
|
{
|
|
/* ... */
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
CKeybind::~CKeybind()
|
|
{
|
|
/* ... */
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
Int32 CKeybind::Cmp(const CKeybind & o) const
|
|
{
|
|
if (m_ID == o.m_ID)
|
|
return 0;
|
|
else if (m_ID > o.m_ID)
|
|
return 1;
|
|
else
|
|
return -1;
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
const String & CKeybind::ToString() const
|
|
{
|
|
return m_Tag;
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
const String & CKeybind::GetTag() const
|
|
{
|
|
return m_Tag;
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
void CKeybind::SetTag(CSStr tag)
|
|
{
|
|
m_Tag.assign(tag);
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
Object & CKeybind::GetData()
|
|
{
|
|
// Validate the managed identifier
|
|
Validate();
|
|
// Return the requested information
|
|
return m_Data;
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
void CKeybind::SetData(Object & data)
|
|
{
|
|
// Validate the managed identifier
|
|
Validate();
|
|
// Apply the specified value
|
|
m_Data = data;
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
bool CKeybind::Destroy(Int32 header, Object & payload)
|
|
{
|
|
// Validate the managed identifier
|
|
Validate();
|
|
// Perform the requested operation
|
|
return _Core->DelKeybind(m_ID, header, payload);
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
void CKeybind::BindEvent(Int32 evid, Object & env, Function & func) const
|
|
{
|
|
// Validate the managed identifier
|
|
Validate();
|
|
// Obtain the function instance called for this event
|
|
Function & event = _Core->GetKeybindEvent(m_ID, evid);
|
|
// Is the specified callback function null?
|
|
if (func.IsNull())
|
|
{
|
|
event.Release(); // Then release the current callback
|
|
}
|
|
// Assign the specified environment and function
|
|
else
|
|
{
|
|
event = Function(env.GetVM(), env, func.GetFunc());
|
|
}
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
Int32 CKeybind::GetFirst() const
|
|
{
|
|
// Validate the managed identifier
|
|
Validate();
|
|
// Return the requested information
|
|
return _Core->GetKeybind(m_ID).mFirst;
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
Int32 CKeybind::GetSecond() const
|
|
{
|
|
// Validate the managed identifier
|
|
Validate();
|
|
// Return the requested information
|
|
return _Core->GetKeybind(m_ID).mSecond;
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
Int32 CKeybind::GetThird() const
|
|
{
|
|
// Validate the managed identifier
|
|
Validate();
|
|
// Return the requested information
|
|
return _Core->GetKeybind(m_ID).mThird;
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
bool CKeybind::IsRelease() const
|
|
{
|
|
// Validate the managed identifier
|
|
Validate();
|
|
// Return the requested information
|
|
return _Core->GetKeybind(m_ID).mRelease;
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
static Object & Keybind_CreateEx(Int32 slot, bool release, Int32 primary, Int32 secondary,
|
|
Int32 alternative)
|
|
{
|
|
return _Core->NewKeybind(slot, release, primary, secondary, alternative,
|
|
SQMOD_CREATE_DEFAULT, NullObject());
|
|
}
|
|
|
|
static Object & Keybind_CreateEx(Int32 slot, bool release, Int32 primary, Int32 secondary,
|
|
Int32 alternative, Int32 header, Object & payload)
|
|
{
|
|
return _Core->NewKeybind(slot, release, primary, secondary, alternative, header, payload);
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
static Object & Keybind_Create(bool release, Int32 primary, Int32 secondary, Int32 alternative)
|
|
{
|
|
return _Core->NewKeybind(-1, release, primary, secondary, alternative,
|
|
SQMOD_CREATE_DEFAULT, NullObject());
|
|
}
|
|
|
|
static Object & Keybind_Create(bool release, Int32 primary, Int32 secondary, Int32 alternative,
|
|
Int32 header, Object & payload)
|
|
{
|
|
return _Core->NewKeybind(-1, release, primary, secondary, alternative, header, payload);
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
static const Object & Keybind_FindByID(Int32 id)
|
|
{
|
|
// Perform a range check on the specified identifier
|
|
if (INVALID_ENTITYEX(id, SQMOD_KEYBIND_POOL))
|
|
{
|
|
STHROWF("The specified keybind identifier is invalid: %d", id);
|
|
}
|
|
// Obtain the ends of the entity pool
|
|
Core::Keybinds::const_iterator itr = _Core->GetKeybinds().cbegin();
|
|
Core::Keybinds::const_iterator end = _Core->GetKeybinds().cend();
|
|
// Process each entity in the pool
|
|
for (; itr != end; ++itr)
|
|
{
|
|
// Does the identifier match the specified one?
|
|
if (itr->mID == id)
|
|
{
|
|
return itr->mObj; // Stop searching and return this entity
|
|
}
|
|
}
|
|
// Unable to locate a keybind matching the specified identifier
|
|
return NullObject();
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
static const Object & Keybind_FindByTag(CSStr tag)
|
|
{
|
|
// Perform a validity check on the specified tag
|
|
if (!tag || *tag == '\0')
|
|
{
|
|
STHROWF("The specified keybind tag is invalid: null/empty");
|
|
}
|
|
// Obtain the ends of the entity pool
|
|
Core::Keybinds::const_iterator itr = _Core->GetKeybinds().cbegin();
|
|
Core::Keybinds::const_iterator end = _Core->GetKeybinds().cend();
|
|
// Process each entity in the pool
|
|
for (; itr != end; ++itr)
|
|
{
|
|
// Does this entity even exist and does the tag match the specified one?
|
|
if (itr->mInst != nullptr && itr->mInst->GetTag().compare(tag) == 0)
|
|
{
|
|
return itr->mObj; // Stop searching and return this entity
|
|
}
|
|
}
|
|
// Unable to locate a keybind matching the specified tag
|
|
return NullObject();
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
static Array Keybind_FindActive()
|
|
{
|
|
// Remember the initial stack size
|
|
StackGuard sg;
|
|
// Obtain the ends of the entity pool
|
|
Core::Keybinds::const_iterator itr = _Core->GetKeybinds().cbegin();
|
|
Core::Keybinds::const_iterator end = _Core->GetKeybinds().cend();
|
|
// Allocate an empty array on the stack
|
|
sq_newarray(DefaultVM::Get(), 0);
|
|
// Process each entity in the pool
|
|
for (; itr != end; ++itr)
|
|
{
|
|
// Is this entity instance active?
|
|
if (VALID_ENTITY(itr->mID))
|
|
{
|
|
// Push the script object on the stack
|
|
sq_pushobject(DefaultVM::Get(), (HSQOBJECT &)((*itr).mObj));
|
|
// Append the object at the back of the array
|
|
if (SQ_FAILED(sq_arrayappend(DefaultVM::Get(), -1)))
|
|
{
|
|
STHROWF("Unable to append entity instance to the list");
|
|
}
|
|
}
|
|
}
|
|
// Return the array at the top of the stack
|
|
return Var< Array >(DefaultVM::Get(), -1).value;
|
|
}
|
|
|
|
// ================================================================================================
|
|
void Register_CKeybind(HSQUIRRELVM vm)
|
|
{
|
|
RootTable(vm).Bind(_SC("SqKeybind"),
|
|
Class< CKeybind, NoConstructor< CKeybind > >(vm, _SC("SqKeybind"))
|
|
// Metamethods
|
|
.Func(_SC("_cmp"), &CKeybind::Cmp)
|
|
.SquirrelFunc(_SC("_typename"), &CKeybind::Typename)
|
|
.Func(_SC("_tostring"), &CKeybind::ToString)
|
|
// Static Values
|
|
.SetStaticValue(_SC("MaxID"), CKeybind::Max)
|
|
// Core Properties
|
|
.Prop(_SC("ID"), &CKeybind::GetID)
|
|
.Prop(_SC("Tag"), &CKeybind::GetTag, &CKeybind::SetTag)
|
|
.Prop(_SC("Data"), &CKeybind::GetData, &CKeybind::SetData)
|
|
.Prop(_SC("Active"), &CKeybind::IsActive)
|
|
// Core Methods
|
|
.Func(_SC("Bind"), &CKeybind::BindEvent)
|
|
// Core Overloads
|
|
.Overload< bool (CKeybind::*)(void) >(_SC("Destroy"), &CKeybind::Destroy)
|
|
.Overload< bool (CKeybind::*)(Int32) >(_SC("Destroy"), &CKeybind::Destroy)
|
|
.Overload< bool (CKeybind::*)(Int32, Object &) >(_SC("Destroy"), &CKeybind::Destroy)
|
|
// Properties
|
|
.Prop(_SC("First"), &CKeybind::GetFirst)
|
|
.Prop(_SC("Second"), &CKeybind::GetSecond)
|
|
.Prop(_SC("Third"), &CKeybind::GetThird)
|
|
.Prop(_SC("Release"), &CKeybind::IsRelease)
|
|
// Static Functions
|
|
.StaticFunc(_SC("FindByID"), &Keybind_FindByID)
|
|
.StaticFunc(_SC("FindByTag"), &Keybind_FindByTag)
|
|
.StaticFunc(_SC("FindActive"), &Keybind_FindActive)
|
|
// Static Overloads
|
|
.StaticOverload< Object & (*)(Int32, bool, Int32, Int32, Int32) >
|
|
(_SC("CreateEx"), &Keybind_CreateEx)
|
|
.StaticOverload< Object & (*)(Int32, bool, Int32, Int32, Int32, Int32, Object &) >
|
|
(_SC("CreateEx"), &Keybind_CreateEx)
|
|
.StaticOverload< Object & (*)(bool, Int32, Int32, Int32) >
|
|
(_SC("Create"), &Keybind_Create)
|
|
.StaticOverload< Object & (*)(bool, Int32, Int32, Int32, Int32, Object &) >
|
|
(_SC("Create"), &Keybind_Create)
|
|
);
|
|
}
|
|
|
|
} // Namespace:: SqMod
|