mirror of
https://bitbucket.org/theswgsource/src-1.2.git
synced 2026-07-14 00:01:30 -04:00
888 lines
24 KiB
Perl
Executable File
888 lines
24 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
# Parses the network package definitions
|
|
# uses the results to make encoder & decoder functions for DBProcess and
|
|
# to make the add-to-package code in xxxObject.cpp
|
|
|
|
use Getopt::Long;
|
|
|
|
&main;
|
|
|
|
# ======================================================================
|
|
|
|
sub main
|
|
{
|
|
&GetOptions("checkout","source=s","encoder=s","decoder=s","datafile=s","loadobject=s","windows");
|
|
|
|
if ($opt_datafile eq "")
|
|
{
|
|
print "Usage:\n";
|
|
# print "--checkout Check out all files that might be changed"
|
|
print "--datafile <filename> Specify the file to read package data from.\n";
|
|
print "--source <filename> Write package add functions to file (for the serverGame library).\n";
|
|
print "--encoder <filename> Write Encoder functions for SwgDatabaseServer.\n";
|
|
print "--decoder <filename> Write Decoder functions for SwgDatabaseServer.\n";
|
|
print "--loadobject <filename> Write LoadObject functions for SwgDatabaseServer.\n";
|
|
print "--windows Use this option when running under Windows.\n";
|
|
die;
|
|
}
|
|
|
|
open (DATAFILE,$opt_datafile);
|
|
while (<DATAFILE>)
|
|
{
|
|
chop;
|
|
s/\#.*//;
|
|
next if (/^\s*$/);
|
|
last if (/^\s*end\s*$/);
|
|
|
|
s/\s+/\t/g;
|
|
($classname,$parentname)=split("\t",$_);
|
|
# print "class \"${classname}\" parent \"${parentname}\"\n";
|
|
if ($classname =~ /^\-/)
|
|
{
|
|
$classname =~ s/^-//;
|
|
}
|
|
else
|
|
{
|
|
$parent{$classname}=$parentname;
|
|
}
|
|
push(@packableClasses,$classname);
|
|
}
|
|
|
|
while (<DATAFILE>)
|
|
{
|
|
chop;
|
|
s/\#.*//;
|
|
next if (/^\s*$/);
|
|
|
|
s/\s+/\t/g;
|
|
($class,$cName,$package,$datatype,$addCommand,$persistFunction,$loadFunction)=split("\t",$_); #split("\s+" ????
|
|
$package="client" if ($package eq "authClientServer");
|
|
$package="parentClient" if ($package eq "firstParentAuthClientServer");
|
|
$addCommand="" if ($addCommand eq "-");
|
|
$memberdata = [$cName, $datatype, $addCommand, $persistFunction, $loadFunction];
|
|
push @{ $packageMembers{"$class.$package"} },$memberdata;
|
|
}
|
|
close (DATAFILE);
|
|
|
|
foreach $package (keys(%packageMembers))
|
|
{
|
|
# print "$package count is ".scalar(@{ $packageMembers{$package} })."\n";
|
|
foreach $member (@{ $packageMembers{$package} })
|
|
{
|
|
($a,$b,$c)=@{ $member };
|
|
# print "$package\t$a\t$b\t$c\n";
|
|
}
|
|
}
|
|
|
|
#print out packaging functions
|
|
|
|
if ($opt_source ne "")
|
|
{
|
|
$filename = $opt_source;
|
|
&editFile($filename);
|
|
}
|
|
|
|
if ($opt_encoder ne "")
|
|
{
|
|
$filename = $opt_encoder;
|
|
&editEncoder($filename);
|
|
}
|
|
|
|
if ($opt_decoder ne "")
|
|
{
|
|
$filename = $opt_decoder;
|
|
&editDecoder($filename);
|
|
}
|
|
|
|
if ($opt_loadobject ne "")
|
|
{
|
|
$filename = $opt_loadobject;
|
|
&editLoadObject($filename);
|
|
}
|
|
}
|
|
|
|
# ----------------------------------------------------------------------
|
|
|
|
sub editFile
|
|
{
|
|
my($filename)=@_;
|
|
my($classname);
|
|
|
|
# $classname = $filename;
|
|
# $classname =~ s/\.cpp//;
|
|
# $classname =~ s/.*\/([^\/]+)$/$1/;
|
|
|
|
open (INFILE,"$filename");
|
|
open (OUTFILE,">${filename}.make_encoder_temporary_file");
|
|
|
|
while (<INFILE>)
|
|
{
|
|
print OUTFILE $_;
|
|
if (/!!!BEGIN GENERATED PACKAGEADD/)
|
|
{
|
|
foreach $classname (sort (@packableClasses))
|
|
{
|
|
print OUTFILE "/*\n";
|
|
print OUTFILE " * Generated function. Do not edit.\n";
|
|
print OUTFILE " */\n";
|
|
print OUTFILE "void ${classname}::addMembersToPackages()\n";
|
|
print OUTFILE "{\n";
|
|
|
|
&printPackage($classname,"server");
|
|
&printPackage($classname,"shared");
|
|
&printPackage($classname,"client");
|
|
&printPackage($classname,"server_np");
|
|
&printPackage($classname,"shared_np");
|
|
&printPackage($classname,"client_np");
|
|
&printPackage($classname,"authClientServer_np");
|
|
&printPackage($classname,"parentClient");
|
|
&printPackage($classname,"firstParentAuthClientServer_np");
|
|
|
|
print OUTFILE "}\n";
|
|
print OUTFILE "\n";
|
|
}
|
|
|
|
while (!/!!!END GENERATED PACKAGEADD/)
|
|
{
|
|
#eat old packageadd commands
|
|
die unless ($_=<INFILE>);
|
|
}
|
|
print OUTFILE $_;
|
|
}
|
|
}
|
|
close (INFILE);
|
|
close (OUTFILE);
|
|
if ($opt_windows == 1)
|
|
{
|
|
system ("copy ${filename}.make_encoder_temporary_file $filename /y");
|
|
system ("del ${filename}.make_encoder_temporary_file");
|
|
}
|
|
else
|
|
{
|
|
system ("cp ${filename}.make_encoder_temporary_file $filename");
|
|
system ("rm ${filename}.make_encoder_temporary_file");
|
|
}
|
|
}
|
|
|
|
# ----------------------------------------------------------------------
|
|
|
|
sub printPackage
|
|
{
|
|
my($class,$package)=@_;
|
|
my($member, $cName, $datatype, $addCommand, $persistFunction);
|
|
|
|
foreach $member (@{ $packageMembers{"$class.$package"} })
|
|
{
|
|
($cName, $datatype, $addCommand, $persistFunction)=@{ $member };
|
|
|
|
if ($addCommand eq "")
|
|
{
|
|
$realpackagename = $package;
|
|
$realpackagename =~ s/parentClient$/firstParentAuthClientServer/;
|
|
$realpackagename =~ s/client$/authClientServer/;
|
|
if ($realpackagename =~ /\_np/)
|
|
{
|
|
$realpackagename =~ s/\_np//;
|
|
$realpackagename.="Variable_np";
|
|
}
|
|
else
|
|
{
|
|
$realpackagename.="Variable ";
|
|
}
|
|
|
|
print OUTFILE "\tadd\u${realpackagename} ($cName);\n";
|
|
}
|
|
else
|
|
{
|
|
print OUTFILE "\t$addCommand\n";
|
|
}
|
|
}
|
|
}
|
|
|
|
# ----------------------------------------------------------------------
|
|
|
|
sub editEncoder
|
|
{
|
|
my($filename)=@_;
|
|
my($classname);
|
|
|
|
open (INFILE,"$filename");
|
|
open (OUTFILE,">${filename}.make_encoder_temporary_file");
|
|
|
|
while (<INFILE>)
|
|
{
|
|
print OUTFILE $_;
|
|
if (/!!!BEGIN GENERATED ENCODER/)
|
|
{
|
|
foreach $classname (sort keys (%parent))
|
|
{
|
|
# foreach $classname ("VehicleObject",
|
|
# "TangibleObject" ,
|
|
# "UniverseObject",
|
|
# "ResourceClassObject",
|
|
# "ResourceTypeObject",
|
|
# "CellObject",
|
|
# "InstallationObject",
|
|
# "CreatureObject",
|
|
# "StaticObject",
|
|
# "ServerObject",
|
|
# "ResourcePoolObject",
|
|
# "BuildingObject",
|
|
# "WeaponObject",
|
|
# "PlanetObject")
|
|
# {
|
|
&makeEncodeFunction($classname,"shared");
|
|
&makeEncodeFunction($classname,"server");
|
|
&makeEncodeFunction($classname,"client");
|
|
}
|
|
&makeEncodeFunction("PlayerObject","parentClient");
|
|
|
|
&makeEncodeSwitcher("shared");
|
|
&makeEncodeSwitcher("server");
|
|
&makeEncodeSwitcher("client");
|
|
&makeEncodeSwitcher("parentClient");
|
|
|
|
while (!/!!!END GENERATED ENCODER/)
|
|
{
|
|
#eat old generated code
|
|
die unless ($_=<INFILE>);
|
|
}
|
|
print OUTFILE $_;
|
|
}
|
|
}
|
|
|
|
close (INFILE);
|
|
close (OUTFILE);
|
|
|
|
if ($opt_windows == 1)
|
|
{
|
|
system ("copy ${filename}.make_encoder_temporary_file $filename");
|
|
system ("del ${filename}.make_encoder_temporary_file");
|
|
}
|
|
else
|
|
{
|
|
system ("cp ${filename}.make_encoder_temporary_file $filename");
|
|
system ("rm ${filename}.make_encoder_temporary_file");
|
|
}
|
|
}
|
|
|
|
# ----------------------------------------------------------------------
|
|
|
|
sub makeEncodeFunction
|
|
{
|
|
my ($classname,$package)=@_;
|
|
my ($member,$rowtype,$buffer);
|
|
|
|
print OUTFILE "bool SwgSnapshot::encode\u${package}${classname}(NetworkId const & objectId, Archive::ByteStream &data, bool addCount) const\n";
|
|
print OUTFILE "{\n";
|
|
print OUTFILE "\tif (addCount)\n";
|
|
print OUTFILE "\t{\n";
|
|
print OUTFILE "\t\tuint16 temp=".&packageCount($classname,$package).";\n";
|
|
print OUTFILE "\t\tArchive::put(data,temp);\n";
|
|
print OUTFILE "\t}\n";
|
|
if (($parent{$classname} ne "") && (&packageCount($parent{$classname},$package)!=0))
|
|
{
|
|
print OUTFILE "\tencode\u${package}".$parent{$classname}."(objectId, data, false);\n";
|
|
print OUTFILE "\n";
|
|
}
|
|
print OUTFILE "\tPROFILER_AUTO_BLOCK_DEFINE(\"encode\u${package}${classname}\");\n";
|
|
print OUTFILE "\n";
|
|
if ($classname eq "ServerObject")
|
|
{
|
|
$rowtype="ObjectBufferRow";
|
|
$buffer="objectTableBuffer";
|
|
}
|
|
else
|
|
{
|
|
if (!($classname =~ /Object$/))
|
|
{
|
|
$rowtype=$classname."ObjectBufferRow";
|
|
$buffer=$classname."ObjectBuffer";
|
|
}
|
|
else
|
|
{
|
|
$rowtype=$classname."BufferRow";
|
|
$buffer=$classname."Buffer";
|
|
}
|
|
}
|
|
print OUTFILE "\tconst DBSchema::${rowtype} *row=m_\l${buffer}.findConstRowByIndex(objectId);\n";
|
|
print OUTFILE "\tWARNING_STRICT_FATAL(row==NULL,(\"Loading object %s, no ${rowtype} in the buffer\\n\",objectId.getValueString().c_str()));\n";
|
|
print OUTFILE "\tif (!row)\n";
|
|
print OUTFILE "\t\treturn false;\n";
|
|
print OUTFILE "\n";
|
|
|
|
foreach $member (@{ $packageMembers{"$classname.$package"} })
|
|
{
|
|
($cName, $datatype, $addCommand, $persistFunction)=@{ $member };
|
|
|
|
if ($persistFunction eq "")
|
|
{
|
|
if ($datatype =~ /packed_map<(\w+),([\w:]+)>/)
|
|
{
|
|
print OUTFILE "\t{\n";
|
|
print OUTFILE "\t\tstd::string packedValue;\n";
|
|
print OUTFILE "\t\trow->".&dbIze($cName).".getValue(packedValue);\n";
|
|
print OUTFILE "\t\tArchive::AutoDeltaPackedMap<$1,$2>::pack(data, packedValue);\n";
|
|
print OUTFILE "\t}\n";
|
|
}
|
|
else
|
|
{
|
|
print OUTFILE "\t{\n";
|
|
print OUTFILE "\t\t${datatype} temp;\n";
|
|
print OUTFILE "\t\trow->".&dbIze($cName).".getValue(temp);\n";
|
|
print OUTFILE "\t\tArchive::put(data,temp);\n";
|
|
print OUTFILE "\t}\n";
|
|
}
|
|
}
|
|
else
|
|
{
|
|
print OUTFILE "\t\t".$persistFunction."\n";
|
|
}
|
|
}
|
|
|
|
print OUTFILE "\treturn true;\n";
|
|
print OUTFILE "}\n";
|
|
print OUTFILE "\n";
|
|
}
|
|
|
|
# ----------------------------------------------------------------------
|
|
|
|
sub packageCount
|
|
{
|
|
my($classname,$package)=@_;
|
|
if ($parent{$classname} eq "")
|
|
{
|
|
return scalar (@{ $packageMembers{"$classname.$package"} }) + 0;
|
|
}
|
|
else
|
|
{
|
|
return scalar (@{ $packageMembers{"$classname.$package"} }) + &packageCount($parent{$classname},$package) + 0;
|
|
}
|
|
}
|
|
|
|
# ----------------------------------------------------------------------
|
|
|
|
sub dbIze
|
|
{
|
|
my($name)=@_;
|
|
$name =~ s/m\_//;
|
|
$name =~ s/\s+$//;
|
|
$name =~ s/([a-z])([A-Z])/$1_$2/g;
|
|
$name =~ tr/[A-Z]/[a-z]/;
|
|
$name =~ s/component/cmp/;
|
|
$name =~ s/energy/eng/;
|
|
$name =~ s/hitpoints/hp/;
|
|
$name =~ s/acceleration/acc/;
|
|
$name =~ s/droid_control_device/dcd/;
|
|
$name =~ s/droid_interface_command_speed/droid_if_cmd_speed/;
|
|
$name =~ s/maintenance_requirement/maintenance/;
|
|
return $name;
|
|
}
|
|
|
|
# ----------------------------------------------------------------------
|
|
|
|
sub makeEncodeSwitcher
|
|
{
|
|
my($package)=@_;
|
|
my($classname,$templatetag);
|
|
print OUTFILE "bool SwgSnapshot::encode\u${package}Data(NetworkId const & objectId, Tag typeId, std::vector<BatchBaselinesMessageData> &baselines) const\n";
|
|
print OUTFILE "{\n";
|
|
print OUTFILE "\tArchive::ByteStream bs;\n";
|
|
print OUTFILE "\tswitch (typeId)\n";
|
|
print OUTFILE "\t{\n";
|
|
|
|
if ($package eq "parentClient")
|
|
{
|
|
$classname="PlayerObject";
|
|
$templatetag="Server${classname}Template::Server${classname}Template_tag";
|
|
print OUTFILE "\tcase ${templatetag}:\n";
|
|
print OUTFILE "\t\tif (!encode\u${package}${classname}(objectId, bs)) return false;\n";
|
|
print OUTFILE "\t\tbreak;\n";
|
|
}
|
|
else
|
|
{
|
|
foreach $classname (sort (keys (%parent)))
|
|
{
|
|
if ($classname eq "ServerObject")
|
|
{
|
|
$templatetag="ServerObjectTemplate::ServerObjectTemplate_tag";
|
|
}
|
|
elsif (!($classname =~ /Object/))
|
|
{
|
|
$templatetag="Server${classname}ObjectTemplate::Server${classname}ObjectTemplate_tag";
|
|
}
|
|
else
|
|
{
|
|
$templatetag="Server${classname}Template::Server${classname}Template_tag";
|
|
}
|
|
|
|
print OUTFILE "\tcase ${templatetag}:\n";
|
|
print OUTFILE "\t\tif (!encode\u${package}${classname}(objectId, bs)) return false;\n";
|
|
print OUTFILE "\t\tbreak;\n";
|
|
}
|
|
}
|
|
print OUTFILE "\t}\n";
|
|
print OUTFILE "\n";
|
|
print OUTFILE "\t// test for 0-length message\n";
|
|
print OUTFILE "\tif (bs.getSize() == 0)\n";
|
|
print OUTFILE "\t\treturn true;\n";
|
|
print OUTFILE "\t\n";
|
|
print OUTFILE "\t{\n";
|
|
print OUTFILE "\t\tPROFILER_AUTO_BLOCK_DEFINE(\"new BaselinesMessage\");\n";
|
|
print OUTFILE "\t\tbaselines.push_back(BatchBaselinesMessageData(objectId,typeId,BaselinesMessage::".&baselinesTag($package).",bs));\n";
|
|
print OUTFILE "\t}\n";
|
|
print OUTFILE "\treturn true;\n";
|
|
print OUTFILE "}\n";
|
|
print OUTFILE "\n";
|
|
}
|
|
|
|
# ----------------------------------------------------------------------
|
|
|
|
sub baselinesTag
|
|
{
|
|
my ($package)=@_;
|
|
return "BASELINES_SHARED" if ($package eq "shared");
|
|
return "BASELINES_SERVER" if ($package eq "server");
|
|
return "BASELINES_CLIENT_SERVER" if ($package eq "client");
|
|
return "BASELINES_FIRST_PARENT_CLIENT_SERVER" if ($package eq "parentClient");
|
|
}
|
|
|
|
# ----------------------------------------------------------------------
|
|
|
|
sub editDecoder
|
|
{
|
|
my($filename)=@_;
|
|
my($classname);
|
|
|
|
open (INFILE,"$filename");
|
|
open (OUTFILE,">${filename}.make_encoder_temporary_file");
|
|
|
|
while (<INFILE>)
|
|
{
|
|
print OUTFILE $_;
|
|
if (/!!!BEGIN GENERATED DECODER/)
|
|
{
|
|
foreach $classname (sort (keys (%parent)))
|
|
{
|
|
# foreach $classname ("VehicleObject",
|
|
# "TangibleObject" ,
|
|
# "UniverseObject",
|
|
# "ResourceClassObject",
|
|
# "ResourceTypeObject",
|
|
# "CellObject",
|
|
# "InstallationObject",
|
|
# "CreatureObject",
|
|
# "StaticObject",
|
|
# "ServerObject",
|
|
# "ResourcePoolObject",
|
|
# "BuildingObject",
|
|
# "WeaponObject",
|
|
# "PlanetObject")
|
|
# {
|
|
&makeDecodeFunction($classname,"shared");
|
|
&makeDecodeFunction($classname,"server");
|
|
&makeDecodeFunction($classname,"client");
|
|
}
|
|
&makeDecodeFunction("PlayerObject","parentClient");
|
|
|
|
|
|
&makeDecodeSwitcher("server");
|
|
&makeDecodeSwitcher("shared");
|
|
&makeDecodeSwitcher("client");
|
|
&makeDecodeSwitcher("parentClient");
|
|
|
|
while (!/!!!END GENERATED DECODER/)
|
|
{
|
|
#eat old generated code
|
|
die unless ($_=<INFILE>);
|
|
}
|
|
print OUTFILE $_;
|
|
}
|
|
}
|
|
|
|
close (INFILE);
|
|
close (OUTFILE);
|
|
|
|
if ($opt_windows == 1)
|
|
{
|
|
system ("copy ${filename}.make_encoder_temporary_file $filename");
|
|
system ("del ${filename}.make_encoder_temporary_file");
|
|
}
|
|
else
|
|
{
|
|
system ("cp ${filename}.make_encoder_temporary_file $filename");
|
|
system ("rm ${filename}.make_encoder_temporary_file");
|
|
}
|
|
}
|
|
|
|
# ----------------------------------------------------------------------
|
|
|
|
sub makeDecodeFunction
|
|
{
|
|
my ($classname,$package)=@_;
|
|
my ($member,$rowtype,$buffer,$index,$cName, $datatype, $addCommand, $persistFunction, $needCloseBracket, $loadFunction);
|
|
|
|
print OUTFILE "void SwgSnapshot::decode\u${package}${classname}(NetworkId const & objectId, uint16 index, Archive::ReadIterator &data, bool isBaseline)\n";
|
|
print OUTFILE "{\n";
|
|
print OUTFILE "\tUNREF(isBaseline);\n";
|
|
print OUTFILE "\n";
|
|
|
|
$index=&packageCount($parent{$classname},$package);
|
|
if ($index > 0)
|
|
{
|
|
$needCloseBracket=1;
|
|
|
|
print OUTFILE "\tif (index < ".$index.")\n";
|
|
print OUTFILE "\t{\n";
|
|
print OUTFILE "\t\tdecode\u${package}${parent{$classname}}(objectId,index,data, isBaseline);\n";
|
|
print OUTFILE "\t}\n";
|
|
print OUTFILE "\telse\n";
|
|
print OUTFILE "\t{\n";
|
|
}
|
|
|
|
if ($classname eq "ServerObject")
|
|
{
|
|
$rowtype="ObjectBufferRow";
|
|
$buffer="objectTableBuffer";
|
|
}
|
|
else
|
|
{
|
|
if (!($classname =~ /Object$/))
|
|
{
|
|
$rowtype=$classname."ObjectBufferRow";
|
|
$buffer=$classname."ObjectBuffer";
|
|
}
|
|
else
|
|
{
|
|
$rowtype=$classname."BufferRow";
|
|
$buffer=$classname."Buffer";
|
|
}
|
|
}
|
|
print OUTFILE "\t\tDBSchema::${rowtype} *row=m_\l${buffer}.findRowByIndex(objectId);\n";
|
|
print OUTFILE "\t\tif (row==NULL)\n";
|
|
print OUTFILE "\t\t\trow=m_\l${buffer}.addEmptyRow(objectId);\n";
|
|
print OUTFILE "\n";
|
|
print OUTFILE "\t\tswitch(index)\n";
|
|
print OUTFILE "\t\t{\n";
|
|
|
|
$index=&packageCount($parent{$classname},$package);
|
|
foreach $member (@{ $packageMembers{"$classname.$package"} })
|
|
{
|
|
($cName, $datatype, $addCommand, $persistFunction, $loadFunction)=@{ $member };
|
|
|
|
print OUTFILE "\t\tcase ".($index++).":\n";
|
|
print OUTFILE "\t\t{\n";
|
|
|
|
if ($loadFunction eq "")
|
|
{
|
|
if ($datatype =~ /packed_map<(\w+),([\w:]+)>/)
|
|
{
|
|
print OUTFILE "\t\t\tstd::string packedValue;\n";
|
|
print OUTFILE "\t\t\tArchive::AutoDeltaPackedMap<$1,$2>::unpack(data,packedValue);\n";
|
|
print OUTFILE "\t\t\trow->".&dbIze($cName)."=packedValue;\n";
|
|
}
|
|
else
|
|
{
|
|
print OUTFILE "\t\t\t${datatype} temp;\n";
|
|
print OUTFILE "\t\t\tArchive::get(data,temp);\n";
|
|
print OUTFILE "\t\t\trow->".&dbIze($cName)."=temp;\n";
|
|
#Hack to catch cell number bug
|
|
if (&dbIze($cName) eq "cell_number")
|
|
{
|
|
print OUTFILE "\t\t\tWARNING_STRICT_FATAL(temp==-1,(\"Received CellObject %s with cell number -1.\\n\",objectId.getValueString().c_str()));\n";
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
print OUTFILE "\t\t\t".$loadFunction."\n";
|
|
}
|
|
|
|
print OUTFILE "\t\t\tbreak;\n";
|
|
print OUTFILE "\t\t}\n";
|
|
}
|
|
|
|
print OUTFILE "\t\tdefault:\n";
|
|
print OUTFILE "\t\t\tDEBUG_REPORT_LOG(true,(\"Fell through cases in decode\u${package}${classname}. Index is %hu.\\n\",index));\n";
|
|
print OUTFILE "\t\t}\n";
|
|
print OUTFILE "\t}\n" if ($needCloseBracket==1);
|
|
print OUTFILE "}\n";
|
|
print OUTFILE "\n";
|
|
}
|
|
|
|
# ----------------------------------------------------------------------
|
|
|
|
sub makeDecodeSwitcher
|
|
{
|
|
my($package)=@_;
|
|
my($classname,$templatetag);
|
|
|
|
print OUTFILE "void SwgSnapshot::decode\u${package}Data(NetworkId const & objectId, Tag typeId, uint16 index, Archive::ReadIterator &bs, bool isBaseline)\n";
|
|
print OUTFILE "{\n";
|
|
print OUTFILE "\tswitch(typeId)\n";
|
|
print OUTFILE "\t{\n";
|
|
|
|
if ($package eq "parentClient")
|
|
{
|
|
$classname="PlayerObject";
|
|
$templatetag="Server${classname}Template::Server${classname}Template_tag";
|
|
print OUTFILE "\t\tcase ${templatetag}:\n";
|
|
print OUTFILE "\t\t\tdecode\u${package}${classname}(objectId, index, bs, isBaseline);\n";
|
|
print OUTFILE "\t\t\tbreak;\n";
|
|
}
|
|
else
|
|
{
|
|
foreach $classname (sort (keys (%parent)))
|
|
{
|
|
if ($classname eq "ServerObject")
|
|
{
|
|
$templatetag="ServerObjectTemplate::ServerObjectTemplate_tag";
|
|
}
|
|
elsif(!($classname =~ /Object$/))
|
|
{
|
|
$templatetag="Server${classname}ObjectTemplate::Server${classname}ObjectTemplate_tag";
|
|
}
|
|
else
|
|
{
|
|
$templatetag="Server${classname}Template::Server${classname}Template_tag";
|
|
}
|
|
|
|
print OUTFILE "\t\tcase ${templatetag}:\n";
|
|
print OUTFILE "\t\t\tdecode\u${package}${classname}(objectId, index, bs, isBaseline);\n";
|
|
print OUTFILE "\t\t\tbreak;\n";
|
|
}
|
|
}
|
|
|
|
print OUTFILE "\t}\n";
|
|
print OUTFILE "}\n";
|
|
print OUTFILE "\n";
|
|
}
|
|
|
|
# ----------------------------------------------------------------------
|
|
|
|
sub makeRegisterTags
|
|
{
|
|
my($classname,$parent,$templatetag,$buffer);
|
|
|
|
print OUTFILE "void SwgSnapshot::registerTags()\n";
|
|
print OUTFILE "{\n";
|
|
|
|
foreach $classname (sort (keys (%parent)))
|
|
{
|
|
if ($classname eq "ServerObject")
|
|
{
|
|
$templatetag="ServerObjectTemplate::ServerObjectTemplate_tag";
|
|
}
|
|
elsif(!($classname =~ /Object$/))
|
|
{
|
|
$templatetag="Server${classname}ObjectTemplate::Server${classname}ObjectTemplate_tag";
|
|
}
|
|
else
|
|
{
|
|
$templatetag="Server${classname}Template::Server${classname}Template_tag";
|
|
}
|
|
|
|
$parent=$classname;
|
|
while ($parent ne "" && $parent ne "ServerObject")
|
|
{
|
|
if (!($parent =~ /Object$/))
|
|
{
|
|
$buffer=$parent."ObjectBuffer";
|
|
}
|
|
else
|
|
{
|
|
$buffer=$parent."Buffer";
|
|
}
|
|
print OUTFILE "\tm_\l$buffer.addTag($templatetag);\n";
|
|
|
|
$parent = $parent{$parent};
|
|
}
|
|
}
|
|
|
|
print OUTFILE "}\n";
|
|
print OUTFILE "\n";
|
|
}
|
|
|
|
# ----------------------------------------------------------------------
|
|
|
|
sub editLoadObject
|
|
{
|
|
my($filename)=@_;
|
|
my($classname);
|
|
|
|
open (INFILE,"$filename");
|
|
open (OUTFILE,">${filename}.make_encoder_temporary_file");
|
|
|
|
while (<INFILE>)
|
|
{
|
|
print OUTFILE $_;
|
|
if (/!!!BEGIN GENERATED LOADOBJECT/)
|
|
{
|
|
foreach $classname (sort (keys (%parent)))
|
|
{
|
|
&makeLoadFunction($classname);
|
|
&makeNewObjectFunction($classname);
|
|
}
|
|
|
|
&makeLoadSwitcher();
|
|
&makeNewObjectSwitcher();
|
|
&makeRegisterTags();
|
|
|
|
while (!/!!!END GENERATED LOADOBJECT/)
|
|
{
|
|
#eat old generated code
|
|
die unless ($_=<INFILE>);
|
|
}
|
|
print OUTFILE $_;
|
|
}
|
|
}
|
|
|
|
close (INFILE);
|
|
close (OUTFILE);
|
|
|
|
if ($opt_windows == 1)
|
|
{
|
|
system ("copy ${filename}.make_encoder_temporary_file $filename");
|
|
system ("del ${filename}.make_encoder_temporary_file");
|
|
}
|
|
else
|
|
{
|
|
system ("cp ${filename}.make_encoder_temporary_file $filename");
|
|
system ("rm ${filename}.make_encoder_temporary_file");
|
|
}
|
|
}
|
|
|
|
# ----------------------------------------------------------------------
|
|
|
|
sub makeLoadFunction($classname)
|
|
{
|
|
my($classname)=@_;
|
|
my($buffer,$normClassname);
|
|
|
|
return if ($classname eq "ServerObject");
|
|
$normClassname=&normalizeClassname($classname);
|
|
|
|
$buffer = "m_\l${normClassname}Buffer";
|
|
|
|
print OUTFILE "void SwgSnapshot::load${normClassname}(DB::Session *session, NetworkId const & objectId)\n";
|
|
print OUTFILE "{\n";
|
|
print OUTFILE "\tUNREF(session);\n";
|
|
print OUTFILE "\t${buffer}.addEmptyRow(objectId);\n";
|
|
#TODO: this feels like a hack -- find a data-driven way:
|
|
if ($classname eq "CreatureObject")
|
|
{
|
|
print OUTFILE "\tloadAttributes(session,objectId);\n";
|
|
print OUTFILE "\tloadSkills(session,objectId);\n";
|
|
print OUTFILE "\tloadCommands(session,objectId);\n";
|
|
}
|
|
if ($parent{$classname} ne "" && $parent{$classname} ne "ServerObject")
|
|
{
|
|
print OUTFILE "\tload$parent{$classname}(session,objectId);\n";
|
|
}
|
|
print OUTFILE "}\n";
|
|
print OUTFILE "\n";
|
|
}
|
|
|
|
# ----------------------------------------------------------------------
|
|
|
|
sub makeNewObjectFunction($classname)
|
|
{
|
|
my($classname)=@_;
|
|
my($buffer,$normClassname);
|
|
|
|
return if ($classname eq "ServerObject");
|
|
$normClassname=&normalizeClassname($classname);
|
|
|
|
$buffer = "m_\l${normClassname}Buffer";
|
|
|
|
print OUTFILE "void SwgSnapshot::new${normClassname}(NetworkId const & objectId)\n";
|
|
print OUTFILE "{\n";
|
|
print OUTFILE "\t${buffer}.addEmptyRow(objectId);\n";
|
|
#TODO: attributes if creature, etc. -- are they really needed (will get created by the baselines automatically?)
|
|
if ($parent{$classname} ne "" && $parent{$classname} ne "ServerObject")
|
|
{
|
|
print OUTFILE "\tnew$parent{$classname}(objectId);\n";
|
|
}
|
|
print OUTFILE "}\n";
|
|
print OUTFILE "\n";
|
|
}
|
|
|
|
# ----------------------------------------------------------------------
|
|
|
|
sub makeLoadSwitcher()
|
|
{
|
|
my($classname,$templatename);
|
|
|
|
print OUTFILE "void SwgSnapshot::loadObject(DB::Session *session,const Tag &typeId, const NetworkId &objectId)\n";
|
|
print OUTFILE "{\n";
|
|
print OUTFILE "\tswitch(typeId)\n";
|
|
print OUTFILE "\t{\n";
|
|
|
|
foreach $classname (sort keys(%parent))
|
|
{
|
|
next if ($classname eq "ServerObject");
|
|
$classname=&normalizeClassname($classname);
|
|
$templatename="Server${classname}Template";
|
|
|
|
print OUTFILE "\t\tcase ${templatename}::${templatename}_tag:\n";
|
|
print OUTFILE "\t\t\tload${classname}(session,objectId);\n";
|
|
print OUTFILE "\t\t\tbreak;\n";
|
|
print OUTFILE "\n";
|
|
}
|
|
|
|
print OUTFILE "\t\tdefault:\n";
|
|
print OUTFILE "\t\t\tWARNING(true,(\"Attempt to load object %s from the database. It has unknown type %i.\",objectId.getValueString().c_str(),typeId));\n";
|
|
print OUTFILE "\t}\n";
|
|
print OUTFILE "}\n";
|
|
print OUTFILE "\n";
|
|
}
|
|
|
|
# ----------------------------------------------------------------------
|
|
|
|
sub makeNewObjectSwitcher()
|
|
{
|
|
my($classname,$templatename);
|
|
|
|
print OUTFILE "void SwgSnapshot::newObject(NetworkId const & objectId, int templateId, Tag typeId)\n";
|
|
print OUTFILE "{\n";
|
|
print OUTFILE "\tm_objectTableBuffer.newObject(objectId, templateId, typeId);\n";
|
|
print OUTFILE "\tswitch(typeId)\n";
|
|
print OUTFILE "\t{\n";
|
|
|
|
foreach $classname (sort keys(%parent))
|
|
{
|
|
next if ($classname eq "ServerObject");
|
|
$classname=&normalizeClassname($classname);
|
|
$templatename="Server${classname}Template";
|
|
|
|
print OUTFILE "\t\tcase Server${classname}Template::Server${classname}Template_tag:\n";
|
|
print OUTFILE "\t\t\tnew${classname}(objectId);\n";
|
|
print OUTFILE "\t\t\tbreak;\n";
|
|
print OUTFILE "\n";
|
|
}
|
|
|
|
print OUTFILE "\t\tdefault:\n";
|
|
print OUTFILE "\t\t\tWARNING(true,(\"Attempt to create object %s. It has unknown type %i.\",objectId.getValueString().c_str(),typeId));\n";
|
|
print OUTFILE "\t}\n";
|
|
print OUTFILE "}\n";
|
|
print OUTFILE "\n";
|
|
}
|
|
|
|
# ----------------------------------------------------------------------
|
|
|
|
sub normalizeClassname()
|
|
{
|
|
my ($classname)=@_;
|
|
if ($classname =~ /Object$/)
|
|
{
|
|
return $classname;
|
|
}
|
|
else
|
|
{
|
|
return $classname."Object";
|
|
}
|
|
}
|
|
|
|
|
|
# ======================================================================
|