Commits

Anonymous committed 813431f

Affichage des CRC.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@102f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

Comments (0)

Files changed (1)

tools/dumpapprox.ml

   | Value_unknown ->
       print_string "_"
 
-let print_infos ui =
+let print_name_crc (name, crc) =
+  print_space(); print_string name;
+  print_string " ("; print_int crc; print_string ")"
+
+let print_infos (ui, crc) =
   print_string "Name: "; print_string ui.ui_name; print_newline();
+  print_string "CRC: "; print_int crc; print_newline();
   open_hovbox 2;
   print_string "Interfaces imported:";
-  List.iter
-    (fun (name, crc) -> print_space(); print_string name)
-    ui.ui_interfaces;
+  List.iter print_name_crc ui.ui_interfaces;
   close_box(); print_newline();
   open_hovbox 2;
   print_string "Implementations imported:";
-  List.iter
-    (fun (name, crc) -> print_space(); print_string name)
-    ui.ui_interfaces;
+  List.iter print_name_crc ui.ui_imports;
   close_box(); print_newline();
   open_hovbox 2;
   print_string "Approximation:"; print_space(); print_approx ui.ui_approx;
     let ui = (input_value ic : unit_infos) in
     let crc = input_binary_int ic in
     close_in ic;
-    ui
+    (ui, crc)
   with End_of_file | Failure _ ->
     close_in ic;
     prerr_endline "Error reading file";
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.