mirror of
https://github.com/EQEmu/Server.git
synced 2026-09-01 19:56:38 +00:00
[Quest API] Use binding library for perl apis (#2216)
* Add perlbind library * Convert perl apis to perlbind
This commit is contained in:
hg
GitHub
+180
-582
@@ -2,669 +2,267 @@
|
||||
|
||||
#ifdef EMBPERL_XS_CLASSES
|
||||
|
||||
#include "embperl.h"
|
||||
#include "expedition.h"
|
||||
#include "zone_store.h"
|
||||
#include "embperl.h"
|
||||
#include "../common/global_define.h"
|
||||
|
||||
#ifdef seed
|
||||
#undef seed
|
||||
#endif
|
||||
|
||||
#ifdef THIS /* this macro seems to leak out on some systems */
|
||||
#undef THIS
|
||||
#endif
|
||||
|
||||
#define VALIDATE_THIS_IS_EXPEDITION \
|
||||
do { \
|
||||
if (sv_derived_from(ST(0), "Expedition")) { \
|
||||
IV tmp = SvIV((SV*)SvRV(ST(0))); \
|
||||
THIS = INT2PTR(Expedition*, tmp); \
|
||||
} else { \
|
||||
Perl_croak(aTHX_ "THIS is not of type Expedition"); \
|
||||
} \
|
||||
if (THIS == nullptr) { \
|
||||
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); \
|
||||
} \
|
||||
} while (0);
|
||||
|
||||
XS(XS_Expedition_AddLockout);
|
||||
XS(XS_Expedition_AddLockout) {
|
||||
dXSARGS;
|
||||
if (items != 3) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::AddLockout(THIS, string event_name, uint32 seconds)");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
std::string event_name(SvPV_nolen(ST(1)));
|
||||
uint32_t seconds = static_cast<uint32_t>(SvUV(ST(2)));
|
||||
|
||||
THIS->AddLockout(event_name, seconds);
|
||||
|
||||
XSRETURN_EMPTY;
|
||||
void Perl_Expedition_AddLockout(Expedition* self, std::string event_name, uint32_t seconds)
|
||||
{
|
||||
self->AddLockout(event_name, seconds);
|
||||
}
|
||||
|
||||
XS(XS_Expedition_AddLockoutDuration);
|
||||
XS(XS_Expedition_AddLockoutDuration) {
|
||||
dXSARGS;
|
||||
if (items != 3 && items != 4) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::AddLockout(THIS, string event_name, int seconds, [bool members_only = true])");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
std::string event_name(SvPV_nolen(ST(1)));
|
||||
int seconds = static_cast<int>(SvUV(ST(2)));
|
||||
if (items == 4)
|
||||
{
|
||||
bool members_only = (bool)SvTRUE(ST(3));
|
||||
THIS->AddLockoutDuration(event_name, seconds, members_only);
|
||||
}
|
||||
else
|
||||
{
|
||||
THIS->AddLockoutDuration(event_name, seconds);
|
||||
}
|
||||
|
||||
XSRETURN_EMPTY;
|
||||
void Perl_Expedition_AddLockoutDuration(Expedition* self, std::string event_name, int seconds)
|
||||
{
|
||||
self->AddLockoutDuration(event_name, seconds);
|
||||
}
|
||||
|
||||
XS(XS_Expedition_AddReplayLockout);
|
||||
XS(XS_Expedition_AddReplayLockout) {
|
||||
dXSARGS;
|
||||
if (items != 2) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::AddReplayLockout(THIS, uint32 seconds)");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
uint32_t seconds = static_cast<uint32_t>(SvUV(ST(1)));
|
||||
|
||||
THIS->AddReplayLockout(seconds);
|
||||
|
||||
XSRETURN_EMPTY;
|
||||
void Perl_Expedition_AddLockoutDuration(Expedition* self, std::string event_name, int seconds, bool members_only)
|
||||
{
|
||||
self->AddLockoutDuration(event_name, seconds, members_only);
|
||||
}
|
||||
|
||||
XS(XS_Expedition_AddReplayLockoutDuration);
|
||||
XS(XS_Expedition_AddReplayLockoutDuration) {
|
||||
dXSARGS;
|
||||
if (items != 2 && items != 3) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::AddReplayLockoutDuration(THIS, int seconds, [bool members_only = true])");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
int seconds = static_cast<int>(SvUV(ST(1)));
|
||||
if (items == 3)
|
||||
{
|
||||
bool members_only = (bool)SvTRUE(ST(2));
|
||||
THIS->AddReplayLockoutDuration(seconds, members_only);
|
||||
}
|
||||
else
|
||||
{
|
||||
THIS->AddReplayLockoutDuration(seconds);
|
||||
}
|
||||
|
||||
XSRETURN_EMPTY;
|
||||
void Perl_Expedition_AddReplayLockout(Expedition* self, uint32_t seconds)
|
||||
{
|
||||
self->AddReplayLockout(seconds);
|
||||
}
|
||||
|
||||
XS(XS_Expedition_GetDynamicZoneID);
|
||||
XS(XS_Expedition_GetDynamicZoneID) {
|
||||
dXSARGS;
|
||||
if (items != 1) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::GetDynamicZoneID(THIS)");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
XSRETURN_UV(THIS->GetDynamicZone()->GetID());
|
||||
void Perl_Expedition_AddReplayLockoutDuration(Expedition* self, int seconds)
|
||||
{
|
||||
self->AddReplayLockoutDuration(seconds);
|
||||
}
|
||||
|
||||
XS(XS_Expedition_GetID);
|
||||
XS(XS_Expedition_GetID) {
|
||||
dXSARGS;
|
||||
if (items != 1) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::GetID(THIS)");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
XSRETURN_UV(THIS->GetID());
|
||||
void Perl_Expedition_AddReplayLockoutDuration(Expedition* self, int seconds, bool members_only)
|
||||
{
|
||||
self->AddReplayLockoutDuration(seconds, members_only);
|
||||
}
|
||||
|
||||
XS(XS_Expedition_GetInstanceID);
|
||||
XS(XS_Expedition_GetInstanceID) {
|
||||
dXSARGS;
|
||||
if (items != 1) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::GetInstanceID(THIS)");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
XSRETURN_UV(THIS->GetDynamicZone()->GetInstanceID());
|
||||
uint32_t Perl_Expedition_GetDynamicZoneID(Expedition* self)
|
||||
{
|
||||
return self->GetDynamicZone()->GetID();
|
||||
}
|
||||
|
||||
XS(XS_Expedition_GetLeaderName);
|
||||
XS(XS_Expedition_GetLeaderName) {
|
||||
dXSARGS;
|
||||
if (items != 1) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::GetLeaderName(THIS)");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
XSRETURN_PV(THIS->GetLeaderName().c_str());
|
||||
uint32_t Perl_Expedition_GetID(Expedition* self)
|
||||
{
|
||||
return self->GetID();
|
||||
}
|
||||
|
||||
XS(XS_Expedition_GetLockouts);
|
||||
XS(XS_Expedition_GetLockouts) {
|
||||
dXSARGS;
|
||||
if (items != 1) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::GetLockouts(THIS)");
|
||||
}
|
||||
uint16_t Perl_Expedition_GetInstanceID(Expedition* self)
|
||||
{
|
||||
return self->GetDynamicZone()->GetInstanceID();
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
std::string Perl_Expedition_GetLeaderName(Expedition* self)
|
||||
{
|
||||
return self->GetLeaderName();
|
||||
}
|
||||
|
||||
HV* hash = newHV();
|
||||
|
||||
auto lockouts = THIS->GetLockouts();
|
||||
perl::reference Perl_Expedition_GetLockouts(Expedition* self)
|
||||
{
|
||||
perl::hash table;
|
||||
auto lockouts = self->GetLockouts();
|
||||
for (const auto& lockout : lockouts)
|
||||
{
|
||||
hv_store(hash, lockout.first.c_str(), static_cast<uint32_t>(lockout.first.size()),
|
||||
newSVuv(lockout.second.GetSecondsRemaining()), 0);
|
||||
table[lockout.first] = lockout.second.GetSecondsRemaining();
|
||||
}
|
||||
|
||||
ST(0) = sv_2mortal(newRV_noinc((SV*)hash)); // take ownership of hash (refcnt remains 1)
|
||||
XSRETURN(1);
|
||||
return perl::reference(table);
|
||||
}
|
||||
|
||||
XS(XS_Expedition_GetLootEventByNPCTypeID);
|
||||
XS(XS_Expedition_GetLootEventByNPCTypeID) {
|
||||
dXSARGS;
|
||||
if (items != 2) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::GetLootEventByNPCTypeID(THIS, uint32 npc_type_id)");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
uint32_t npc_type_id = static_cast<uint32_t>(SvUV(ST(1)));
|
||||
|
||||
XSRETURN_PV(THIS->GetLootEventByNPCTypeID(npc_type_id).c_str());
|
||||
std::string Perl_Expedition_GetLootEventByNPCTypeID(Expedition* self, uint32_t npc_type_id)
|
||||
{
|
||||
return self->GetLootEventByNPCTypeID(npc_type_id);
|
||||
}
|
||||
|
||||
XS(XS_Expedition_GetLootEventBySpawnID);
|
||||
XS(XS_Expedition_GetLootEventBySpawnID) {
|
||||
dXSARGS;
|
||||
if (items != 2) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::GetLootEventBySpawnID(THIS, uint32 spawn_id)");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
uint32_t spawn_id = static_cast<uint32_t>(SvUV(ST(1)));
|
||||
|
||||
XSRETURN_PV(THIS->GetLootEventBySpawnID(spawn_id).c_str());
|
||||
std::string Perl_Expedition_GetLootEventBySpawnID(Expedition* self, uint32_t spawn_id)
|
||||
{
|
||||
return self->GetLootEventBySpawnID(spawn_id);
|
||||
}
|
||||
|
||||
XS(XS_Expedition_GetMemberCount);
|
||||
XS(XS_Expedition_GetMemberCount) {
|
||||
dXSARGS;
|
||||
if (items != 1) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::GetMemberCount(THIS)");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
XSRETURN_UV(THIS->GetDynamicZone()->GetMemberCount());
|
||||
uint32_t Perl_Expedition_GetMemberCount(Expedition* self)
|
||||
{
|
||||
return self->GetDynamicZone()->GetMemberCount();
|
||||
}
|
||||
|
||||
XS(XS_Expedition_GetMembers);
|
||||
XS(XS_Expedition_GetMembers) {
|
||||
dXSARGS;
|
||||
if (items != 1) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::GetMembers(THIS)");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
HV* hash = newHV();
|
||||
|
||||
for (const auto& member : THIS->GetDynamicZone()->GetMembers())
|
||||
perl::reference Perl_Expedition_GetMembers(Expedition* self)
|
||||
{
|
||||
perl::hash table;
|
||||
for (const auto& member : self->GetDynamicZone()->GetMembers())
|
||||
{
|
||||
hv_store(hash, member.name.c_str(), static_cast<uint32_t>(member.name.size()),
|
||||
newSVuv(member.id), 0);
|
||||
table[member.name] = member.id;
|
||||
}
|
||||
|
||||
ST(0) = sv_2mortal(newRV_noinc((SV*)hash));
|
||||
XSRETURN(1);
|
||||
return perl::reference(table);
|
||||
}
|
||||
|
||||
XS(XS_Expedition_GetName);
|
||||
XS(XS_Expedition_GetName) {
|
||||
dXSARGS;
|
||||
if (items != 1) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::GetName(THIS)");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
XSRETURN_PV(THIS->GetName().c_str());
|
||||
std::string Perl_Expedition_GetName(Expedition* self)
|
||||
{
|
||||
return self->GetName();
|
||||
}
|
||||
|
||||
XS(XS_Expedition_GetSecondsRemaining);
|
||||
XS(XS_Expedition_GetSecondsRemaining) {
|
||||
dXSARGS;
|
||||
if (items != 1) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::GetSecondsRemaining(THIS)");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
XSRETURN_UV(THIS->GetDynamicZone()->GetSecondsRemaining());
|
||||
uint32_t Perl_Expedition_GetSecondsRemaining(Expedition* self)
|
||||
{
|
||||
return self->GetDynamicZone()->GetSecondsRemaining();
|
||||
}
|
||||
|
||||
XS(XS_Expedition_GetUUID);
|
||||
XS(XS_Expedition_GetUUID) {
|
||||
dXSARGS;
|
||||
if (items != 1) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::GetUUID(THIS)");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
XSRETURN_PV(THIS->GetDynamicZone()->GetUUID().c_str());
|
||||
std::string Perl_Expedition_GetUUID(Expedition* self)
|
||||
{
|
||||
return self->GetDynamicZone()->GetUUID();
|
||||
}
|
||||
|
||||
XS(XS_Expedition_GetZoneID);
|
||||
XS(XS_Expedition_GetZoneID) {
|
||||
dXSARGS;
|
||||
if (items != 1) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::GetZoneID(THIS)");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
XSRETURN_UV(THIS->GetDynamicZone()->GetZoneID());
|
||||
uint16_t Perl_Expedition_GetZoneID(Expedition* self)
|
||||
{
|
||||
return self->GetDynamicZone()->GetZoneID();
|
||||
}
|
||||
|
||||
XS(XS_Expedition_GetZoneName);
|
||||
XS(XS_Expedition_GetZoneName) {
|
||||
dXSARGS;
|
||||
if (items != 1) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::GetZoneName(THIS)");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
XSRETURN_PV(ZoneName(THIS->GetDynamicZone()->GetZoneID()));
|
||||
std::string Perl_Expedition_GetZoneName(Expedition* self)
|
||||
{
|
||||
return ZoneName(self->GetDynamicZone()->GetZoneID());
|
||||
}
|
||||
|
||||
XS(XS_Expedition_GetZoneVersion);
|
||||
XS(XS_Expedition_GetZoneVersion) {
|
||||
dXSARGS;
|
||||
if (items != 1) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::GetZoneVersion(THIS)");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
XSRETURN_UV(THIS->GetDynamicZone()->GetZoneVersion());
|
||||
uint32_t Perl_Expedition_GetZoneVersion(Expedition* self)
|
||||
{
|
||||
return self->GetDynamicZone()->GetZoneVersion();
|
||||
}
|
||||
|
||||
XS(XS_Expedition_HasLockout);
|
||||
XS(XS_Expedition_HasLockout) {
|
||||
dXSARGS;
|
||||
if (items != 2) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::HasLockout(THIS, string event_name)");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
std::string event_name(SvPV_nolen(ST(1)));
|
||||
|
||||
bool result = THIS->HasLockout(event_name);
|
||||
ST(0) = boolSV(result);
|
||||
XSRETURN(1);
|
||||
bool Perl_Expedition_HasLockout(Expedition* self, std::string event_name)
|
||||
{
|
||||
return self->HasLockout(event_name);
|
||||
}
|
||||
|
||||
XS(XS_Expedition_HasReplayLockout);
|
||||
XS(XS_Expedition_HasReplayLockout) {
|
||||
dXSARGS;
|
||||
if (items != 1) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::HasReplayLockout(THIS)");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
bool result = THIS->HasReplayLockout();
|
||||
ST(0) = boolSV(result);
|
||||
XSRETURN(1);
|
||||
bool Perl_Expedition_HasReplayLockout(Expedition* self)
|
||||
{
|
||||
return self->HasReplayLockout();
|
||||
}
|
||||
|
||||
XS(XS_Expedition_IsLocked);
|
||||
XS(XS_Expedition_IsLocked) {
|
||||
dXSARGS;
|
||||
if (items != 1) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::IsLocked(THIS)");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
ST(0) = boolSV(THIS->IsLocked());
|
||||
XSRETURN(1);
|
||||
bool Perl_Expedition_IsLocked(Expedition* self)
|
||||
{
|
||||
return self->IsLocked();
|
||||
}
|
||||
|
||||
XS(XS_Expedition_RemoveCompass);
|
||||
XS(XS_Expedition_RemoveCompass) {
|
||||
dXSARGS;
|
||||
if (items != 1) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::RemoveCompass(THIS)");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
THIS->GetDynamicZone()->SetCompass(0, 0, 0, 0, true);
|
||||
|
||||
XSRETURN_EMPTY;
|
||||
void Perl_Expedition_RemoveCompass(Expedition* self)
|
||||
{
|
||||
self->GetDynamicZone()->SetCompass(0, 0, 0, 0, true);
|
||||
}
|
||||
|
||||
XS(XS_Expedition_RemoveLockout);
|
||||
XS(XS_Expedition_RemoveLockout) {
|
||||
dXSARGS;
|
||||
if (items != 2) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::RemoveLockout(THIS, string event_name)");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
std::string event_name(SvPV_nolen(ST(1)));
|
||||
|
||||
THIS->RemoveLockout(event_name);
|
||||
|
||||
XSRETURN_EMPTY;
|
||||
void Perl_Expedition_RemoveLockout(Expedition* self, std::string event_name)
|
||||
{
|
||||
self->RemoveLockout(event_name);
|
||||
}
|
||||
|
||||
XS(XS_Expedition_SetCompass);
|
||||
XS(XS_Expedition_SetCompass) {
|
||||
dXSARGS;
|
||||
if (items != 5) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::SetCompass(THIS, uint32 zone_id | string zone_name, float x, float y, float z)");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
float x = static_cast<float>(SvNV(ST(2)));
|
||||
float y = static_cast<float>(SvNV(ST(3)));
|
||||
float z = static_cast<float>(SvNV(ST(4)));
|
||||
|
||||
if (SvTYPE(ST(1)) == SVt_PV)
|
||||
{
|
||||
std::string zone_name(SvPV_nolen(ST(1)));
|
||||
THIS->GetDynamicZone()->SetCompass(ZoneID(zone_name), x, y, z, true);
|
||||
}
|
||||
else if (SvTYPE(ST(1)) == SVt_IV)
|
||||
{
|
||||
uint32_t zone_id = static_cast<uint32_t>(SvUV(ST(1)));
|
||||
THIS->GetDynamicZone()->SetCompass(zone_id, x, y, z, true);
|
||||
}
|
||||
else
|
||||
{
|
||||
Perl_croak(aTHX_ "Expedition::SetCompass expected an integer or string");
|
||||
}
|
||||
|
||||
XSRETURN_EMPTY;
|
||||
void Perl_Expedition_SetCompass(Expedition* self, perl::scalar zone, float x, float y, float z)
|
||||
{
|
||||
uint32_t zone_id = zone.is_string() ? ZoneID(zone.c_str()) : zone.as<uint32_t>();
|
||||
self->GetDynamicZone()->SetCompass(zone_id, x, y, z, true);
|
||||
}
|
||||
|
||||
XS(XS_Expedition_SetLocked);
|
||||
XS(XS_Expedition_SetLocked) {
|
||||
dXSARGS;
|
||||
if (items != 2 && items != 3 && items != 4) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::SetLocked(THIS, bool locked, [int lock_msg = 0], [uint32 color = 15])");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
bool locked = (bool)SvTRUE(ST(1));
|
||||
int lock_msg = (items == 3) ? static_cast<int>(SvIV(ST(2))) : 0;
|
||||
if (items == 4)
|
||||
{
|
||||
THIS->SetLocked(locked, static_cast<ExpeditionLockMessage>(lock_msg), true, (uint32)SvUV(ST(3)));
|
||||
}
|
||||
else
|
||||
{
|
||||
THIS->SetLocked(locked, static_cast<ExpeditionLockMessage>(lock_msg), true);
|
||||
}
|
||||
|
||||
XSRETURN_EMPTY;
|
||||
void Perl_Expedition_SetLocked(Expedition* self, bool locked)
|
||||
{
|
||||
self->SetLocked(locked, ExpeditionLockMessage::None);
|
||||
}
|
||||
|
||||
XS(XS_Expedition_SetLootEventByNPCTypeID);
|
||||
XS(XS_Expedition_SetLootEventByNPCTypeID) {
|
||||
dXSARGS;
|
||||
if (items != 3) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::SetLootEventByNPCTypeID(THIS, uint32 npc_type_id, string event_name)");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
uint32_t npc_type_id = static_cast<uint32_t>(SvUV(ST(1)));
|
||||
std::string event_name(SvPV_nolen(ST(2)));
|
||||
|
||||
THIS->SetLootEventByNPCTypeID(npc_type_id, event_name);
|
||||
|
||||
XSRETURN_EMPTY;
|
||||
void Perl_Expedition_SetLocked(Expedition* self, bool locked, int lock_msg)
|
||||
{
|
||||
self->SetLocked(locked, static_cast<ExpeditionLockMessage>(lock_msg), true);
|
||||
}
|
||||
|
||||
XS(XS_Expedition_SetLootEventBySpawnID);
|
||||
XS(XS_Expedition_SetLootEventBySpawnID) {
|
||||
dXSARGS;
|
||||
if (items != 3) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::SetLootEventBySpawnID(THIS, uint32 spawn_id, string event_name)");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
uint32_t spawn_id = static_cast<uint32_t>(SvUV(ST(1)));
|
||||
std::string event_name(SvPV_nolen(ST(2)));
|
||||
|
||||
THIS->SetLootEventBySpawnID(spawn_id, event_name);
|
||||
|
||||
XSRETURN_EMPTY;
|
||||
void Perl_Expedition_SetLocked(Expedition* self, bool locked, int lock_msg, uint32_t color)
|
||||
{
|
||||
self->SetLocked(locked, static_cast<ExpeditionLockMessage>(lock_msg), true, color);
|
||||
}
|
||||
|
||||
XS(XS_Expedition_SetReplayLockoutOnMemberJoin);
|
||||
XS(XS_Expedition_SetReplayLockoutOnMemberJoin) {
|
||||
dXSARGS;
|
||||
if (items != 2) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::SetReplayLockoutOnMemberJoin(THIS, bool enable)");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
bool enable = (bool)SvTRUE(ST(1));
|
||||
|
||||
THIS->SetReplayLockoutOnMemberJoin(enable, true);
|
||||
|
||||
XSRETURN_EMPTY;
|
||||
void Perl_Expedition_SetLootEventByNPCTypeID(Expedition* self, uint32_t npc_type_id, std::string event_name)
|
||||
{
|
||||
self->SetLootEventByNPCTypeID(npc_type_id, event_name);
|
||||
}
|
||||
|
||||
XS(XS_Expedition_SetSafeReturn);
|
||||
XS(XS_Expedition_SetSafeReturn) {
|
||||
dXSARGS;
|
||||
if (items != 6) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::SetSafeReturn(THIS, uint32 zone_id | string zone_name, float x, float y, float z, float heading)");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
float x = static_cast<float>(SvNV(ST(2)));
|
||||
float y = static_cast<float>(SvNV(ST(3)));
|
||||
float z = static_cast<float>(SvNV(ST(4)));
|
||||
float heading = static_cast<float>(SvNV(ST(5)));
|
||||
|
||||
if (SvTYPE(ST(1)) == SVt_PV)
|
||||
{
|
||||
std::string zone_name(SvPV_nolen(ST(1)));
|
||||
THIS->GetDynamicZone()->SetSafeReturn(ZoneID(zone_name), x, y, z, heading, true);
|
||||
}
|
||||
else if (SvTYPE(ST(1)) == SVt_IV)
|
||||
{
|
||||
uint32_t zone_id = static_cast<uint32_t>(SvUV(ST(1)));
|
||||
THIS->GetDynamicZone()->SetSafeReturn(zone_id, x, y, z, heading, true);
|
||||
}
|
||||
else
|
||||
{
|
||||
Perl_croak(aTHX_ "Expedition::SetSafeReturn expected an integer or string");
|
||||
}
|
||||
|
||||
XSRETURN_EMPTY;
|
||||
void Perl_Expedition_SetLootEventBySpawnID(Expedition* self, uint32_t entity_id, std::string event_name)
|
||||
{
|
||||
self->SetLootEventBySpawnID(entity_id, event_name);
|
||||
}
|
||||
|
||||
XS(XS_Expedition_SetSecondsRemaining);
|
||||
XS(XS_Expedition_SetSecondsRemaining) {
|
||||
dXSARGS;
|
||||
if (items != 2) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::SetSecondsRemaining(THIS, uint32 seconds_remaining)");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
uint32_t seconds_remaining = static_cast<uint32_t>(SvUV(ST(1)));
|
||||
THIS->GetDynamicZone()->SetSecondsRemaining(seconds_remaining);
|
||||
|
||||
XSRETURN_EMPTY;
|
||||
void Perl_Expedition_SetReplayLockoutOnMemberJoin(Expedition* self, bool enable)
|
||||
{
|
||||
self->SetReplayLockoutOnMemberJoin(enable, true);
|
||||
}
|
||||
|
||||
XS(XS_Expedition_SetZoneInLocation);
|
||||
XS(XS_Expedition_SetZoneInLocation) {
|
||||
dXSARGS;
|
||||
if (items != 5) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::SetZoneInLocation(THIS, float x, float y, float z, float heading)");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
float x = static_cast<float>(SvNV(ST(1)));
|
||||
float y = static_cast<float>(SvNV(ST(2)));
|
||||
float z = static_cast<float>(SvNV(ST(3)));
|
||||
float heading = static_cast<float>(SvNV(ST(4)));
|
||||
|
||||
THIS->GetDynamicZone()->SetZoneInLocation(x, y, z, heading, true);
|
||||
|
||||
XSRETURN_EMPTY;
|
||||
void Perl_Expedition_SetSafeReturn(Expedition* self, perl::scalar zone, float x, float y, float z, float heading)
|
||||
{
|
||||
uint32_t zone_id = zone.is_string() ? ZoneID(zone.c_str()) : zone.as<uint32_t>();
|
||||
self->GetDynamicZone()->SetSafeReturn(zone_id, x, y, z, heading, true);
|
||||
}
|
||||
|
||||
XS(XS_Expedition_UpdateLockoutDuration);
|
||||
XS(XS_Expedition_UpdateLockoutDuration) {
|
||||
dXSARGS;
|
||||
if (items != 3 && items != 4) {
|
||||
Perl_croak(aTHX_ "Usage: Expedition::UpdateLockoutDuration(THIS, string event_name, uint32 seconds, [bool members_only = true])");
|
||||
}
|
||||
|
||||
Expedition* THIS = nullptr;
|
||||
VALIDATE_THIS_IS_EXPEDITION;
|
||||
|
||||
std::string event_name(SvPV_nolen(ST(1)));
|
||||
uint32_t seconds = static_cast<uint32_t>(SvUV(ST(2)));
|
||||
|
||||
if (items == 4)
|
||||
{
|
||||
bool members_only = (bool)SvTRUE(ST(3));
|
||||
THIS->UpdateLockoutDuration(event_name, seconds, members_only);
|
||||
}
|
||||
else
|
||||
{
|
||||
THIS->UpdateLockoutDuration(event_name, seconds);
|
||||
}
|
||||
|
||||
XSRETURN_EMPTY;
|
||||
void Perl_Expedition_SetSecondsRemaining(Expedition* self, uint32_t seconds_remaining)
|
||||
{
|
||||
self->GetDynamicZone()->SetSecondsRemaining(seconds_remaining);
|
||||
}
|
||||
|
||||
XS(boot_Expedition);
|
||||
XS(boot_Expedition) {
|
||||
dXSARGS;
|
||||
char file[256];
|
||||
strncpy(file, __FILE__, 256);
|
||||
file[255] = 0;
|
||||
void Perl_Expedition_SetZoneInLocation(Expedition* self, float x, float y, float z, float heading)
|
||||
{
|
||||
self->GetDynamicZone()->SetZoneInLocation(x, y, z, heading, true);
|
||||
}
|
||||
|
||||
if (items != 1) {
|
||||
fprintf(stderr, "boot_Expedition does not take any arguments.");
|
||||
}
|
||||
char buf[128];
|
||||
void Perl_Expedition_UpdateLockoutDuration(Expedition* self, std::string event_name, uint32_t seconds)
|
||||
{
|
||||
self->UpdateLockoutDuration(event_name, seconds);
|
||||
}
|
||||
|
||||
XS_VERSION_BOOTCHECK;
|
||||
newXSproto(strcpy(buf, "AddLockout"), XS_Expedition_AddLockout, file, "$$$");
|
||||
newXSproto(strcpy(buf, "AddLockoutDuration"), XS_Expedition_AddLockoutDuration, file, "$$$;$");
|
||||
newXSproto(strcpy(buf, "AddReplayLockout"), XS_Expedition_AddReplayLockout, file, "$$");
|
||||
newXSproto(strcpy(buf, "AddReplayLockoutDuration"), XS_Expedition_AddReplayLockoutDuration, file, "$$;$");
|
||||
newXSproto(strcpy(buf, "GetDynamicZoneID"), XS_Expedition_GetDynamicZoneID, file, "$");
|
||||
newXSproto(strcpy(buf, "GetID"), XS_Expedition_GetID, file, "$");
|
||||
newXSproto(strcpy(buf, "GetInstanceID"), XS_Expedition_GetInstanceID, file, "$");
|
||||
newXSproto(strcpy(buf, "GetLeaderName"), XS_Expedition_GetLeaderName, file, "$");
|
||||
newXSproto(strcpy(buf, "GetLockouts"), XS_Expedition_GetLockouts, file, "$");
|
||||
newXSproto(strcpy(buf, "GetLootEventByNPCTypeID"), XS_Expedition_GetLootEventByNPCTypeID, file, "$$");
|
||||
newXSproto(strcpy(buf, "GetLootEventBySpawnID"), XS_Expedition_GetLootEventBySpawnID, file, "$$");
|
||||
newXSproto(strcpy(buf, "GetMemberCount"), XS_Expedition_GetMemberCount, file, "$");
|
||||
newXSproto(strcpy(buf, "GetMembers"), XS_Expedition_GetMembers, file, "$");
|
||||
newXSproto(strcpy(buf, "GetName"), XS_Expedition_GetName, file, "$");
|
||||
newXSproto(strcpy(buf, "GetSecondsRemaining"), XS_Expedition_GetSecondsRemaining, file, "$");
|
||||
newXSproto(strcpy(buf, "GetUUID"), XS_Expedition_GetUUID, file, "$");
|
||||
newXSproto(strcpy(buf, "GetZoneID"), XS_Expedition_GetZoneID, file, "$");
|
||||
newXSproto(strcpy(buf, "GetZoneName"), XS_Expedition_GetZoneName, file, "$");
|
||||
newXSproto(strcpy(buf, "GetZoneVersion"), XS_Expedition_GetZoneVersion, file, "$");
|
||||
newXSproto(strcpy(buf, "HasLockout"), XS_Expedition_HasLockout, file, "$$");
|
||||
newXSproto(strcpy(buf, "HasReplayLockout"), XS_Expedition_HasReplayLockout, file, "$");
|
||||
newXSproto(strcpy(buf, "IsLocked"), XS_Expedition_IsLocked, file, "$");
|
||||
newXSproto(strcpy(buf, "RemoveCompass"), XS_Expedition_RemoveCompass, file, "$");
|
||||
newXSproto(strcpy(buf, "RemoveLockout"), XS_Expedition_RemoveLockout, file, "$$");
|
||||
newXSproto(strcpy(buf, "SetCompass"), XS_Expedition_SetCompass, file, "$$$$$");
|
||||
newXSproto(strcpy(buf, "SetLocked"), XS_Expedition_SetLocked, file, "$$;$$");
|
||||
newXSproto(strcpy(buf, "SetLootEventByNPCTypeID"), XS_Expedition_SetLootEventByNPCTypeID, file, "$$$");
|
||||
newXSproto(strcpy(buf, "SetLootEventBySpawnID"), XS_Expedition_SetLootEventBySpawnID, file, "$$$");
|
||||
newXSproto(strcpy(buf, "SetReplayLockoutOnMemberJoin"), XS_Expedition_SetReplayLockoutOnMemberJoin, file, "$$");
|
||||
newXSproto(strcpy(buf, "SetSafeReturn"), XS_Expedition_SetSafeReturn, file, "$$$$$$");
|
||||
newXSproto(strcpy(buf, "SetSecondsRemaining"), XS_Expedition_SetSecondsRemaining, file, "$$");
|
||||
newXSproto(strcpy(buf, "SetZoneInLocation"), XS_Expedition_SetZoneInLocation, file, "$$$$$");
|
||||
newXSproto(strcpy(buf, "UpdateLockoutDuration"), XS_Expedition_UpdateLockoutDuration, file, "$$$;$");
|
||||
void Perl_Expedition_UpdateLockoutDuration(Expedition* self, std::string event_name, uint32_t seconds, bool members_only)
|
||||
{
|
||||
self->UpdateLockoutDuration(event_name, seconds, members_only);
|
||||
}
|
||||
|
||||
HV* stash = gv_stashpvs("ExpeditionLockMessage", GV_ADD);
|
||||
newCONSTSUB(stash, "None", newSViv(static_cast<int>(ExpeditionLockMessage::None)));
|
||||
newCONSTSUB(stash, "Close", newSViv(static_cast<int>(ExpeditionLockMessage::Close)));
|
||||
newCONSTSUB(stash, "Begin", newSViv(static_cast<int>(ExpeditionLockMessage::Begin)));
|
||||
void perl_register_expedition()
|
||||
{
|
||||
perl::interpreter perl(PERL_GET_THX);
|
||||
|
||||
XSRETURN_YES;
|
||||
auto package = perl.new_class<Expedition>("Expedition");
|
||||
package.add("AddLockout", &Perl_Expedition_AddLockout);
|
||||
package.add("AddLockoutDuration", (void(*)(Expedition*, std::string, int))&Perl_Expedition_AddLockoutDuration);
|
||||
package.add("AddLockoutDuration", (void(*)(Expedition*, std::string, int, bool))&Perl_Expedition_AddLockoutDuration);
|
||||
package.add("AddReplayLockout", &Perl_Expedition_AddReplayLockout);
|
||||
package.add("AddReplayLockoutDuration", (void(*)(Expedition*, int))&Perl_Expedition_AddReplayLockoutDuration);
|
||||
package.add("AddReplayLockoutDuration", (void(*)(Expedition*, int, bool))&Perl_Expedition_AddReplayLockoutDuration);
|
||||
package.add("GetDynamicZoneID", &Perl_Expedition_GetDynamicZoneID);
|
||||
package.add("GetID", &Perl_Expedition_GetID);
|
||||
package.add("GetInstanceID", &Perl_Expedition_GetInstanceID);
|
||||
package.add("GetLeaderName", &Perl_Expedition_GetLeaderName);
|
||||
package.add("GetLockouts", &Perl_Expedition_GetLockouts);
|
||||
package.add("GetLootEventByNPCTypeID", &Perl_Expedition_GetLootEventByNPCTypeID);
|
||||
package.add("GetLootEventBySpawnID", &Perl_Expedition_GetLootEventBySpawnID);
|
||||
package.add("GetMemberCount", &Perl_Expedition_GetMemberCount);
|
||||
package.add("GetMembers", &Perl_Expedition_GetMembers);
|
||||
package.add("GetName", &Perl_Expedition_GetName);
|
||||
package.add("GetSecondsRemaining", &Perl_Expedition_GetSecondsRemaining);
|
||||
package.add("GetUUID", &Perl_Expedition_GetUUID);
|
||||
package.add("GetZoneID", &Perl_Expedition_GetZoneID);
|
||||
package.add("GetZoneName", &Perl_Expedition_GetZoneName);
|
||||
package.add("GetZoneVersion", &Perl_Expedition_GetZoneVersion);
|
||||
package.add("HasLockout", &Perl_Expedition_HasLockout);
|
||||
package.add("HasReplayLockout", &Perl_Expedition_HasReplayLockout);
|
||||
package.add("IsLocked", &Perl_Expedition_IsLocked);
|
||||
package.add("RemoveCompass", &Perl_Expedition_RemoveCompass);
|
||||
package.add("RemoveLockout", &Perl_Expedition_RemoveLockout);
|
||||
package.add("SetCompass", &Perl_Expedition_SetCompass);
|
||||
package.add("SetLocked", (void(*)(Expedition*, bool))&Perl_Expedition_SetLocked);
|
||||
package.add("SetLocked", (void(*)(Expedition*, bool, int))&Perl_Expedition_SetLocked);
|
||||
package.add("SetLocked", (void(*)(Expedition*, bool, int, uint32_t))&Perl_Expedition_SetLocked);
|
||||
package.add("SetLootEventByNPCTypeID", &Perl_Expedition_SetLootEventByNPCTypeID);
|
||||
package.add("SetLootEventBySpawnID", &Perl_Expedition_SetLootEventBySpawnID);
|
||||
package.add("SetReplayLockoutOnMemberJoin", &Perl_Expedition_SetReplayLockoutOnMemberJoin);
|
||||
package.add("SetSafeReturn", &Perl_Expedition_SetSafeReturn);
|
||||
package.add("SetSecondsRemaining", &Perl_Expedition_SetSecondsRemaining);
|
||||
package.add("SetZoneInLocation", &Perl_Expedition_SetZoneInLocation);
|
||||
package.add("UpdateLockoutDuration", (void(*)(Expedition*, std::string, uint32_t))&Perl_Expedition_UpdateLockoutDuration);
|
||||
package.add("UpdateLockoutDuration", (void(*)(Expedition*, std::string, uint32_t, bool))&Perl_Expedition_UpdateLockoutDuration);
|
||||
}
|
||||
|
||||
void perl_register_expedition_lock_messages()
|
||||
{
|
||||
perl::interpreter perl(PERL_GET_THX);
|
||||
|
||||
auto package = perl.new_package("ExpeditionLockMessage");
|
||||
package.add_const("None", static_cast<int>(ExpeditionLockMessage::None));
|
||||
package.add_const("Close", static_cast<int>(ExpeditionLockMessage::Close));
|
||||
package.add_const("Begin", static_cast<int>(ExpeditionLockMessage::Begin));
|
||||
}
|
||||
|
||||
#endif //EMBPERL_XS_CLASSES
|
||||
|
||||
Reference in New Issue
Block a user