-warn-help show the meaning of letters.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@12044 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 12 insertions, 0 deletions

diff --git a/utils/warnings.ml b/utils/warnings.ml
index ed771580fb..a7babcc40f 100644
--- a/utils/warnings.ml
+++ b/utils/warnings.ml
@@ -370,5 +370,17 @@ let descriptions =
 
 let help_warnings () =
   List.iter (fun (i, s) -> Printf.printf "%3i %s\n" i s) descriptions;
+  print_endline "  A All warnings.";
+  for i = Char.code 'b' to Char.code 'z' do
+    let c = Char.chr i in
+    match letter c with
+    | [] -> ()
+    | [n] ->
+        Printf.printf "  %c Synonym for warning %i.\n" (Char.uppercase c) n
+    | l ->
+        Printf.printf "  %c Set of warnings %s.\n"
+          (Char.uppercase c)
+          (String.concat ", " (List.map string_of_int l))
+  done;
   exit 0
 ;;