147 lines
4.6 KiB
Perl
Executable file
147 lines
4.6 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
$initializeHash = '';
|
|
$itemId = 1000;
|
|
|
|
$headerfileBuffer = '';
|
|
|
|
open(idfile, ">protocol_item_ids.h");
|
|
|
|
open(headerfile, ">protocol_items.h");
|
|
print headerfile "#ifndef PROTOCOL_ITEMS_H\n"
|
|
. "#define PROTOCOL_ITEMS_H\n\n"
|
|
. "#include \"protocol.h\"\n\n";
|
|
|
|
open(cppfile, ">protocol_items.cpp");
|
|
print cppfile "#include \"protocol.h\"\n"
|
|
. "#include \"protocol_items.h\"\n\n";
|
|
|
|
open(file, "protocol_items.dat");
|
|
while (<file>) {
|
|
s/\s+$//;
|
|
@line = split(/:/);
|
|
$type = shift(@line);
|
|
$name1 = shift(@line);
|
|
($name2 = $name1) =~ s/_(.)/\U$1\E/g;
|
|
$name2 =~ s/^(.)/\U$1\E/;
|
|
if ($type == 0) {
|
|
$type = 'cmd';
|
|
$namePrefix = 'Command';
|
|
$baseClass = 'Command';
|
|
$parentConstructorCall = "$baseClass(\"$name1\")";
|
|
$constructorParamsH = "";
|
|
$constructorParamsCpp = "";
|
|
} elsif ($type == 1) {
|
|
$type = 'cmd';
|
|
$namePrefix = 'Command';
|
|
$baseClass = 'ChatCommand';
|
|
$parentConstructorCall = "$baseClass(\"$name1\", _channel)";
|
|
$constructorParamsH = "const QString &_channel = QString()";
|
|
$constructorParamsCpp = "const QString &_channel";
|
|
} elsif ($type == 2) {
|
|
$type = 'cmd';
|
|
$namePrefix = 'Command';
|
|
$baseClass = 'GameCommand';
|
|
$parentConstructorCall = "$baseClass(\"$name1\", _gameId)";
|
|
$constructorParamsH = "int _gameId = -1";
|
|
$constructorParamsCpp = "int _gameId";
|
|
} elsif ($type == 3) {
|
|
$type = 'game_event';
|
|
$namePrefix = 'Event';
|
|
$baseClass = 'GameEvent';
|
|
$parentConstructorCall = "$baseClass(\"$name1\", _gameId, _playerId)";
|
|
$constructorParamsH = "int _gameId = -1, int _playerId = -1";
|
|
$constructorParamsCpp = "int _gameId, int _playerId";
|
|
} elsif ($type == 4) {
|
|
$type = 'generic_event';
|
|
$namePrefix = 'Event';
|
|
$baseClass = 'GenericEvent';
|
|
$parentConstructorCall = "$baseClass(\"$name1\")";
|
|
$constructorParamsH = "";
|
|
$constructorParamsCpp = "";
|
|
} elsif ($type == 5) {
|
|
$type = 'chat_event';
|
|
$namePrefix = 'Event';
|
|
$baseClass = 'ChatEvent';
|
|
$parentConstructorCall = "$baseClass(\"$name1\", _channel)";
|
|
$constructorParamsH = "const QString &_channel = QString()";
|
|
$constructorParamsCpp = "const QString &_channel";
|
|
}
|
|
$className = $namePrefix . '_' . $name2;
|
|
$itemEnum .= "ItemId_$className = " . ++$itemId . ",\n";
|
|
$headerfileBuffer .= "class $className : public $baseClass {\n"
|
|
. "\tQ_OBJECT\n"
|
|
. "private:\n";
|
|
$paramStr2 = '';
|
|
$paramStr3 = '';
|
|
$paramStr4 = '';
|
|
$paramStr5 = '';
|
|
while ($param = shift(@line)) {
|
|
($key, $value) = split(/,/, $param);
|
|
($prettyVarName = $value) =~ s/_(.)/\U$1\E/g;
|
|
if (!($constructorParamsH eq '')) {
|
|
$constructorParamsH .= ', ';
|
|
}
|
|
if (!($constructorParamsCpp eq '')) {
|
|
$constructorParamsCpp .= ', ';
|
|
}
|
|
$paramStr2 .= ", $prettyVarName(_$prettyVarName)";
|
|
$paramStr3 .= "\tsetParameter(\"$value\", $prettyVarName);\n";
|
|
if ($key eq 'b') {
|
|
$dataType = 'bool';
|
|
$constructorParamsH .= "bool _$prettyVarName = false";
|
|
$constructorParamsCpp .= "bool _$prettyVarName";
|
|
$paramStr5 .= "\t$prettyVarName = (parameters[\"$value\"] == \"1\");\n";
|
|
} elsif ($key eq 's') {
|
|
$dataType = 'QString';
|
|
$constructorParamsH .= "const QString &_$prettyVarName = QString()";
|
|
$constructorParamsCpp .= "const QString &_$prettyVarName";
|
|
$paramStr5 .= "\t$prettyVarName = parameters[\"$value\"];\n";
|
|
} elsif ($key eq 'i') {
|
|
$dataType = 'int';
|
|
$constructorParamsH .= "int _$prettyVarName = -1";
|
|
$constructorParamsCpp .= "int _$prettyVarName";
|
|
$paramStr5 .= "\t$prettyVarName = parameters[\"$value\"].toInt();\n";
|
|
}
|
|
($prettyVarName2 = $prettyVarName) =~ s/^(.)/\U$1\E/;
|
|
$paramStr4 .= "\t$dataType get$prettyVarName2() const { return $prettyVarName; }\n";
|
|
$headerfileBuffer .= "\t$dataType $prettyVarName;\n";
|
|
}
|
|
$headerfileBuffer .= "public:\n"
|
|
. "\t$className($constructorParamsH);\n"
|
|
. $paramStr4
|
|
. "\tstatic ProtocolItem *newItem() { return new $className; }\n"
|
|
. "\tint getItemId() const { return ItemId_$className; }\n"
|
|
. ($paramStr5 eq '' ? '' : "protected:\n\tvoid extractParameters();\n")
|
|
. "};\n";
|
|
print cppfile $className . "::$className($constructorParamsCpp)\n"
|
|
. "\t: $parentConstructorCall$paramStr2\n"
|
|
. "{\n"
|
|
. $paramStr3
|
|
. "}\n";
|
|
if (!($paramStr5 eq '')) {
|
|
print cppfile "void $className" . "::extractParameters()\n"
|
|
. "{\n"
|
|
. "\t$baseClass" . "::extractParameters();\n"
|
|
. $paramStr5
|
|
. "}\n";
|
|
}
|
|
$initializeHash .= "\titemNameHash.insert(\"$type$name1\", $className" . "::newItem);\n";
|
|
}
|
|
close(file);
|
|
|
|
print idfile "enum AutoItemId {\n"
|
|
. $itemEnum
|
|
. "ItemId_Other = " . ++$itemId . "\n"
|
|
. "};\n";
|
|
close(idfile);
|
|
|
|
print headerfile $headerfileBuffer
|
|
. "\n#endif\n";
|
|
close(headerfile);
|
|
|
|
print cppfile "void ProtocolItem::initializeHashAuto()\n"
|
|
. "{\n"
|
|
. $initializeHash
|
|
. "}\n";
|
|
close(cppfile);
|