repo.or.cz
/
sqlgg.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
sql: support VALUES function
[sqlgg.git]
/
lib
/
parser.ml
blob
b0c15a644d07fffdd18cb513bf0b12aa79235a61
1
2
module
T_SQL_parser
=
3
struct
4
type
token
=
Sql_parser
.
token
5
type
result
=
Sql
.
stmt
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
)