From 1cfdd7e4a2686120181af093db2e2a7d6a637c68 Mon Sep 17 00:00:00 2001 From: TurmoilToad Date: Tue, 23 Feb 2021 12:51:51 -0500 Subject: [PATCH] [Quest API] Perl Group Annotations (#1261) Added category tag annotations for group methods. --- zone/perl_groups.cpp | 36 ++++++++++++++++++------------------ 1 file changed, 18 insertions(+), 18 deletions(-) diff --git a/zone/perl_groups.cpp b/zone/perl_groups.cpp index f69876353..70c321a21 100644 --- a/zone/perl_groups.cpp +++ b/zone/perl_groups.cpp @@ -59,7 +59,7 @@ XS(XS_Group_DisbandGroup); /* prototype to pass -Wmissing-prototypes */ XS(XS_Group_DisbandGroup) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: Group::DisbandGroup(THIS)"); + Perl_croak(aTHX_ "Usage: Group::DisbandGroup(THIS)"); // @categories Script Utility, Group { Group *THIS; VALIDATE_THIS_IS_GROUP; @@ -72,7 +72,7 @@ XS(XS_Group_IsGroupMember); /* prototype to pass -Wmissing-prototypes */ XS(XS_Group_IsGroupMember) { dXSARGS; if (items != 2) - Perl_croak(aTHX_ "Usage: Group::IsGroupMember(THIS, client)"); + Perl_croak(aTHX_ "Usage: Group::IsGroupMember(THIS, client)"); // @categories Account and Character, Script Utility, Group { Group *THIS; bool RETVAL; @@ -97,7 +97,7 @@ XS(XS_Group_CastGroupSpell); /* prototype to pass -Wmissing-prototypes */ XS(XS_Group_CastGroupSpell) { dXSARGS; if (items != 3) - Perl_croak(aTHX_ "Usage: Group::CastGroupSpell(THIS, Mob* caster, uint16 spell_id)"); + Perl_croak(aTHX_ "Usage: Group::CastGroupSpell(THIS, Mob* caster, uint16 spell_id)"); // @categories Account and Character, Script Utility, Group { Group *THIS; Mob *caster; @@ -120,7 +120,7 @@ XS(XS_Group_SplitExp); /* prototype to pass -Wmissing-prototypes */ XS(XS_Group_SplitExp) { dXSARGS; if (items != 3) - Perl_croak(aTHX_ "Usage: Group::SplitExp(THIS, uint32 exp, Mob* other)"); + Perl_croak(aTHX_ "Usage: Group::SplitExp(THIS, uint32 exp, Mob* other)"); // @categories Account and Character, Script Utility, Group { Group *THIS; uint32 exp = (uint32) SvUV(ST(1)); @@ -143,7 +143,7 @@ XS(XS_Group_GroupMessage); /* prototype to pass -Wmissing-prototypes */ XS(XS_Group_GroupMessage) { dXSARGS; if ((items != 3) && (items != 4)) // the 3 item version is kept for backwards compatability - Perl_croak(aTHX_ "Usage: Group::GroupMessage(THIS, Mob* sender, uint8 language, string message)"); + Perl_croak(aTHX_ "Usage: Group::GroupMessage(THIS, Mob* sender, uint8 language, string message)"); // @categories Script Utility, Group { Group *THIS; Mob *sender; @@ -176,7 +176,7 @@ XS(XS_Group_GetTotalGroupDamage); /* prototype to pass -Wmissing-prototypes */ XS(XS_Group_GetTotalGroupDamage) { dXSARGS; if (items != 2) - Perl_croak(aTHX_ "Usage: Group::GetTotalGroupDamage(THIS, Mob* other)"); + Perl_croak(aTHX_ "Usage: Group::GetTotalGroupDamage(THIS, Mob* other)"); // @categories Script Utility, Group { Group *THIS; uint32 RETVAL; @@ -202,7 +202,7 @@ XS(XS_Group_SplitMoney); /* prototype to pass -Wmissing-prototypes */ XS(XS_Group_SplitMoney) { dXSARGS; if (items != 5) - Perl_croak(aTHX_ "Usage: Group::SplitMoney(THIS, uint32 copper, uint32 silver, uint32 gold, uint32 platinum)"); + Perl_croak(aTHX_ "Usage: Group::SplitMoney(THIS, uint32 copper, uint32 silver, uint32 gold, uint32 platinum)"); // @categories Currency and Points, Script Utility, Group { Group *THIS; uint32 copper = (uint32) SvUV(ST(1)); @@ -219,7 +219,7 @@ XS(XS_Group_SetLeader); /* prototype to pass -Wmissing-prototypes */ XS(XS_Group_SetLeader) { dXSARGS; if (items != 2) - Perl_croak(aTHX_ "Usage: Group::SetLeader(THIS, Mob* new_leader)"); + Perl_croak(aTHX_ "Usage: Group::SetLeader(THIS, Mob* new_leader)"); // @categories Account and Character, Script Utility, Group { Group *THIS; Mob *newleader; @@ -241,7 +241,7 @@ XS(XS_Group_GetLeader); /* prototype to pass -Wmissing-prototypes */ XS(XS_Group_GetLeader) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: Group::GetLeader(THIS)"); + Perl_croak(aTHX_ "Usage: Group::GetLeader(THIS)"); // @categories Account and Character, Script Utility, Group { Group *THIS; Mob *RETVAL; @@ -257,7 +257,7 @@ XS(XS_Group_GetLeaderName); /* prototype to pass -Wmissing-prototypes */ XS(XS_Group_GetLeaderName) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: Group::GetLeaderName(THIS)"); + Perl_croak(aTHX_ "Usage: Group::GetLeaderName(THIS)"); // @categories Account and Character, Script Utility, Group { Group *THIS; const char *RETVAL; @@ -275,7 +275,7 @@ XS(XS_Group_SendHPPacketsTo); /* prototype to pass -Wmissing-prototypes */ XS(XS_Group_SendHPPacketsTo) { dXSARGS; if (items != 2) - Perl_croak(aTHX_ "Usage: Group::SendHPPacketsTo(THIS, Mob* new_member)"); + Perl_croak(aTHX_ "Usage: Group::SendHPPacketsTo(THIS, Mob* new_member)"); // @categories Script Utility, Group { Group *THIS; Mob *newmember; @@ -297,7 +297,7 @@ XS(XS_Group_SendHPPacketsFrom); /* prototype to pass -Wmissing-prototypes */ XS(XS_Group_SendHPPacketsFrom) { dXSARGS; if (items != 2) - Perl_croak(aTHX_ "Usage: Group::SendHPPacketsFrom(THIS, Mob* new_member)"); + Perl_croak(aTHX_ "Usage: Group::SendHPPacketsFrom(THIS, Mob* new_member)"); // @categories Script Utility, Group { Group *THIS; Mob *newmember; @@ -319,7 +319,7 @@ XS(XS_Group_IsLeader); /* prototype to pass -Wmissing-prototypes */ XS(XS_Group_IsLeader) { dXSARGS; if (items != 2) - Perl_croak(aTHX_ "Usage: Group::IsLeader(THIS, Mob* target)"); + Perl_croak(aTHX_ "Usage: Group::IsLeader(THIS, Mob* target)"); // @categories Account and Character, Script Utility, Group { Group *THIS; bool RETVAL; @@ -344,7 +344,7 @@ XS(XS_Group_GroupCount); /* prototype to pass -Wmissing-prototypes */ XS(XS_Group_GroupCount) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: Group::GroupCount(THIS)"); + Perl_croak(aTHX_ "Usage: Group::GroupCount(THIS)"); // @categories Script Utility, Group { Group *THIS; uint8 RETVAL; @@ -361,7 +361,7 @@ XS(XS_Group_GetHighestLevel); /* prototype to pass -Wmissing-prototypes */ XS(XS_Group_GetHighestLevel) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: Group::GetHighestLevel(THIS)"); + Perl_croak(aTHX_ "Usage: Group::GetHighestLevel(THIS)"); // @categories Script Utility, Group { Group *THIS; uint32 RETVAL; @@ -378,7 +378,7 @@ XS(XS_Group_TeleportGroup); /* prototype to pass -Wmissing-prototypes */ XS(XS_Group_TeleportGroup) { dXSARGS; if (items != 7) - Perl_croak(aTHX_ "Usage: Group::TeleportGroup(THIS, Mob* sender, uint32 zone_id, float x, float y, float z, float heading)"); + Perl_croak(aTHX_ "Usage: Group::TeleportGroup(THIS, Mob* sender, uint32 zone_id, float x, float y, float z, float heading)"); // @categories Script Utility, Group { Group *THIS; Mob *sender; @@ -405,7 +405,7 @@ XS(XS_Group_GetID); /* prototype to pass -Wmissing-prototypes */ XS(XS_Group_GetID) { dXSARGS; if (items != 1) - Perl_croak(aTHX_ "Usage: Group::GetID(THIS)"); + Perl_croak(aTHX_ "Usage: Group::GetID(THIS)"); // @categories Script Utility, Group { Group *THIS; uint32 RETVAL; @@ -422,7 +422,7 @@ XS(XS_Group_GetMember); XS(XS_Group_GetMember) { dXSARGS; if (items != 2) - Perl_croak(aTHX_ "Usage: Group::GetMember(THIS, int group_index)"); + Perl_croak(aTHX_ "Usage: Group::GetMember(THIS, int group_index)"); // @categories Account and Character, Script Utility, Group { Group *THIS; Mob *member;