codemap: added a -ocaml_mli_filter, useful when work on c-- source

commons/file_type.ml

@@ -286,3 +286,6 @@ let string_of_pl x =
   | Web _ -> raise Todo
 *)
 
+
+let is_syncweb_obj_file file = 
+  file =~ ".*md5sum_"

commons/file_type.mli

@@ -43,6 +43,8 @@ val file_type_of_file:
 
 val is_textual_file: 
   Common.filename -> bool
+val is_syncweb_obj_file:
+  Common.filename -> bool
 
 (* specialisations *)
 val webpl_type_of_file: 

h_program-visual/treemap_pl.ml

@@ -278,7 +278,19 @@ let ocaml_filter_file file =
   match File_type.file_type_of_file file with
   | PL (ML _)
   | PL (Makefile) 
-      -> true
+      -> 
+      (* todo: should be done in file_type_of_file *)
+      not (File_type.is_syncweb_obj_file file)
+  | _ -> false
+
+let ocaml_mli_filter_file file = 
+  match File_type.file_type_of_file file with
+  | PL (ML "mli")
+  | PL (Makefile) 
+      -> 
+      (* todo: should be done in file_type_of_file *)
+      not (File_type.is_syncweb_obj_file file) &&
+      not (file =~ ".*/commons/")
   | _ -> false
 
 

h_program-visual/treemap_pl.mli

@@ -12,6 +12,7 @@ val anamorphic_diviser_of_file:
 val no_filter_file: Common.filename -> bool
 val ex_filter_file: Common.filename -> bool
 val ocaml_filter_file: Common.filename -> bool
+val ocaml_mli_filter_file: Common.filename -> bool
 val pad_filter_file: Common.filename -> bool
 
 (* default treemap *)

main_codemap.ml

@@ -259,6 +259,9 @@ let options () = [
     "-ocaml_filter", Arg.Unit (fun () -> 
       filter := Treemap_pl.ocaml_filter_file),
     " ";
+    "-ocaml_mli_filter", Arg.Unit (fun () -> 
+      filter := Treemap_pl.ocaml_mli_filter_file),
+    " ";
 
     "-verbose" , Arg.Set Flag.verbose_visual,
     " ";