PR#4940: get rid of naked end-of-lines in string constants + add warning 29

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

1 files changed, 18 insertions, 18 deletions

diff --git a/otherlibs/labltk/compiler/maincompile.ml b/otherlibs/labltk/compiler/maincompile.ml
index 144e47cee..80118fa9b 100644
--- a/otherlibs/labltk/compiler/maincompile.ml
+++ b/otherlibs/labltk/compiler/maincompile.ml
@@ -277,14 +277,14 @@ let compile () =
     let oc = open_out_bin (destfile "camltk.ml") in
     Copyright.write ~w:(output_string oc);
     output_string oc 
-"(** This module Camltk provides the module name spaces of the CamlTk API.
-
-  The users of the CamlTk API should open this module first to access
-  the types, functions and modules of the CamlTk API easier. 
-  For the documentation of each sub modules such as [Button] and [Toplevel],
-  refer to its defintion file,  [cButton.mli], [cToplevel.mli], etc. 
- *)
-
+"(** This module Camltk provides the module name spaces of the CamlTk API.\n\
+\n\
+  The users of the CamlTk API should open this module first to access\n\
+  the types, functions and modules of the CamlTk API easier.\n\
+  For the documentation of each sub modules such as [Button] and [Toplevel],\n\
+  refer to its defintion file,  [cButton.mli], [cToplevel.mli], etc.\n\
+ *)\n\
+\n\
 ";
     output_string oc "include CTk\n";
     output_string oc "module Tk = CTk\n";
@@ -297,17 +297,17 @@ let compile () =
   end else begin
     let oc = open_out_bin (destfile "labltk.ml") in
     Copyright.write ~w:(output_string oc);
-    output_string oc 
-"(** This module Labltk provides the module name spaces of the LablTk API,
-  useful to call LablTk functions inside CamlTk programs. 100% LablTk users
-  do not need to use this. *)
-
+    output_string oc
+"(** This module Labltk provides the module name spaces of the LablTk API,\n\
+  useful to call LablTk functions inside CamlTk programs. 100% LablTk users\n\
+  do not need to use this. *)\n\
+\n\
 ";
-    output_string oc "module Widget = Widget;;
-module Protocol = Protocol;;
-module Textvariable = Textvariable;;
-module Fileevent = Fileevent;;
-module Timer = Timer;;
+    output_string oc "module Widget = Widget;;\n\
+module Protocol = Protocol;;\n\
+module Textvariable = Textvariable;;\n\
+module Fileevent = Fileevent;;\n\
+module Timer = Timer;;\n\
 ";
     Hashtbl.iter (fun name _ ->
       let cname = realname name in