4 let includes = Hashtbl.create 17
5 let register_include dir =
6 if not (Hashtbl.mem includes dir) then begin
7 Hashtbl.add includes dir ();
9 (List.map (fun s -> dir ^ "/" ^ s )
10 (Array.to_list (Pathname.readdir dir)))
15 (fun s -> register_include s; S [A"-ppopt"; A "-I"; A"-ppopt"; A s]);
16 "macro_define", (fun s -> S [A"-ppopt"; A ("-D"^s)]);
19 let () = dispatch begin
23 List.iter (fun (fl, fu) ->
24 pflag s fl fu) macro_flags
27 ["ocaml";"ocamldep"] ]