ocaml-solo5-elftool/bin/main.ml

let query_manifest file =
  Owee_buf.map_binary file
  |> Solo5_elftool.query_manifest
  |> Result.iter (fun mft ->
      Fmt.pr "%a\n" Solo5_elftool.pp_mft mft)

let file =
  let doc = "Solo5 executable" in
  Cmdliner.Arg.(required & pos 0 (some file) None &
                info ~doc ~docv:"EXECUTABLE" [])

let query_manifest_cmd =
  let doc = "query solo5 manifest" in
  Cmdliner.Term.(
    pure query_manifest $ file,
    info ~doc "query-manifest")

let () =
  ignore (Cmdliner.Term.eval query_manifest_cmd)
Better naming 2021-12-10 11:06:52 +00:00			`let query_manifest file =`
Initial commit 2021-12-07 21:51:25 +00:00			`Owee_buf.map_binary file`
Better naming 2021-12-10 11:06:52 +00:00			`\|> Solo5_elftool.query_manifest`
Parse manifest Could use some improvements, but it can parse a manifest now. 2021-12-09 15:17:11 +00:00			`\|> Result.iter (fun mft ->`
Improve parsing and add type mft * mft_entry.b, mft_entry.u are runtime fields. We expect them to be zeroed. * add a type mft with version and mft_entries * add pretty printers a la solo5-elftool query-manifest 2021-12-10 10:19:06 +00:00			`Fmt.pr "%a\n" Solo5_elftool.pp_mft mft)`
Initial commit 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" [])`

Better naming 2021-12-10 11:06:52 +00:00			`let query_manifest_cmd =`
			`let doc = "query solo5 manifest" in`
Initial commit 2021-12-07 21:51:25 +00:00			`Cmdliner.Term.(`
Better naming 2021-12-10 11:06:52 +00:00			`pure query_manifest $ file,`
Initial commit 2021-12-07 21:51:25 +00:00			`info ~doc "query-manifest")`

			`let () =`
Better naming 2021-12-10 11:06:52 +00:00			`ignore (Cmdliner.Term.eval query_manifest_cmd)`