module T = ProceduralTypes
module Cn = ProceduralConversion
module H = ProceduralHelpers
+module X = ProceduralTeX
type status = {
sorts : (C.id, A.sort_kind) Hashtbl.t;
case: int list
}
+let tex_formatter = ref None
+
let debug = ref false
(* helpers ******************************************************************)
context = [];
case = []
} in
- L.time_stamp "P : LEVEL 2 ";
- HLog.debug "Procedural: level 2 transformation";
+ L.time_stamp "P : LEVEL 1 ";
+ HLog.debug "Procedural: level 1 transformation";
let steps = proc_obj st ?flavour ?info anobj in
+ let _ = match !tex_formatter with
+ | None -> ()
+ | Some frm -> X.tex_of_steps frm st.sorts steps
+ in
L.time_stamp "P : RENDERING";
HLog.debug "Procedural: grafite rendering";
let r = List.rev (T.render_steps [] steps) in
context = context;
case = []
} in
- HLog.debug "Procedural: level 2 transformation";
+ HLog.debug "Procedural: level 1 transformation";
let steps = proc_proof st annterm in
+ let _ = match !tex_formatter with
+ | None -> ()
+ | Some frm -> X.tex_of_steps frm st.sorts steps
+ in
HLog.debug "Procedural: grafite rendering";
List.rev (T.render_steps [] steps)