parser.ml

   1
   2 module T_SQL_parser =
   3   struct
   4     type token = Sql_parser.token
   5     type result = RA.Scheme.t * Stmt.params * Stmt.kind
   6     let rule = Sql_lexer.parse_rule
   7     let input = Sql_parser.input
   8   end
   9
  10 module T = Parser_utils.Make (T_SQL_parser)
  11
  12 let parse_stmt stmt = T.parse_buf_exn (Lexing.from_string stmt)
  13