pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2026-03-24 11:42:36 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add --objet to perl-doc-parser.pl and update usage doc for perl_object.cpp

Browse Source
This commit is contained in:
Akkadius 2018-07-01 20:29:00 -05:00
parent d079feeb66
commit ed37715993
2 changed files with 27 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
utils/scripts/perl-doc-parser.pl
View File

@ -8,6 +8,7 @@ sub usage() {
print " --npc - Prints methods for just npc class methods\n"; print " --npc - Prints methods for just npc class methods\n";
print " --entity - Prints methods for just entity class methods\n"; print " --entity - Prints methods for just entity class methods\n";
print " --door - Prints methods for just door class methods\n"; print " --door - Prints methods for just door class methods\n";
print " --object - Prints methods for just object class methods\n";
print " --group - Prints methods for just group class methods\n"; print " --group - Prints methods for just group class methods\n";
print " --corpse - Prints methods for just corpse class methods\n"; print " --corpse - Prints methods for just corpse class methods\n";
print " --hateentry - Prints methods for just hateentry class methods\n"; print " --hateentry - Prints methods for just hateentry class methods\n";
@ -51,7 +52,7 @@ for my $file (@files) {
chomp; chomp;
$line = $_; $line = $_;
if ($line=~/Client::|Mob::|Corpse::|EntityList::|Doors::|Group::|HateEntry::|NPC::/i && $line=~/_croak/i) { if ($line=~/Client::|Mob::|Corpse::|EntityList::|Doors::|Group::|HateEntry::|NPC::|Object::/i && $line=~/_croak/i) {
#::: Client export #::: Client export
if ($export=~/all|client/i) { if ($export=~/all|client/i) {
@ -89,6 +90,12 @@ for my $file (@files) {
$object_prefix = "\$door->"; $object_prefix = "\$door->";
} }
#::: Object export
if ($export=~/all|object/i) {
$split_key = "Object::";
$object_prefix = "\$object->";
}
#::: Group export #::: Group export
if ($export=~/all|group/i) { if ($export=~/all|group/i) {
$split_key = "Group::"; $split_key = "Group::";

38
zone/perl_object.cpp
View File

@ -97,7 +97,7 @@ XS(XS_Object_Delete)
{ {
dXSARGS; dXSARGS;
if (items < 1 || items > 2) if (items < 1 || items > 2)
Perl_croak(aTHX_ "Usage: Object::Delete(THIS, reset_state=false)"); Perl_croak(aTHX_ "Usage: Object::Delete(THIS, [bool reset_state = false])");
{ {
Object * THIS; Object * THIS;
bool reset_state; bool reset_state;
@ -150,7 +150,7 @@ XS(XS_Object_DeleteItem)
{ {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::DeleteItem(THIS, index)"); Perl_croak(aTHX_ "Usage: Object::DeleteItem(THIS, uint8 index)");
{ {
Object * THIS; Object * THIS;
uint8 index = (uint8)SvUV(ST(1)); uint8 index = (uint8)SvUV(ST(1));
@ -228,7 +228,7 @@ XS(XS_Object_SetID)
{ {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::SetID(THIS, set_id)"); Perl_croak(aTHX_ "Usage: Object::SetID(THIS, uint16 id)");
{ {
Object * THIS; Object * THIS;
uint16 set_id = (uint16)SvUV(ST(1)); uint16 set_id = (uint16)SvUV(ST(1));
@ -487,7 +487,7 @@ XS(XS_Object_SetType)
{ {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::SetType(THIS, type)"); Perl_croak(aTHX_ "Usage: Object::SetType(THIS, uint32 type)");
{ {
Object * THIS; Object * THIS;
uint32 type = (uint32)SvUV(ST(1)); uint32 type = (uint32)SvUV(ST(1));
@ -539,7 +539,7 @@ XS(XS_Object_SetIcon)
{ {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::SetIcon(THIS, icon)"); Perl_croak(aTHX_ "Usage: Object::SetIcon(THIS, uint32 icon)");
{ {
Object * THIS; Object * THIS;
uint32 icon = (uint32)SvUV(ST(1)); uint32 icon = (uint32)SvUV(ST(1));
@ -591,7 +591,7 @@ XS(XS_Object_SetItemID)
{ {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::SetItemID(THIS, itemid)"); Perl_croak(aTHX_ "Usage: Object::SetItemID(THIS, uint32 item_id)");
{ {
Object * THIS; Object * THIS;
uint32 itemid = (uint32)SvUV(ST(1)); uint32 itemid = (uint32)SvUV(ST(1));
@ -615,7 +615,7 @@ XS(XS_Object_SetLocation)
{ {
dXSARGS; dXSARGS;
if (items != 4) if (items != 4)
Perl_croak(aTHX_ "Usage: Object::SetLocation(THIS, x, y, z)"); Perl_croak(aTHX_ "Usage: Object::SetLocation(THIS, float x, float y, float z)");
{ {
Object * THIS; Object * THIS;
float x = (float)SvNV(ST(1)); float x = (float)SvNV(ST(1));
@ -641,7 +641,7 @@ XS(XS_Object_SetX)
{ {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::SetX(THIS, XPos)"); Perl_croak(aTHX_ "Usage: Object::SetX(THIS, float x)");
{ {
Object * THIS; Object * THIS;
float pos = (float)SvNV(ST(1)); float pos = (float)SvNV(ST(1));
@ -665,7 +665,7 @@ XS(XS_Object_SetY)
{ {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::SetY(THIS, YPos)"); Perl_croak(aTHX_ "Usage: Object::SetY(THIS, float y)");
{ {
Object * THIS; Object * THIS;
float pos = (float)SvNV(ST(1)); float pos = (float)SvNV(ST(1));
@ -689,7 +689,7 @@ XS(XS_Object_SetZ)
{ {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::SetZ(THIS, ZPos)"); Perl_croak(aTHX_ "Usage: Object::SetZ(THIS, float z)");
{ {
Object * THIS; Object * THIS;
float pos = (float)SvNV(ST(1)); float pos = (float)SvNV(ST(1));
@ -713,7 +713,7 @@ XS(XS_Object_SetHeading)
{ {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::SetHeading(THIS, heading)"); Perl_croak(aTHX_ "Usage: Object::SetHeading(THIS, float heading)");
{ {
Object * THIS; Object * THIS;
float heading = (float)SvNV(ST(1)); float heading = (float)SvNV(ST(1));
@ -737,7 +737,7 @@ XS(XS_Object_SetModelName)
{ {
dXSARGS; dXSARGS;
if (items < 1 || items > 2) if (items < 1 || items > 2)
Perl_croak(aTHX_ "Usage: Object::SetModelName(THIS, name)"); Perl_croak(aTHX_ "Usage: Object::SetModelName(THIS, string name)");
{ {
Object * THIS; Object * THIS;
char * name = nullptr; char * name = nullptr;
@ -835,7 +835,7 @@ XS(XS_Object_GetEntityVariable)
{ {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::GetEntityVariable(THIS, id)"); Perl_croak(aTHX_ "Usage: Object::GetEntityVariable(THIS, string key)");
{ {
Object * THIS; Object * THIS;
Const_char *id = SvPV_nolen(ST(1)); Const_char *id = SvPV_nolen(ST(1));
@ -862,7 +862,7 @@ XS(XS_Object_EntityVariableExists)
{ {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::EntityVariableExists(THIS, id)"); Perl_croak(aTHX_ "Usage: Object::EntityVariableExists(THIS, string key)");
{ {
Object * THIS; Object * THIS;
Const_char *id = SvPV_nolen(ST(1)); Const_char *id = SvPV_nolen(ST(1));
@ -889,7 +889,7 @@ XS(XS_Object_SetEntityVariable)
{ {
dXSARGS; dXSARGS;
if (items != 3) if (items != 3)
Perl_croak(aTHX_ "Usage: Object::SetEntityVariable(THIS, id, var)"); Perl_croak(aTHX_ "Usage: Object::SetEntityVariable(THIS, string key, string var)");
{ {
Object * THIS; Object * THIS;
Const_char *id = SvPV_nolen(ST(1)); Const_char *id = SvPV_nolen(ST(1));
@ -941,7 +941,7 @@ XS(XS_Object_SetSolidType)
{ {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::SetSolidType(THIS, type)"); Perl_croak(aTHX_ "Usage: Object::SetSolidType(THIS, uint16 type)");
{ {
Object * THIS; Object * THIS;
uint16 type = (uint16)SvUV(ST(1)); uint16 type = (uint16)SvUV(ST(1));
@ -992,7 +992,7 @@ XS(XS_Object_SetSize)
{ {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::SetSize(THIS, type)"); Perl_croak(aTHX_ "Usage: Object::SetSize(THIS, float size)");
{ {
Object * THIS; Object * THIS;
float size = (float)SvNV(ST(1)); float size = (float)SvNV(ST(1));
@ -1016,7 +1016,7 @@ XS(XS_Object_SetTiltX)
{ {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::SetTiltX(THIS, pos)"); Perl_croak(aTHX_ "Usage: Object::SetTiltX(THIS, float tilt_x)");
{ {
Object * THIS; Object * THIS;
float pos = (float)SvNV(ST(1)); float pos = (float)SvNV(ST(1));
@ -1040,7 +1040,7 @@ XS(XS_Object_SetTiltY)
{ {
dXSARGS; dXSARGS;
if (items != 2) if (items != 2)
Perl_croak(aTHX_ "Usage: Object::SetTiltY(THIS, pos)"); Perl_croak(aTHX_ "Usage: Object::SetTiltY(THIS, float tilt_y)");
{ {
Object * THIS; Object * THIS;
float pos = (float)SvNV(ST(1)); float pos = (float)SvNV(ST(1));