src/parser/Parser.ml


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)