in
exp_count f st
-let proc_item f st item = match item with
- | A.Section section -> proc_section f st section item
- | A.Context _ -> proc_context f st item
- | A.Block _ -> proc_block f st item
- | A.Decl _ -> proc_global f st item
- | A.Def _ -> proc_global f st item
+let proc_command f st command = match command with
+ | A.Section section -> proc_section f st section command
+ | A.Context _ -> proc_context f st command
+ | A.Block _ -> proc_block f st command
+ | A.Decl _ -> proc_global f st command
+ | A.Def _ -> proc_global f st command
(* interface functions ******************************************************)
-let initial_status = {
+let initial_status () = {
opening = false; reopening = false; closing = false;
explicit = false; block = false;
iao = 0; iar = 0; iac = 0; iag = 0
}
-let process_item = proc_item
+let process_command = proc_command
let get_counters f st = f st.iao st.iar st.iac st.iag