robur/builder-web
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

bin/Builder-viz: Printing html + Syntax

Browse source
This commit is contained in:
rand00 2022-01-24 13:32:08 +01:00 committed by Reynir Björnsson
parent 2874b54c40
commit f3178cace0
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
bin/visualizations/builder_viz.ml
View file

@ -46,7 +46,7 @@ let print_treemap_html elf_path elf_size =
info info
|> Treemap.of_tree |> Treemap.of_tree
|> Treemap.to_html_with_scale ~binary_size:elf_size ~scale_chunks |> Treemap.to_html_with_scale ~binary_size:elf_size ~scale_chunks
|> Fmt.to_to_string (Tyxml.Html.pp ()) |> Tyxml.Html.pp () Format.std_formatter
(* |> Treemap.svg (* |> Treemap.svg
* |> Fmt.to_to_string (Tyxml.Svg.pp ()) *) * |> Fmt.to_to_string (Tyxml.Svg.pp ()) *)
@ -106,5 +106,8 @@ module Cmd = struct
end end
let () = let () =
Cmdliner.Term.eval_choice Cmd.default [ Cmd.help; Cmd.treemap ] Cmdliner.Term.eval_choice Cmd.default [
Cmd.help;
Cmd.treemap
]
|> Cmdliner.Term.exit |> Cmdliner.Term.exit