add calls to logger

main_scheck.ml

@@ -194,6 +194,7 @@ let pr2_dbg s =
 (*****************************************************************************)
 
 let main_action xs =
+  Common.logger Config.logger "scheck";
 
   let files = Lib_parsing_php.find_php_files_of_dir_or_files xs in
   let errors = ref [] in

main_scheck_heavy.ml

@@ -59,6 +59,7 @@ let pr2_dbg s =
 
 (* mostly a copy paste of main_scheck.ml but now use metapath *)
 let main_action xs =
+  Common.logger Config.logger "scheck_heavy";
 
   let files = Lib_parsing_php.find_php_files_of_dir_or_files xs in
   let errors = ref [] in

main_sgrep.ml

@@ -118,6 +118,7 @@ let gen_layer ~root ~query file =
 (* Main action *)
 (*****************************************************************************)
 let main_action xs =
+  Common.logger Config.logger "sgrep";
 
   let pattern, query_string = 
     match !pattern_file, !pattern_string with

main_spatch.ml

@@ -143,6 +143,7 @@ let apply_transfo transfo xs =
 (*****************************************************************************)
 
 let main_action xs =
+  Common.logger Config.logger "spatch";
 
   let spatch_file = 
     match !spatch_file, !sed_string with

main_stags.ml

@@ -88,6 +88,7 @@ let rec defs_of_files_or_dirs lang xs =
 (*****************************************************************************)
 
 let main_action xs =
+  Common.logger Config.logger "stags";
 
   (* This can augment the size of the tags file
      let xs = List.map relative_to_absolute xs in