Source file `ppx_ocannl.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
open Base
open Ppxlib

let rules =
  [
    Ppxlib.Context_free.Rule.extension
    @@ Extension.declare "cd" Extension.Context.expression Ast_pattern.(single_expr_payload __)
    @@ Ppx_cd.expr_expander;
    Ppxlib.Context_free.Rule.extension
    @@ Extension.declare "cd" Extension.Context.structure_item
         Ast_pattern.(pstr __)
         Ppx_cd.str_expander;
    Ppxlib.Context_free.Rule.extension
    @@ Extension.declare "op" Extension.Context.expression
         Ast_pattern.(single_expr_payload __)
         Ppx_op.expr_expander;
    Ppxlib.Context_free.Rule.extension
    @@ Extension.declare "op" Extension.Context.structure_item
         Ast_pattern.(pstr __)
         Ppx_op.str_expander;
  ]

let () = Driver.register_transformation ~rules "ppx_ocannl"