1 files changed, 47 insertions, 0 deletions

diff --git a/examples/typedlua/tlerror.lua b/examples/typedlua/tlerror.lua
new file mode 100644
index 0000000..fe3a72e
--- /dev/null
+++ b/examples/typedlua/tlerror.lua
@@ -0,0 +1,47 @@
+
+local errors = {}
+local function new_error (label, msg)
+  table.insert(errors, { label = label, msg = msg })
+end
+
+new_error("Number", "malformed <number>")
+new_error("String", "malformed <string>")
+new_error("LongString", "unfinished long string")
+new_error("LongComment", "unfinished long comment")
+new_error("MissingCP", "missing ')'")
+new_error("MissingCC", "missing '}'")
+new_error("MissingCB", "missing ']'")
+new_error("UnionType", "expecting <type> after '|'")
+new_error("FunctionType", "expecting <type> after '->'")
+new_error("MethodType", "expecting <type> after '=>'")
+new_error("TupleType", "expecting <type> after ','")
+new_error("Type", "expecting <type> after ':'")
+new_error("TypeDecEnd", "missing 'end' in type declaration")
+new_error("TypeAliasName", "expecting <name> after 'typealias'")
+new_error("MissingEqTypeAlias", "missing '=' in 'typealias'")
+new_error("DotIndex", "expecting <name> after '.'")
+new_error("MethodName", "expecting <name> after ':'")
+new_error("Then", "missing 'then'")
+new_error("IfEnd", "missing 'end' to close if statement")
+new_error("WhileDo", "missing 'do' in while statement")
+new_error("WhileEnd", "missing 'end' to close while statement")
+new_error("BlockEnd", "missing 'end' to close block")
+new_error("ForDo", "missing 'do' in for statement")
+new_error("ForEnd", "missing 'end' to close for statement")
+new_error("Until", "missing 'until' in repeat statement")
+new_error("FuncEnd", "missing 'end' to close function declaration")
+new_error("ParList", "expecting '...'")
+new_error("MethodCall", "expecting '(' for method call")
+new_error("Label1", "expecting <name> after '::'")
+new_error("Label2", "expecting '::' to close label declaration")
+new_error("LocalAssign", "expecting expression list after '='")
+
+local labels = {}
+for k, v in ipairs(errors) do
+  labels[v.label] = k
+end
+
+return {
+  errors = errors,
+  labels = labels,
+}