Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ocamlbuild: deprecate warn_%c, warn_error_%c (replaced by parametrized tags) and strict-sequence (strict_sequence) 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14142 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Gabriel Scherer 2013-09-15 11:36:39 +00:00
parent 0f968f11b2
commit 7629d96d21
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
ocamlbuild/ocaml_specific.ml
View File

@ -695,18 +695,23 @@ flag ["ocaml"; "compile"; "nolabels"] (A"-nolabels");;
flag ["ocaml"; "ocamllex"; "quiet"] (A"-q");;
let ocaml_warn_flag c =
flag ["ocaml"; "compile"; sprintf "warn_%c" (Char.uppercase c)]
(S[A"-w"; A (sprintf "%c" (Char.uppercase c))]);
flag ["ocaml"; "compile"; sprintf "warn_error_%c" (Char.uppercase c)]
(S[A"-warn-error"; A (sprintf "%c" (Char.uppercase c))]);
flag ["ocaml"; "compile"; sprintf "warn_%c" (Char.lowercase c)]
(S[A"-w"; A (sprintf "%c" (Char.lowercase c))]);
flag ["ocaml"; "compile"; sprintf "warn_error_%c" (Char.lowercase c)]
(S[A"-warn-error"; A (sprintf "%c" (Char.lowercase c))]);;
flag ~deprecated:true
["ocaml"; "compile"; sprintf "warn_%c" (Char.uppercase c)]
(S[A"-w"; A (sprintf "%c" (Char.uppercase c))]);
flag ~deprecated:true
["ocaml"; "compile"; sprintf "warn_error_%c" (Char.uppercase c)]
(S[A"-warn-error"; A (sprintf "%c" (Char.uppercase c))]);
flag ~deprecated:true
["ocaml"; "compile"; sprintf "warn_%c" (Char.lowercase c)]
(S[A"-w"; A (sprintf "%c" (Char.lowercase c))]);
flag ~deprecated:true
["ocaml"; "compile"; sprintf "warn_error_%c" (Char.lowercase c)]
(S[A"-warn-error"; A (sprintf "%c" (Char.lowercase c))]);;
List.iter ocaml_warn_flag ['A'; 'C'; 'D'; 'E'; 'F'; 'K'; 'L'; 'M'; 'P'; 'R'; 'S'; 'U'; 'V'; 'X'; 'Y'; 'Z'];;
flag ["ocaml"; "compile"; "strict-sequence"] (A "-strict-sequence");;
flag ~deprecated:true
["ocaml"; "compile"; "strict-sequence"] (A "-strict-sequence");;
flag ["ocaml"; "compile"; "strict_sequence"] (A "-strict-sequence");;
flag ["ocaml"; "doc"; "docdir"; "extension:html"] (A"-html");;