From d3ad53a7a325fb8ba9758ff61b433527f3680317 Mon Sep 17 00:00:00 2001
From: dpethes <dejvu@email.cz>
Date: Wed, 15 Oct 2014 23:43:57 +0200
Subject: [PATCH] hmt parser: add main program

---
 hmt_parser/main.pas | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 hmt_parser/main.pas

diff --git a/hmt_parser/main.pas b/hmt_parser/main.pas
new file mode 100644
index 0000000..faf2979
--- /dev/null
+++ b/hmt_parser/main.pas
@@ -0,0 +1,25 @@
+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.
+