Initial commit

1 files changed, 7 insertions, 0 deletions

diff --git a/source/xi_lib/parser_utils.ml b/source/xi_lib/parser_utils.ml
new file mode 100644
index 0000000..0600d8b
--- /dev/null
+++ b/source/xi_lib/parser_utils.ml
@@ -0,0 +1,7 @@
+exception InvalidToken of Ast.location * string
+
+let mkLocation pos = 
+    let line   = pos.Lexing.pos_lnum in
+    let column = pos.Lexing.pos_cnum - pos.Lexing.pos_bol + 1 in
+    let file   = pos.Lexing.pos_fname in
+    Ast.Location {line; column; file}
\ No newline at end of file