Partial perl parser rewrite, want to make it cleaner and have it match the interface

This commit is contained in:
KimLS
2013-05-08 20:18:39 -07:00
parent ac1d931b5e
commit bcf9546b2d
14 changed files with 5712 additions and 5598 deletions
+4 -10
View File
@@ -74,7 +74,6 @@ extern volatile bool ZoneLoaded;
#include "../common/spdat.h"
#include "zone.h"
#include "command.h"
#include "parser.h"
#include "embparser.h"
#include "perlparser.h"
#include "lua_parser.h"
@@ -286,8 +285,9 @@ int main(int argc, char** argv) {
parse = new QuestParserCollection();
#ifdef EMBPERL
PerlXSParser *pxs = new PerlXSParser();
parse->RegisterQuestInterface(pxs, "pl");
//PerlXSParser *pxs = new PerlXSParser();
PerlembParser *perl_parser = new PerlembParser();
parse->RegisterQuestInterface(perl_parser, "pl");
#endif
#ifdef LUA_EQEMU
@@ -295,10 +295,6 @@ int main(int argc, char** argv) {
parse->RegisterQuestInterface(lua_parser, "lua");
#endif
Parser *ps = new Parser();
//parse->RegisterQuestInterface(ps, "qst");
//now we have our parser, load the quests
_log(ZONE__INIT, "Loading quests");
parse->ReloadQuests();
@@ -481,16 +477,14 @@ int main(int argc, char** argv) {
entity_list.Clear();
safe_delete(parse);
#ifdef EMBPERL
safe_delete(pxs);
safe_delete(perl_parser);
#endif
#ifdef LUA_EQEMU
safe_delete(lua_parser);
#endif
safe_delete(ps);
safe_delete(mmf);
if (zone != 0)