@@ -925,40 +925,6 @@ dispatch
925
925
(MyOCamlbuildBase. dispatch_combine [
926
926
begin function
927
927
| After_rules ->
928
- (* replace with Ocamlbuild_cppo.dispatch when 4.00 is not supported
929
- anymore *)
930
- let dep_cppo = " %(name).cppo.ml" in
931
- let prod1 = " %(name: <*> and not <*.cppo>).ml" in
932
- let prod2 = " %(name: <**/*> and not <**/*.cppo>).ml" in
933
- let f prod env _build =
934
- let dep = env dep_cppo in
935
- let prod = env prod in
936
- let tags = tags_of_pathname prod ++ " cppo" in
937
- Cmd (S [A " cppo" ; T tags; S [A " -o" ; P prod]; P dep ])
938
- in
939
- rule " cppo1" ~dep: dep_cppo ~prod: prod1 (f prod1) ;
940
- rule " cppo2" ~dep: dep_cppo ~prod: prod2 (f prod2) ;
941
- pflag [" cppo" ] " cppo_D" (fun s -> S [A " -D" ; A s]) ;
942
- pflag [" cppo" ] " cppo_U" (fun s -> S [A " -U" ; A s]) ;
943
- pflag [" cppo" ] " cppo_I" (fun s ->
944
- if Pathname. is_directory s then S [A " -I" ; P s]
945
- else S [A " -I" ; P (Pathname. dirname s)]
946
- ) ;
947
- pdep [" cppo" ] " cppo_I" (fun s ->
948
- if Pathname. is_directory s then [] else [s]) ;
949
- flag [" cppo" ; " cppo_q" ] (A " -q" ) ;
950
- flag [" cppo" ; " cppo_s" ] (A " -s" ) ;
951
- flag [" cppo" ; " cppo_n" ] (A " -n" ) ;
952
- pflag [" cppo" ] " cppo_x" (fun s -> S [A " -x" ; A s]);
953
- (* end replace *)
954
-
955
- let major, minor = Scanf. sscanf Sys. ocaml_version " %d.%d.%d"
956
- (fun major minor patchlevel -> major, minor)
957
- in
958
- let ocaml_major = " OCAML_MAJOR " ^ string_of_int major in
959
- let ocaml_minor = " OCAML_MINOR " ^ string_of_int minor in
960
-
961
- flag [" cppo" ] & S [A " -D" ; A ocaml_major; A " -D" ; A ocaml_minor] ;
962
928
963
929
(* Documentation index *)
964
930
dep [" ocaml" ; " doc" ; " extension:html" ] & [doc_intro] ;
0 commit comments