1 files changed, 20 insertions, 0 deletions

diff --git a/examples/typedlua/tlp.lua b/examples/typedlua/tlp.lua
new file mode 100644
index 0000000..2a4a736
--- /dev/null
+++ b/examples/typedlua/tlp.lua
@@ -0,0 +1,20 @@
+local tlparser = require "tlparser"
+
+local function getcontents(filename)
+  file = assert(io.open(filename, "r"))
+  contents = file:read("*a")
+  file:close()
+  return contents
+end
+
+if #arg ~= 1 then
+  print ("Usage: lua tlp.lua <file>")
+  os.exit(1)
+end
+
+local filename = arg[1]
+local subject = getcontents(filename)
+local r, msg = tlparser.parse(subject, filename, false, true)
+if not r then print(msg) end
+
+os.exit(0)