Commit | Line | Data |
---|---|---|
485bce71 | 1 | open Common |
34e49164 C |
2 | |
3 | (*****************************************************************************) | |
4 | (* Flags *) | |
5 | (*****************************************************************************) | |
6 | ||
ae4735db C |
7 | let generate_dependencies dir = |
8 | let c_info = | |
34e49164 | 9 | Common.glob (Filename.concat dir "*.[c]") |
ae4735db | 10 | +> List.map (fun file -> |
34e49164 C |
11 | let (x,_) = Parse_c.parse_cache file in |
12 | let defined = C_info.defined_stuff x in | |
13 | let used = C_info.used_stuff x in | |
14 | let extra = C_info.extra_stuff x in | |
15 | C_info.adjust_used_only_external used defined; | |
16 | file, { C_info.used = used; defined = defined; is_module = extra} | |
17 | ) in | |
18 | let global = C_info.mk_global_definitions_index c_info in | |
ae4735db | 19 | c_info +> List.iter (fun (file, used_defined) -> |
34e49164 C |
20 | pr2 ("HANDLING : " ^ file); |
21 | C_info.print_entities used_defined.C_info.used; | |
22 | ); | |
23 | C_info.check_no_duplicate_global_definitions global; | |
ae4735db | 24 | let g = C_info.build_graph c_info global |
34e49164 C |
25 | (Filename.concat dir "depgraph.dot") in |
26 | C_info.generate_makefile g (Filename.concat dir "depcocci.dep") | |
27 | ||
28 | ||
29 | ||
30 | ||
31 | (* | |
ae4735db | 32 | let path = |
34e49164 C |
33 | match xs with |
34 | | [] -> "/home/pad/kernels/git/linux-2.6/drivers/net" | |
35 | | [x] -> x | |
36 | | _ -> failwith "too much path" | |
37 | in | |
38 | ||
ae4735db C |
39 | let dirs = |
40 | if dir | |
34e49164 C |
41 | then Common.cmd_to_list ("find " ^ path ^ " -type d") +> Kbuild.adjust_dirs |
42 | else [path] | |
43 | in | |
ae4735db | 44 | dirs +> List.iter (fun dir -> |
34e49164 | 45 | *) |
ae4735db | 46 | |
34e49164 C |
47 | |
48 | (* | |
ae4735db | 49 | let test_yyy () = |
34e49164 C |
50 | Sys.chdir "/home/pad/kernels/git/linux-2.6"; |
51 | let path="drivers/net" in | |
52 | ||
ae4735db | 53 | let c_info = |
34e49164 | 54 | Common.cmd_to_list ("find " ^ path ^ " -name \"*.c\" ") |
ae4735db | 55 | +> List.map (fun file -> |
34e49164 C |
56 | let x = cprogram_of_file_cached file in |
57 | let defined = defined_stuff x in | |
58 | let used = used_stuff x in | |
59 | let extra = extra_stuff x in | |
60 | adjust_used_only_external used defined; | |
61 | file, { used = used; defined = defined; is_module = extra} | |
62 | ) in | |
63 | let global = mk_global_definitions_index c_info in | |
ae4735db | 64 | c_info +> List.iter (fun (file, used_defined) -> |
34e49164 C |
65 | pr2 ("HANDLING : " ^ file); |
66 | print_entities used_defined.used; | |
67 | ); | |
68 | check_no_duplicate_global_definitions global | |
69 | (*build_graph c_info global (Filename.concat dir "depgraph.dot");*) | |
ae4735db | 70 | *) |
34e49164 C |
71 | |
72 | ||
73 | (*****************************************************************************) | |
74 | (* Main entry point *) | |
75 | (*****************************************************************************) | |
76 | ||
ae4735db | 77 | let main () = |
34e49164 C |
78 | begin |
79 | let args = ref [] in | |
80 | let options = [ | |
81 | ] in | |
ae4735db C |
82 | let usage_msg = |
83 | "Usage: " ^ basename Sys.argv.(0) ^ | |
34e49164 C |
84 | " <dir> [options]" ^ "\n" ^ "Options are:" |
85 | in | |
86 | ||
87 | Arg.parse (Arg.align options) (fun x -> args := x::!args) usage_msg; | |
88 | args := List.rev !args; | |
89 | ||
90 | (match (!args) with | |
ae4735db | 91 | | [x] -> |
34e49164 | 92 | generate_dependencies x |
ae4735db | 93 | | _ -> Arg.usage (Arg.align options) usage_msg; |
34e49164 C |
94 | ) |
95 | end | |
96 | ||
97 | (*****************************************************************************) | |
98 | let _ = | |
99 | main () | |
100 |