diff --git a/src/tools/mapgen.dpr b/src/tools/mapgen.dpr
index 1a4850593b81dcf21d215761a613be7e971bc713..bd16bf5f89492779e9f641863dbe250d6185fd4b 100644 (file)
--- a/src/tools/mapgen.dpr
+++ b/src/tools/mapgen.dpr
uses
SysUtils, Classes,
+ mempool in '../shared/mempool.pas',
xstreams in '../shared/xstreams.pas',
xparser in '../shared/xparser.pas',
xdynrec in '../shared/xdynrec.pas',
writeln('FATAL: mapdef not found!');
end;
+ writeln('parsing "mapdef.txt"...');
pr := TFileTextParser.Create(st, false); // don't own
try
dfmapdef := TDynMapDef.Create(pr);
- except on e: Exception do
- begin
- writeln('ERROR at (', pr.tokLine, ',', pr.tokCol, '): ', e.message);
- Halt(1);
- end;
+ except
+ on e: TDynParseException do
+ begin
+ writeln('ERROR at (', e.tokLine, ',', e.tokCol, '): ', e.message);
+ Halt(1);
+ end;
+ on e: Exception do
+ begin
+ writeln('ERROR: ', e.message);
+ Halt(1);
+ end;
end;
pr.Free();