62 lines
2.4 KiB
OCaml
62 lines
2.4 KiB
OCaml
(** HTML Renderer
|
|
|
|
Renders the output of computations on a given program as an HTML webpage.
|
|
*)
|
|
|
|
(** Box `AnnotAsm.asm_info_t` as a Jingoo tvalue *)
|
|
let render_prog_box annotated_prog = Jingoo.Jg_types.(Renderer.AnnotAsm.(
|
|
let render_addr addr = (Format.sprintf "%04x" addr) in
|
|
List.map (fun render_sub ->
|
|
[
|
|
("sub_section", box_string render_sub.sub_section);
|
|
("sub_name", box_string render_sub.sub_name);
|
|
("sub_addr", box_string (Format.sprintf "%016x" render_sub.sub_addr));
|
|
("sub_asm", List.map (fun row -> [
|
|
("instr_addr", box_string (render_addr row.instr_addr));
|
|
("instr_bytes", box_string (
|
|
Format.asprintf "%a" Asm_acquire.pp_hex_bytes row.instr_bytes
|
|
));
|
|
("instr_asm", box_string row.instr_asm);
|
|
("instr_events", (List.map (fun event ->
|
|
let typ, id, bound, data = Renderer.(match event with
|
|
| BoxStart(id, bound, data) -> "start", id, bound, data
|
|
| BoxEnd(id, bound, data) -> "end", id, bound, data
|
|
) in
|
|
[
|
|
("typ", box_string typ);
|
|
("id", box_int id);
|
|
("bound", box_string @@ render_addr bound);
|
|
("data", box_string @@ Format.sprintf "File %d, %d:%d"
|
|
data.box_file data.box_line data.box_col);
|
|
|
|
] |> box_obj)
|
|
row.instr_annot.Renderer.events)
|
|
|> box_list);
|
|
] |> box_obj) render_sub.sub_asm
|
|
|> box_list;
|
|
)] |> box_obj
|
|
) annotated_prog
|
|
|> box_list
|
|
))
|
|
|
|
let render_progs_box annotated_progs = Jingoo.Jg_types.(
|
|
List.map (fun (prog_path, annotated_prog) ->
|
|
[
|
|
("path", box_string prog_path);
|
|
("prog", render_prog_box annotated_prog)
|
|
] |> box_obj)
|
|
annotated_progs
|
|
|> box_list
|
|
)
|
|
|
|
(** [render multi_render_data] renders the given [render_data] to a string. *)
|
|
let render multi_render_data = Jingoo.(
|
|
let annotated_progs = List.map (fun render_data ->
|
|
render_data.Renderer.render_prog_path,
|
|
Renderer.render_data_to_annotated_asm render_data) multi_render_data in
|
|
let models = [
|
|
("progs", render_progs_box annotated_progs);
|
|
] in
|
|
Jg_template.from_file "src/render_html.jingoo" ~models:models
|
|
)
|