Add poc files

find_source.ml

@@ -0,0 +1,140 @@
+open Common
+
+
+let finder lang = 
+  match lang with
+  | "c++" -> 
+    Lib_parsing_cpp.find_source_files_of_dir_or_files
+  | "c" -> 
+    Lib_parsing_c.find_source_files_of_dir_or_files
+  | "dot" -> (fun _ -> [])
+  | _ -> failwith ("Find_source: unsupported language: " ^ lang)
+
+let skip_file dir = 
+  Filename.concat dir "skip_list.txt"
+
+
+let files_of_dir_or_files ~lang xs =
+  let finder = finder lang in
+  let xs = List.map Common.fullpath xs in
+  finder xs |> Skip_code.filter_files_if_skip_list
+
+
+(* todo: factorize with filter_files_if_skip_list? *)
+let files_of_root ~lang root =
+  let finder = finder lang in
+  let files = finder [root] in
+
+  let skip_list =
+    if Sys.file_exists (skip_file root)
+    then begin 
+      pr2 (spf "Using skip file: %s" (skip_file root));
+      Skip_code.load (skip_file root);
+    end
+    else []
+  in
+  let files = Skip_code.filter_files skip_list root files in
+  files
+
+(*
+  let root = Common.realpath dir in
+  let all_files = Lib_parsing_clang.find_source2_files_of_dir_or_files [root] in
+
+  (* step0: filter noisy modules/files *)
+  let files = Skip_code.filter_files skip_list root all_files in
+  (* step0: reorder files *)
+  let files = Skip_code.reorder_files_skip_errors_last skip_list root files in
+
+  let root = Common.realpath dir_or_file in
+  let all_files = 
+    Lib_parsing_bytecode.find_source_files_of_dir_or_files [root] in
+
+  (* step0: filter noisy modules/files *)
+  let files = 
+    Skip_code.filter_files skip_list root all_files in
+
+  let root = Common.realpath dir in
+  let all_files = Lib_parsing_c.find_source_files_of_dir_or_files [root] in
+
+  (* step0: filter noisy modules/files *)
+  let files = Skip_code.filter_files skip_list root all_files in
+
+
+  let root = Common.realpath dir_or_file in
+  let all_files = Lib_parsing_java.find_source_files_of_dir_or_files [root] in
+
+  (* step0: filter noisy modules/files *)
+  let files = Skip_code.filter_files skip_list root all_files in
+
+  let root = Common.realpath dir in
+  let all_files = Lib_parsing_ml.find_source_files_of_dir_or_files [root] in
+
+  (* step0: filter noisy modules/files *)
+  let files = Skip_code.filter_files skip_list root all_files in
+  
+
+  let root = Common.realpath dir in
+  let all_files = Lib_parsing_cpp.find_source_files_of_dir_or_files [root] in
+
+  (* step0: filter noisy modules/files *)
+  let files = Skip_code.filter_files skip_list root all_files in
+
+  let root, files =
+    Common.profile_code "Graph_php.step0" (fun () ->
+    match dir_or_files with
+    | Left dir ->
+        let root = Common.realpath dir in
+        let files = 
+          Lib_parsing_php.find_php_files_of_dir_or_files [root]
+          +> Skip_code.filter_files skip_list root
+          +> Skip_code.reorder_files_skip_errors_last skip_list root
+        in
+        root, files
+    (* useful when build codegraph from test code *)
+    | Right files ->
+        "/", files
+    )
+  in
+
+
+
+  
+  let root, files =
+    match dir_or_files with
+    | Left dir ->
+      let root = Common.realpath dir in
+      let all_files = Lib_parsing_php.find_php_files_of_dir_or_files [root] in
+
+      (* step0: filter noisy modules/files *)
+      let files = 
+        Skip_code.filter_files skip_list root all_files in
+      (* step0: reorder files *)
+      let files = 
+        Skip_code.reorder_files_skip_errors_last skip_list root files in
+      root, files
+    (* useful when build from test code *)
+    | Right files ->
+      "/", files
+  in
+
+  let skip_file = !skip_list ||| skip_file_of_dir root in
+  let skip_list =
+    if Sys.file_exists skip_file
+    then begin 
+      pr2 (spf "Using skip file: %s" skip_file);
+      Skip_code.load skip_file
+    end
+    else []
+  in
+  let finder = Find_source.finder lang in
+
+    let skip_file = "skip_list.txt" in
+    let skip_list =
+      if Sys.file_exists skip_file
+      then begin 
+        pr2 (spf "Using skip file: %s" skip_file);
+        Skip_code.load skip_file
+      end
+      else []
+    in
+*)