blob: c1affdbae82effa44d36c4cc7278b48d2b541ad4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
(* camlp4r *)
type spc =
[ SPCterm of (MLast.patt * option MLast.expr)
| SPCnterm of MLast.patt and MLast.expr
| SPCsterm of MLast.patt ]
;
value parser_of_expr :
MLast.expr ->
list (list (spc * option MLast.expr) * option MLast.patt * MLast.expr);
|