[Xen-API] [PATCH] OCamlDoc: Properly removes all whitespace and *'s from the beginning of lines in ocamldoc comments.

[Rob Hoes <rob.hoes@xxxxxxxxxx>]

# HG changeset patch
# User Rob Hoes <rob.hoes@xxxxxxxxxx>
OCamlDoc: Properly removes all whitespace and *'s from the beginning of lines 
in ocamldoc comments.

Signed-off-by: Rob Hoes <rob.hoes@xxxxxxxxxx>

diff -r 0065f015b7ce ocaml/doc/odoc_json.ml
--- a/ocaml/doc/odoc_json.ml
+++ b/ocaml/doc/odoc_json.ml
@@ -87,7 +87,7 @@
                        else
                                Buffer.add_char res str.[i]
                | 1 -> 
-                       if str.[i] != '\n' && str.[i] != ' ' & str.[i] != '*' 
then begin
+                       if not (List.mem str.[i] ['\n'; '\t'; ' '; '*']) then 
begin
                                phase := 0;
                                Buffer.add_char res str.[i]
                        end

doc-remove-stars
Description: Text document

_______________________________________________
xen-api mailing list
xen-api@xxxxxxxxxxxxxxxxxxx
http://lists.xensource.com/mailman/listinfo/xen-api