mirror of
https://github.com/dpethes/rerogue.git
synced 2025-06-07 18:58:32 +02:00
26 lines
376 B
ObjectPascal
26 lines
376 B
ObjectPascal
program parse_hmt;
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
hmt_parser;
|
|
|
|
var
|
|
fname: string;
|
|
|
|
begin
|
|
if ParamCount < 1 then begin
|
|
writeln ('no input file specified');
|
|
exit;
|
|
end;
|
|
|
|
fname := ParamStr(1);
|
|
writeln('parsing file: ', fname);
|
|
try
|
|
ParseHmtFile(fname);
|
|
except
|
|
writeln('parsing failed!');
|
|
end;
|
|
writeln('done.');
|
|
end.
|
|
|