113 lines
3.6 KiB
OCaml
113 lines
3.6 KiB
OCaml
(***********************************************************************)
|
|
(* *)
|
|
(* Objective Caml *)
|
|
(* *)
|
|
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
|
|
(* *)
|
|
(* Copyright 1996 Institut National de Recherche en Informatique et *)
|
|
(* Automatique. Distributed only by permission. *)
|
|
(* *)
|
|
(***********************************************************************)
|
|
|
|
(* $Id$ *)
|
|
|
|
(* Dump a .cmx file *)
|
|
|
|
open Config
|
|
open Format
|
|
open Clambda
|
|
open Compilenv
|
|
|
|
let print_digest d =
|
|
for i = 0 to String.length d - 1 do
|
|
print_string(Printf.sprintf "%02x" (Char.code d.[i]))
|
|
done
|
|
|
|
let rec print_approx = function
|
|
Value_closure(fundesc, approx) ->
|
|
open_hovbox 2;
|
|
print_string "function "; print_string fundesc.fun_label;
|
|
print_space(); print_string "arity "; print_int fundesc.fun_arity;
|
|
if fundesc.fun_closed then begin
|
|
print_space(); print_string "(closed)"
|
|
end;
|
|
print_space(); print_string "->"; print_space();
|
|
print_approx approx;
|
|
close_box()
|
|
| Value_tuple approx ->
|
|
open_hvbox 1;
|
|
print_string "[";
|
|
for i = 0 to Array.length approx - 1 do
|
|
if i > 0 then (print_string ";"; print_space());
|
|
print_int i; print_string ": "; print_approx approx.(i)
|
|
done;
|
|
print_string "]";
|
|
close_box()
|
|
| Value_unknown ->
|
|
print_string "_"
|
|
|
|
let print_name_crc (name, crc) =
|
|
print_space(); print_string name;
|
|
print_string " ("; print_digest crc; print_string ")"
|
|
|
|
let print_infos (ui, crc) =
|
|
print_string "Name: "; print_string ui.ui_name; print_newline();
|
|
print_string "CRC of implementation: "; print_digest crc; print_newline();
|
|
print_string "CRC of interface: "; print_digest ui.ui_interface; print_newline();
|
|
open_hovbox 2;
|
|
print_string "Interfaces imported:";
|
|
List.iter print_name_crc ui.ui_imports_cmi;
|
|
close_box(); print_newline();
|
|
open_hovbox 2;
|
|
print_string "Implementations imported:";
|
|
List.iter print_name_crc ui.ui_imports_cmx;
|
|
close_box(); print_newline();
|
|
open_hovbox 2;
|
|
print_string "Approximation:"; print_space(); print_approx ui.ui_approx;
|
|
close_box(); print_newline();
|
|
open_hovbox 2;
|
|
print_string "Currying functions:";
|
|
List.iter
|
|
(fun arity -> print_space(); print_int arity)
|
|
ui.ui_curry_fun;
|
|
close_box(); print_newline();
|
|
open_hovbox 2;
|
|
print_string "Apply functions:";
|
|
List.iter
|
|
(fun arity -> print_space(); print_int arity)
|
|
ui.ui_apply_fun;
|
|
close_box(); print_newline()
|
|
|
|
let print_unit_info filename =
|
|
let ic = open_in_bin filename in
|
|
try
|
|
let buffer = String.create (String.length cmx_magic_number) in
|
|
really_input ic buffer 0 (String.length cmx_magic_number);
|
|
if buffer = cmx_magic_number then begin
|
|
let ui = (input_value ic : unit_infos) in
|
|
let crc = Digest.input ic in
|
|
close_in ic;
|
|
print_infos (ui, crc)
|
|
end else if buffer = cmxa_magic_number then begin
|
|
let info_crc_list = (input_value ic : (unit_infos * Digest.t) list) in
|
|
close_in ic;
|
|
List.iter print_infos info_crc_list
|
|
end else begin
|
|
close_in ic;
|
|
prerr_endline "Wrong magic number";
|
|
exit 2
|
|
end
|
|
with End_of_file | Failure _ ->
|
|
close_in ic;
|
|
prerr_endline "Error reading file";
|
|
exit 2
|
|
|
|
let main () =
|
|
print_unit_info Sys.argv.(1);
|
|
exit 0
|
|
|
|
let _ = main ()
|
|
|
|
|
|
|