diff options
Diffstat (limited to 'source/xi_lib/parser_utils.ml')
-rw-r--r-- | source/xi_lib/parser_utils.ml | 7 |
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 |