-
-
Notifications
You must be signed in to change notification settings - Fork 115
/
parsetree_iter.rei
48 lines (45 loc) 路 1.98 KB
/
parsetree_iter.rei
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
open Parsetree;
type hooks = {
enter_location: Location.t => unit,
leave_location: Location.t => unit,
enter_attribute: (attribute, attribute_context) => unit,
leave_attribute: (attribute, attribute_context) => unit,
enter_parsed_program: parsed_program => unit,
leave_parsed_program: parsed_program => unit,
enter_include: include_declaration => unit,
leave_include: include_declaration => unit,
enter_provide: list(provide_item) => unit,
leave_provide: list(provide_item) => unit,
enter_foreign: (provide_flag, value_description) => unit,
leave_foreign: (provide_flag, value_description) => unit,
enter_primitive: (provide_flag, primitive_description) => unit,
leave_primitive: (provide_flag, primitive_description) => unit,
enter_top_let:
(provide_flag, rec_flag, mut_flag, list(value_binding)) => unit,
leave_top_let:
(provide_flag, rec_flag, mut_flag, list(value_binding)) => unit,
enter_module: (provide_flag, module_declaration) => unit,
leave_module: (provide_flag, module_declaration) => unit,
enter_pattern: pattern => unit,
leave_pattern: pattern => unit,
enter_expression: expression => unit,
leave_expression: expression => unit,
enter_type: parsed_type => unit,
leave_type: parsed_type => unit,
enter_toplevel_stmt: toplevel_stmt => unit,
leave_toplevel_stmt: toplevel_stmt => unit,
enter_constant: constant => unit,
leave_constant: constant => unit,
enter_let: (rec_flag, mut_flag, list(value_binding)) => unit,
leave_let: (rec_flag, mut_flag, list(value_binding)) => unit,
enter_value_binding: value_binding => unit,
leave_value_binding: value_binding => unit,
enter_data_declarations:
list((provide_flag, data_declaration, Location.t)) => unit,
leave_data_declarations:
list((provide_flag, data_declaration, Location.t)) => unit,
enter_data_declaration: data_declaration => unit,
leave_data_declaration: data_declaration => unit,
};
let iter_parsed_program: (hooks, parsed_program) => unit;
let default_hooks: hooks;