2021-12-07 21:51:25 +00:00
|
|
|
let hex_dump file =
|
|
|
|
|
Owee_buf.map_binary file
|
|
|
|
|
|> Solo5_elftool.foo
|
2021-12-09 15:17:11 +00:00
|
|
|
|> Result.iter (fun mft ->
|
|
|
|
|
Fmt.pr "%d elements\n" (List.length mft);
|
|
|
|
|
Fmt.pr "%a\n" Fmt.(append (any "[") (append (list ~sep:(any ",\n") Solo5_elftool.pp_mft_entry) (any "]")))
|
|
|
|
|
mft)
|
2021-12-07 21:51:25 +00:00
|
|
|
|
|
|
|
|
let file =
|
|
|
|
|
let doc = "Solo5 executable" in
|
|
|
|
|
Cmdliner.Arg.(required & pos 0 (some file) None &
|
|
|
|
|
info ~doc ~docv:"EXECUTABLE" [])
|
|
|
|
|
|
|
|
|
|
let hex_dump_cmd =
|
|
|
|
|
let doc = "hexdump solo5 manifest" in
|
|
|
|
|
Cmdliner.Term.(
|
|
|
|
|
pure hex_dump $ file,
|
|
|
|
|
info ~doc "query-manifest")
|
|
|
|
|
|
|
|
|
|
let () =
|
|
|
|
|
ignore (Cmdliner.Term.eval hex_dump_cmd)
|
