blob: 88448c9795f13d02bd6ab6a94737fd048398a5f5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
let parse_expr (s : string) : Ast.expr =
let lexbuf = Lexing.from_string s in
let string_source : Asai.Range.string_source = {
title = None;
content = s;
} in
let source = `String string_source in
Eff.run ~env:source @@ fun () ->
try Grammar.start_expr Lexer.token lexbuf with
| Lexer.IllegalCharacter illegal_char ->
Error.illegal_character ~loc:(Asai.Range.of_lexbuf ~source lexbuf) illegal_char
| Grammar.Error ->
Error.syntax_error ~loc:(Asai.Range.of_lexbuf ~source lexbuf)
|