mirror of
https://github.com/VCMP-SqMod/SqMod.git
synced 2024-11-08 08:47:17 +01:00
bedf03c9cd
Fixed a bug in the Routine system that caused crashes when constructed with only the first three arguments because it wasn't attached. Implemented a gentle release of functions to not release them if the reference count is 1. Adjusted the Routine and Command system to not be necessary to include them in the module core. Moved the INI and XML libraries into their own namespace. Various other modifications and fixes.
139 lines
6.4 KiB
C++
139 lines
6.4 KiB
C++
// ------------------------------------------------------------------------------------------------
|
|
#include "Core.hpp"
|
|
#include "Logger.hpp"
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
#include <sqstdstring.h>
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
namespace SqMod {
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
static Object & GetBlip(Int32 id) { return _Core->GetBlip(id).mObj; }
|
|
static Object & GetCheckpoint(Int32 id) { return _Core->GetCheckpoint(id).mObj; }
|
|
static Object & GetForcefield(Int32 id) { return _Core->GetForcefield(id).mObj; }
|
|
static Object & GetKeybind(Int32 id) { return _Core->GetKeybind(id).mObj; }
|
|
static Object & GetObject(Int32 id) { return _Core->GetObject(id).mObj; }
|
|
static Object & GetPickup(Int32 id) { return _Core->GetPickup(id).mObj; }
|
|
static Object & GetPlayer(Int32 id) { return _Core->GetPlayer(id).mObj; }
|
|
static Object & GetSprite(Int32 id) { return _Core->GetSprite(id).mObj; }
|
|
static Object & GetTextdraw(Int32 id) { return _Core->GetTextdraw(id).mObj; }
|
|
static Object & GetVehicle(Int32 id) { return _Core->GetVehicle(id).mObj; }
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
static bool DelBlip(Int32 id, Int32 header, Object & payload)
|
|
{ return _Core->DelBlip(id, header, payload); }
|
|
static bool DelCheckpoint(Int32 id, Int32 header, Object & payload)
|
|
{ return _Core->DelCheckpoint(id, header, payload); }
|
|
static bool DelForcefield(Int32 id, Int32 header, Object & payload)
|
|
{ return _Core->DelForcefield(id, header, payload); }
|
|
static bool DelKeybind(Int32 id, Int32 header, Object & payload)
|
|
{ return _Core->DelKeybind(id, header, payload); }
|
|
static bool DelObject(Int32 id, Int32 header, Object & payload)
|
|
{ return _Core->DelObject(id, header, payload); }
|
|
static bool DelPickup(Int32 id, Int32 header, Object & payload)
|
|
{ return _Core->DelPickup(id, header, payload); }
|
|
static bool DelSprite(Int32 id, Int32 header, Object & payload)
|
|
{ return _Core->DelSprite(id, header, payload); }
|
|
static bool DelTextdraw(Int32 id, Int32 header, Object & payload)
|
|
{ return _Core->DelTextdraw(id, header, payload); }
|
|
static bool DelVehicle(Int32 id, Int32 header, Object & payload)
|
|
{ return _Core->DelVehicle(id, header, payload); }
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
static bool BindEvent(Int32 id, Object & env, Function & func)
|
|
{ return _Core->BindEvent(id, env, func); }
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
static Int32 GetState() { return _Core->GetState(); }
|
|
static void SetState(Int32 value) { return _Core->SetState(value); }
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
static CSStr GetOption(CSStr name) { return _Core->GetOption(name); }
|
|
static void SetOption(CSStr name, CSStr value) { return _Core->SetOption(name, value); }
|
|
|
|
// ================================================================================================
|
|
void Register_Core(HSQUIRRELVM vm)
|
|
{
|
|
RootTable(vm)
|
|
.Bind(_SC("Core"), Table(vm)
|
|
.Func(_SC("Bind"), &BindEvent)
|
|
.Func(_SC("GetState"), &GetState)
|
|
.Func(_SC("SetState"), &SetState)
|
|
.Func(_SC("GetOption"), &GetOption)
|
|
.Func(_SC("SetOption"), &SetOption)
|
|
.Func(_SC("GetBlip"), &GetBlip)
|
|
.Func(_SC("GetCheckpoint"), &GetCheckpoint)
|
|
.Func(_SC("GetForcefield"), &GetForcefield)
|
|
.Func(_SC("GetKeybind"), &GetKeybind)
|
|
.Func(_SC("GetObject"), &GetObject)
|
|
.Func(_SC("GetPickup"), &GetPickup)
|
|
.Func(_SC("GetPlayer"), &GetPlayer)
|
|
.Func(_SC("GetSprite"), &GetSprite)
|
|
.Func(_SC("GetTextdraw"), &GetTextdraw)
|
|
.Func(_SC("GetVehicle"), &GetVehicle)
|
|
.Func(_SC("DestroyBlip"), &DelBlip)
|
|
.Func(_SC("DestroyCheckpoint"), &DelCheckpoint)
|
|
.Func(_SC("DestroyForcefield"), &DelForcefield)
|
|
.Func(_SC("DestroyKeybind"), &DelKeybind)
|
|
.Func(_SC("DestroyObject"), &DelObject)
|
|
.Func(_SC("DestroyPickup"), &DelPickup)
|
|
.Func(_SC("DestroySprite"), &DelSprite)
|
|
.Func(_SC("DestroyTextdraw"), &DelTextdraw)
|
|
.Func(_SC("DestroyVehicle"), &DelVehicle)
|
|
);
|
|
}
|
|
|
|
// ------------------------------------------------------------------------------------------------
|
|
template < Uint8 L, bool S > static SQInteger LogBasicMessage(HSQUIRRELVM vm)
|
|
{
|
|
const Int32 top = sq_gettop(vm);
|
|
if (top <= 1)
|
|
SqThrow("The log message was not specified");
|
|
else if (top == 2 && ((sq_gettype(vm, -1) == OT_STRING) || !SQ_FAILED(sq_tostring(vm, -1))))
|
|
{
|
|
CCStr msg = NULL;
|
|
if (SQ_FAILED(sq_getstring(vm, -1, &msg)))
|
|
SqThrow("Unable to retrieve the log message");
|
|
else
|
|
_Log->Message(L, S, "%s", msg);
|
|
sq_settop(vm, top);
|
|
}
|
|
else if (top > 2)
|
|
{
|
|
CStr msg = NULL;
|
|
SQInteger len = 0;
|
|
if (SQ_FAILED(sqstd_format(vm, 2, &len, &msg)))
|
|
SqThrow("Unable to generate the log message [%s]", Error::Message(vm).c_str());
|
|
else
|
|
_Log->Message(L, S, "%s", msg);
|
|
}
|
|
else
|
|
SqThrow("Unable to extract the log message");
|
|
return 0;
|
|
}
|
|
|
|
// ================================================================================================
|
|
void Register_Log(HSQUIRRELVM vm)
|
|
{
|
|
RootTable(vm)
|
|
.Bind(_SC("SqLog"), Table(vm)
|
|
.SquirrelFunc(_SC("Dbg"), &LogBasicMessage< LL_DBG, false >)
|
|
.SquirrelFunc(_SC("Usr"), &LogBasicMessage< LL_USR, false >)
|
|
.SquirrelFunc(_SC("Scs"), &LogBasicMessage< LL_SCS, false >)
|
|
.SquirrelFunc(_SC("Inf"), &LogBasicMessage< LL_INF, false >)
|
|
.SquirrelFunc(_SC("Wrn"), &LogBasicMessage< LL_WRN, false >)
|
|
.SquirrelFunc(_SC("Err"), &LogBasicMessage< LL_ERR, false >)
|
|
.SquirrelFunc(_SC("Ftl"), &LogBasicMessage< LL_FTL, false >)
|
|
.SquirrelFunc(_SC("SDbg"), &LogBasicMessage< LL_DBG, true >)
|
|
.SquirrelFunc(_SC("SUsr"), &LogBasicMessage< LL_USR, true >)
|
|
.SquirrelFunc(_SC("SScs"), &LogBasicMessage< LL_SCS, true >)
|
|
.SquirrelFunc(_SC("SInf"), &LogBasicMessage< LL_INF, true >)
|
|
.SquirrelFunc(_SC("SWrn"), &LogBasicMessage< LL_WRN, true >)
|
|
.SquirrelFunc(_SC("SErr"), &LogBasicMessage< LL_ERR, true >)
|
|
.SquirrelFunc(_SC("SFtl"), &LogBasicMessage< LL_FTL, true >)
|
|
);
|
|
}
|
|
|
|
} // Namespace:: SqMod
|