Source file `parser.ml`

1
2
3
4
5
6
7
8
9
10
11
12

module T_SQL_parser =
  struct
    type token = Sql_parser.token
    type result = Sql.stmt
    let rule = Sql_lexer.parse_rule
    let input = Sql_parser.input
  end

module T = Parser_utils.Make (T_SQL_parser)

let parse_stmt stmt = T.parse_buf_exn (Lexing.from_string stmt)