pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2025-12-12 05:21:29 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

perl_object.cpp formatting

Browse Source
This commit is contained in:
Akkadius 2018-07-01 20:29:09 -05:00
parent ed37715993
commit 5b05987e27
1 changed files with 373 additions and 439 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

308
zone/perl_object.cpp
View File

@ -26,7 +26,9 @@
*/ */
#include "../common/features.h" #include "../common/features.h"
#ifdef EMBPERL_XS_CLASSES #ifdef EMBPERL_XS_CLASSES
#include "../common/global_define.h" #include "../common/global_define.h"
#include "embperl.h" #include "embperl.h"
@ -41,8 +43,7 @@
#endif #endif
XS(XS_Object_IsGroundSpawn); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_IsGroundSpawn); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_IsGroundSpawn) XS(XS_Object_IsGroundSpawn) {
{
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: Object::IsGroundSpawn(THIS)"); Perl_croak(aTHX_ "Usage: Object::IsGroundSpawn(THIS)");
@ -53,8 +54,7 @@ XS(XS_Object_IsGroundSpawn)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
@ -67,10 +67,8 @@ XS(XS_Object_IsGroundSpawn)
} }
XS(XS_Object_Close); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_Close); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_Close) XS(XS_Object_Close) {
{
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: Object::Close(THIS)"); Perl_croak(aTHX_ "Usage: Object::Close(THIS)");
@ -80,8 +78,7 @@ XS(XS_Object_Close)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
@ -93,8 +90,7 @@ XS(XS_Object_Close)
XS(XS_Object_Delete); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_Delete); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_Delete) XS(XS_Object_Delete) {
{
dXSARGS; dXSARGS;
if (items < 1 || items > 2) if (items < 1 || items > 2)
Perl_croak(aTHX_ "Usage: Object::Delete(THIS, [bool reset_state = false])"); Perl_croak(aTHX_ "Usage: Object::Delete(THIS, [bool reset_state = false])");
@ -105,8 +101,7 @@ XS(XS_Object_Delete)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
@ -122,8 +117,7 @@ XS(XS_Object_Delete)
XSRETURN_EMPTY; XSRETURN_EMPTY;
} }
XS(XS_Object_StartDecay); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_StartDecay); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_StartDecay) XS(XS_Object_StartDecay) {
{
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: Object::StartDecay(THIS)"); Perl_croak(aTHX_ "Usage: Object::StartDecay(THIS)");
@ -133,8 +127,7 @@ XS(XS_Object_StartDecay)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
@ -146,8 +139,7 @@ XS(XS_Object_StartDecay)
XS(XS_Object_DeleteItem); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_DeleteItem); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_DeleteItem) XS(XS_Object_DeleteItem) {
{
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::DeleteItem(THIS, uint8 index)"); Perl_croak(aTHX_ "Usage: Object::DeleteItem(THIS, uint8 index)");
@ -158,8 +150,7 @@ XS(XS_Object_DeleteItem)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
@ -170,8 +161,7 @@ XS(XS_Object_DeleteItem)
} }
XS(XS_Object_IsObject); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_IsObject); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_IsObject) XS(XS_Object_IsObject) {
{
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: Object::IsObject(THIS)"); Perl_croak(aTHX_ "Usage: Object::IsObject(THIS)");
@ -182,8 +172,7 @@ XS(XS_Object_IsObject)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
@ -197,8 +186,7 @@ XS(XS_Object_IsObject)
XS(XS_Object_Save); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_Save); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_Save) XS(XS_Object_Save) {
{
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: Object::Save(THIS)"); Perl_croak(aTHX_ "Usage: Object::Save(THIS)");
@ -209,8 +197,7 @@ XS(XS_Object_Save)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
@ -224,8 +211,7 @@ XS(XS_Object_Save)
XS(XS_Object_SetID); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_SetID); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_SetID) XS(XS_Object_SetID) {
{
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::SetID(THIS, uint16 id)"); Perl_croak(aTHX_ "Usage: Object::SetID(THIS, uint16 id)");
@ -236,8 +222,7 @@ XS(XS_Object_SetID)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
@ -249,8 +234,7 @@ XS(XS_Object_SetID)
XS(XS_Object_ClearUser); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_ClearUser); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_ClearUser) XS(XS_Object_ClearUser) {
{
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: Object::ClearUser(THIS)"); Perl_croak(aTHX_ "Usage: Object::ClearUser(THIS)");
@ -260,8 +244,7 @@ XS(XS_Object_ClearUser)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
@ -273,8 +256,7 @@ XS(XS_Object_ClearUser)
XS(XS_Object_GetDBID); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_GetDBID); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_GetDBID) XS(XS_Object_GetDBID) {
{
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: Object::GetDBID(THIS)"); Perl_croak(aTHX_ "Usage: Object::GetDBID(THIS)");
@ -286,21 +268,20 @@ XS(XS_Object_GetDBID)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetDBID(); RETVAL = THIS->GetDBID();
XSprePUSH; PUSHu((UV)RETVAL); XSprePUSH;
PUSHu((UV) RETVAL);
} }
XSRETURN(1); XSRETURN(1);
} }
XS(XS_Object_GetID); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_GetID); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_GetID) XS(XS_Object_GetID) {
{
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: Object::GetID(THIS)"); Perl_croak(aTHX_ "Usage: Object::GetID(THIS)");
@ -312,21 +293,20 @@ XS(XS_Object_GetID)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetID(); RETVAL = THIS->GetID();
XSprePUSH; PUSHu((UV)RETVAL); XSprePUSH;
PUSHu((UV) RETVAL);
} }
XSRETURN(1); XSRETURN(1);
} }
XS(XS_Object_GetX); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_GetX); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_GetX) XS(XS_Object_GetX) {
{
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: Object::GetX(THIS)"); Perl_croak(aTHX_ "Usage: Object::GetX(THIS)");
@ -338,21 +318,20 @@ XS(XS_Object_GetX)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetX(); RETVAL = THIS->GetX();
XSprePUSH; PUSHn((double)RETVAL); XSprePUSH;
PUSHn((double) RETVAL);
} }
XSRETURN(1); XSRETURN(1);
} }
XS(XS_Object_GetY); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_GetY); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_GetY) XS(XS_Object_GetY) {
{
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: Object::GetY(THIS)"); Perl_croak(aTHX_ "Usage: Object::GetY(THIS)");
@ -364,21 +343,20 @@ XS(XS_Object_GetY)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetY(); RETVAL = THIS->GetY();
XSprePUSH; PUSHn((double)RETVAL); XSprePUSH;
PUSHn((double) RETVAL);
} }
XSRETURN(1); XSRETURN(1);
} }
XS(XS_Object_GetZ); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_GetZ); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_GetZ) XS(XS_Object_GetZ) {
{
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: Object::GetZ(THIS)"); Perl_croak(aTHX_ "Usage: Object::GetZ(THIS)");
@ -390,21 +368,20 @@ XS(XS_Object_GetZ)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetZ(); RETVAL = THIS->GetZ();
XSprePUSH; PUSHn((double)RETVAL); XSprePUSH;
PUSHn((double) RETVAL);
} }
XSRETURN(1); XSRETURN(1);
} }
XS(XS_Object_GetHeading); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_GetHeading); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_GetHeading) XS(XS_Object_GetHeading) {
{
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: Object::GetHeading(THIS)"); Perl_croak(aTHX_ "Usage: Object::GetHeading(THIS)");
@ -416,21 +393,20 @@ XS(XS_Object_GetHeading)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetHeadingData(); RETVAL = THIS->GetHeadingData();
XSprePUSH; PUSHn((double)RETVAL); XSprePUSH;
PUSHn((double) RETVAL);
} }
XSRETURN(1); XSRETURN(1);
} }
XS(XS_Object_VarSave); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_VarSave); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_VarSave) XS(XS_Object_VarSave) {
{
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: Object::VarSave(THIS)"); Perl_croak(aTHX_ "Usage: Object::VarSave(THIS)");
@ -442,22 +418,21 @@ XS(XS_Object_VarSave)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->VarSave(); RETVAL = THIS->VarSave();
XSprePUSH; PUSHu((UV)RETVAL); XSprePUSH;
PUSHu((UV) RETVAL);
} }
XSRETURN(1); XSRETURN(1);
} }
XS(XS_Object_GetType); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_GetType); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_GetType) XS(XS_Object_GetType) {
{
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: Object::GetType(THIS)"); Perl_croak(aTHX_ "Usage: Object::GetType(THIS)");
@ -469,22 +444,21 @@ XS(XS_Object_GetType)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetType(); RETVAL = THIS->GetType();
XSprePUSH; PUSHu((UV)RETVAL); XSprePUSH;
PUSHu((UV) RETVAL);
} }
XSRETURN(1); XSRETURN(1);
} }
XS(XS_Object_SetType); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_SetType); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_SetType) XS(XS_Object_SetType) {
{
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::SetType(THIS, uint32 type)"); Perl_croak(aTHX_ "Usage: Object::SetType(THIS, uint32 type)");
@ -495,8 +469,7 @@ XS(XS_Object_SetType)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
@ -508,8 +481,7 @@ XS(XS_Object_SetType)
XS(XS_Object_GetIcon); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_GetIcon); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_GetIcon) XS(XS_Object_GetIcon) {
{
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: Object::GetIcon(THIS)"); Perl_croak(aTHX_ "Usage: Object::GetIcon(THIS)");
@ -521,22 +493,21 @@ XS(XS_Object_GetIcon)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetIcon(); RETVAL = THIS->GetIcon();
XSprePUSH; PUSHu((UV)RETVAL); XSprePUSH;
PUSHu((UV) RETVAL);
} }
XSRETURN(1); XSRETURN(1);
} }
XS(XS_Object_SetIcon); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_SetIcon); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_SetIcon) XS(XS_Object_SetIcon) {
{
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::SetIcon(THIS, uint32 icon)"); Perl_croak(aTHX_ "Usage: Object::SetIcon(THIS, uint32 icon)");
@ -547,8 +518,7 @@ XS(XS_Object_SetIcon)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
@ -560,8 +530,7 @@ XS(XS_Object_SetIcon)
XS(XS_Object_GetItemID); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_GetItemID); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_GetItemID) XS(XS_Object_GetItemID) {
{
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: Object::GetItemID(THIS)"); Perl_croak(aTHX_ "Usage: Object::GetItemID(THIS)");
@ -573,22 +542,21 @@ XS(XS_Object_GetItemID)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetItemID(); RETVAL = THIS->GetItemID();
XSprePUSH; PUSHu((UV)RETVAL); XSprePUSH;
PUSHu((UV) RETVAL);
} }
XSRETURN(1); XSRETURN(1);
} }
XS(XS_Object_SetItemID); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_SetItemID); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_SetItemID) XS(XS_Object_SetItemID) {
{
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::SetItemID(THIS, uint32 item_id)"); Perl_croak(aTHX_ "Usage: Object::SetItemID(THIS, uint32 item_id)");
@ -599,8 +567,7 @@ XS(XS_Object_SetItemID)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
@ -611,8 +578,7 @@ XS(XS_Object_SetItemID)
} }
XS(XS_Object_SetLocation); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_SetLocation); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_SetLocation) XS(XS_Object_SetLocation) {
{
dXSARGS; dXSARGS;
if (items != 4) if (items != 4)
Perl_croak(aTHX_ "Usage: Object::SetLocation(THIS, float x, float y, float z)"); Perl_croak(aTHX_ "Usage: Object::SetLocation(THIS, float x, float y, float z)");
@ -625,8 +591,7 @@ XS(XS_Object_SetLocation)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
@ -637,8 +602,7 @@ XS(XS_Object_SetLocation)
} }
XS(XS_Object_SetX); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_SetX); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_SetX) XS(XS_Object_SetX) {
{
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::SetX(THIS, float x)"); Perl_croak(aTHX_ "Usage: Object::SetX(THIS, float x)");
@ -649,8 +613,7 @@ XS(XS_Object_SetX)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
@ -661,8 +624,7 @@ XS(XS_Object_SetX)
} }
XS(XS_Object_SetY); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_SetY); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_SetY) XS(XS_Object_SetY) {
{
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::SetY(THIS, float y)"); Perl_croak(aTHX_ "Usage: Object::SetY(THIS, float y)");
@ -673,8 +635,7 @@ XS(XS_Object_SetY)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
@ -685,8 +646,7 @@ XS(XS_Object_SetY)
} }
XS(XS_Object_SetZ); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_SetZ); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_SetZ) XS(XS_Object_SetZ) {
{
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::SetZ(THIS, float z)"); Perl_croak(aTHX_ "Usage: Object::SetZ(THIS, float z)");
@ -697,8 +657,7 @@ XS(XS_Object_SetZ)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
@ -709,8 +668,7 @@ XS(XS_Object_SetZ)
} }
XS(XS_Object_SetHeading); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_SetHeading); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_SetHeading) XS(XS_Object_SetHeading) {
{
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::SetHeading(THIS, float heading)"); Perl_croak(aTHX_ "Usage: Object::SetHeading(THIS, float heading)");
@ -721,8 +679,7 @@ XS(XS_Object_SetHeading)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
@ -733,8 +690,7 @@ XS(XS_Object_SetHeading)
} }
XS(XS_Object_SetModelName); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_SetModelName); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_SetModelName) XS(XS_Object_SetModelName) {
{
dXSARGS; dXSARGS;
if (items < 1 || items > 2) if (items < 1 || items > 2)
Perl_croak(aTHX_ "Usage: Object::SetModelName(THIS, string name)"); Perl_croak(aTHX_ "Usage: Object::SetModelName(THIS, string name)");
@ -745,8 +701,7 @@ XS(XS_Object_SetModelName)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
@ -758,8 +713,7 @@ XS(XS_Object_SetModelName)
XSRETURN_EMPTY; XSRETURN_EMPTY;
} }
XS(XS_Object_GetModelName); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_GetModelName); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_GetModelName) XS(XS_Object_GetModelName) {
{
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: Object::GetModelName(THIS)"); Perl_croak(aTHX_ "Usage: Object::GetModelName(THIS)");
@ -771,21 +725,21 @@ XS(XS_Object_GetModelName)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetModelName(); RETVAL = THIS->GetModelName();
sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG; sv_setpv(TARG, RETVAL);
XSprePUSH;
PUSHTARG;
} }
XSRETURN(1); XSRETURN(1);
} }
XS(XS_Object_Repop); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_Repop); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_Repop) XS(XS_Object_Repop) {
{
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: Object::Repop(THIS)"); Perl_croak(aTHX_ "Usage: Object::Repop(THIS)");
@ -796,8 +750,7 @@ XS(XS_Object_Repop)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
@ -807,8 +760,7 @@ XS(XS_Object_Repop)
} }
XS(XS_Object_Depop); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_Depop); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_Depop) XS(XS_Object_Depop) {
{
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: Object::Depop(THIS)"); Perl_croak(aTHX_ "Usage: Object::Depop(THIS)");
@ -819,8 +771,7 @@ XS(XS_Object_Depop)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
@ -831,8 +782,7 @@ XS(XS_Object_Depop)
XS(XS_Object_GetEntityVariable); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_GetEntityVariable); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_GetEntityVariable) XS(XS_Object_GetEntityVariable) {
{
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::GetEntityVariable(THIS, string key)"); Perl_croak(aTHX_ "Usage: Object::GetEntityVariable(THIS, string key)");
@ -845,21 +795,21 @@ XS(XS_Object_GetEntityVariable)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetEntityVariable(id); RETVAL = THIS->GetEntityVariable(id);
sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG; sv_setpv(TARG, RETVAL);
XSprePUSH;
PUSHTARG;
} }
XSRETURN(1); XSRETURN(1);
} }
XS(XS_Object_EntityVariableExists); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_EntityVariableExists); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_EntityVariableExists) XS(XS_Object_EntityVariableExists) {
{
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::EntityVariableExists(THIS, string key)"); Perl_croak(aTHX_ "Usage: Object::EntityVariableExists(THIS, string key)");
@ -871,8 +821,7 @@ XS(XS_Object_EntityVariableExists)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
@ -885,8 +834,7 @@ XS(XS_Object_EntityVariableExists)
} }
XS(XS_Object_SetEntityVariable); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_SetEntityVariable); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_SetEntityVariable) XS(XS_Object_SetEntityVariable) {
{
dXSARGS; dXSARGS;
if (items != 3) if (items != 3)
Perl_croak(aTHX_ "Usage: Object::SetEntityVariable(THIS, string key, string var)"); Perl_croak(aTHX_ "Usage: Object::SetEntityVariable(THIS, string key, string var)");
@ -898,8 +846,7 @@ XS(XS_Object_SetEntityVariable)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
@ -910,8 +857,7 @@ XS(XS_Object_SetEntityVariable)
} }
XS(XS_Object_GetSolidType); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_GetSolidType); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_GetSolidType) XS(XS_Object_GetSolidType) {
{
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: Object::GetSolidType(THIS)"); Perl_croak(aTHX_ "Usage: Object::GetSolidType(THIS)");
@ -923,22 +869,21 @@ XS(XS_Object_GetSolidType)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetSolidType(); RETVAL = THIS->GetSolidType();
XSprePUSH; PUSHu((UV)RETVAL); XSprePUSH;
PUSHu((UV) RETVAL);
} }
XSRETURN(1); XSRETURN(1);
} }
XS(XS_Object_SetSolidType); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_SetSolidType); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_SetSolidType) XS(XS_Object_SetSolidType) {
{
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::SetSolidType(THIS, uint16 type)"); Perl_croak(aTHX_ "Usage: Object::SetSolidType(THIS, uint16 type)");
@ -949,8 +894,7 @@ XS(XS_Object_SetSolidType)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
@ -961,8 +905,7 @@ XS(XS_Object_SetSolidType)
} }
XS(XS_Object_GetSize); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_GetSize); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_GetSize) XS(XS_Object_GetSize) {
{
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: Object::GetSize(THIS)"); Perl_croak(aTHX_ "Usage: Object::GetSize(THIS)");
@ -974,22 +917,21 @@ XS(XS_Object_GetSize)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetSize(); RETVAL = THIS->GetSize();
XSprePUSH; PUSHn((double)RETVAL); XSprePUSH;
PUSHn((double) RETVAL);
} }
XSRETURN(1); XSRETURN(1);
} }
XS(XS_Object_SetSize); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_SetSize); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_SetSize) XS(XS_Object_SetSize) {
{
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::SetSize(THIS, float size)"); Perl_croak(aTHX_ "Usage: Object::SetSize(THIS, float size)");
@ -1000,8 +942,7 @@ XS(XS_Object_SetSize)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
@ -1012,8 +953,7 @@ XS(XS_Object_SetSize)
} }
XS(XS_Object_SetTiltX); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_SetTiltX); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_SetTiltX) XS(XS_Object_SetTiltX) {
{
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::SetTiltX(THIS, float tilt_x)"); Perl_croak(aTHX_ "Usage: Object::SetTiltX(THIS, float tilt_x)");
@ -1024,8 +964,7 @@ XS(XS_Object_SetTiltX)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
@ -1036,8 +975,7 @@ XS(XS_Object_SetTiltX)
} }
XS(XS_Object_SetTiltY); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_SetTiltY); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_SetTiltY) XS(XS_Object_SetTiltY) {
{
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::SetTiltY(THIS, float tilt_y)"); Perl_croak(aTHX_ "Usage: Object::SetTiltY(THIS, float tilt_y)");
@ -1048,8 +986,7 @@ XS(XS_Object_SetTiltY)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
@ -1060,8 +997,7 @@ XS(XS_Object_SetTiltY)
} }
XS(XS_Object_GetTiltX); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_GetTiltX); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_GetTiltX) XS(XS_Object_GetTiltX) {
{
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: Object::GetSize(THIS)"); Perl_croak(aTHX_ "Usage: Object::GetSize(THIS)");
@ -1073,21 +1009,20 @@ XS(XS_Object_GetTiltX)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetTiltX(); RETVAL = THIS->GetTiltX();
XSprePUSH; PUSHn((double)RETVAL); XSprePUSH;
PUSHn((double) RETVAL);
} }
XSRETURN(1); XSRETURN(1);
} }
XS(XS_Object_GetTiltY); /* prototype to pass -Wmissing-prototypes */ XS(XS_Object_GetTiltY); /* prototype to pass -Wmissing-prototypes */
XS(XS_Object_GetTiltY) XS(XS_Object_GetTiltY) {
{
dXSARGS; dXSARGS;
if (items != 1) if (items != 1)
Perl_croak(aTHX_ "Usage: Object::GetSize(THIS)"); Perl_croak(aTHX_ "Usage: Object::GetSize(THIS)");
@ -1099,14 +1034,14 @@ XS(XS_Object_GetTiltY)
if (sv_derived_from(ST(0), "Object")) { if (sv_derived_from(ST(0), "Object")) {
IV tmp = SvIV((SV *) SvRV(ST(0))); IV tmp = SvIV((SV *) SvRV(ST(0)));
THIS = INT2PTR(Object *, tmp); THIS = INT2PTR(Object *, tmp);
} } else
else
Perl_croak(aTHX_ "THIS is not of type Object"); Perl_croak(aTHX_ "THIS is not of type Object");
if (THIS == nullptr) if (THIS == nullptr)
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash."); Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
RETVAL = THIS->GetTiltY(); RETVAL = THIS->GetTiltY();
XSprePUSH; PUSHn((double)RETVAL); XSprePUSH;
PUSHn((double) RETVAL);
} }
XSRETURN(1); XSRETURN(1);
} }
@ -1115,8 +1050,7 @@ XS(XS_Object_GetTiltY)
extern "C" extern "C"
#endif #endif
XS(boot_Object); /* prototype to pass -Wmissing-prototypes */ XS(boot_Object); /* prototype to pass -Wmissing-prototypes */
XS(boot_Object) XS(boot_Object) {
{
dXSARGS; dXSARGS;
char file[256]; char file[256];
strncpy(file, __FILE__, 256); strncpy(file, __FILE__, 256);