replace hacky patch which a much better solution/fix

(Portage version: 2.2.00.14487-prefix/svn/Darwin i386)

2 files changed, 11 insertions, 89 deletions

diff --git a/dev-lang/ocaml/Manifest b/dev-lang/ocaml/Manifest
index 081e38a2c1..d83891eaa8 100644
--- a/dev-lang/ocaml/Manifest
+++ b/dev-lang/ocaml/Manifest
@@ -3,7 +3,7 @@ AUX ocaml-3.10.0-call-ld-with-proper-ldflags.patch 1497 RMD160 7eef667019e79f287
 AUX ocaml-3.10.0-configure.patch 5644 RMD160 1a63847a6e632f59fef8ff448b96bc45da15eae5 SHA1 6a030e48dd5fc399b985dd99e21b6c0e6b95a12e SHA256 f42e11db2d184532aa561b0b117f7ce5850bb50981ea997d08eee34f826360ac
 AUX ocaml-3.10.0-exec-stack-fixes.patch 9395 RMD160 00d5e1ac85a090baeaf9b9cba2e277c72bef5792 SHA1 15bc9692307f4781c3d01db7724869f7e9a401d7 SHA256 a260416a0fc1cf05ff3b2dceac83bd00043ee7ad6a8f2487934723f5b9f406da
 AUX ocaml-3.10.2-tk85.patch 2414 RMD160 1b8dc94de1c90264684a300f5f31ffce02e94cec SHA1 98c7a48c167500d3e7d8c34e79124dc0cedc315d SHA256 ba539578fbec539ff481b5fc786612d5e85b01cc2d6eee22a2f9ed340d2d0fd3
-AUX ocaml-3.11.1-doc-utf8.patch 4794 RMD160 ff874fb1cd1dd9bdf712496ed664f028cf8651b3 SHA1 2f51c1a96a25385818d9c80a9c45ee053145b727 SHA256 3c826a594c49f16aff24496446952df8b7fd9b06d097832beacb6a7db69ee171
+AUX ocaml-3.11.1-doc-utf8.patch 399 RMD160 e7c559f488a6449a0084f51a53a84ae5562bdec1 SHA1 83da1b00514ac36d50ab0e95d32adfe7394ae731 SHA256 817f7ea5f62ac0f3dddd62da77ba50faa19732bc95be992a467a3c715f4b5ba3
 AUX ocaml-rebuild.sh 1055 RMD160 a75f61820cfdc262912cc5af1241779bf900d4d7 SHA1 a673a51e05d6103863061109c4d5956ca6efdf2b SHA256 446aab21ab2d757d37666c28a634f5d0da5f690f2694354d77cdb73b202a37ae
 DIST ocaml-3.10.2.tar.bz2 2284860 RMD160 f631230b090dbd9bf9a9f71631cd0347c033cbb1 SHA1 f604580bf2943891d8faf265eeb900bbe90abce0 SHA256 3755a32da1a7490d47fff7838c12c754d3fcfe69d7c9ff2358704259dc477c58
 DIST ocaml-3.11.1.tar.gz 2859411 RMD160 7a48021e80602917cc91f7cc3305d5f3ab92b0bc SHA1 05ccb525bb53f8676e238de31209713ec38ae63a SHA256 70bf4ec660b07c9119123eb8ef2a5d9e5e98fac8c4082cca33b2622e91386b53
diff --git a/dev-lang/ocaml/files/ocaml-3.11.1-doc-utf8.patch b/dev-lang/ocaml/files/ocaml-3.11.1-doc-utf8.patch
index 7bd7462593..8a3cbddc11 100644
--- a/dev-lang/ocaml/files/ocaml-3.11.1-doc-utf8.patch
+++ b/dev-lang/ocaml/files/ocaml-3.11.1-doc-utf8.patch
@@ -1,90 +1,12 @@
-Sed sees a newline in the whatever encoding, causing a compilation
-failure, so remove all accented chars
+Sed sees a end of string in the whatever encoding, causing a compilation
+failure, so just don't look for a pattern but replace the line with an
+empty one (to respect the cpp lineno)
 
---- ocamldoc/odoc_ast.ml
-+++ ocamldoc/odoc_ast.ml
-@@ -332,7 +332,7 @@
-                       in
-                       (new_param, func_body2)
-                   | _ ->
--                      print_DEBUG3 "Pas le bon filtre pour le paramètre optionnel avec valeur par défaut.";
-+                      print_DEBUG3 "Pas le bon filtre pour le parametre optionnel avec valeur par defaut.";
-                       (parameter, func_body)
-                  )
-                 )
-@@ -437,7 +437,7 @@
-            | l ->
-                match l with
-                  [] ->
--                   (* cas impossible, on l'a filtré avant *)
-+                   (* cas impossible, on l'a filtre avant *)
-                    assert false
-                | (pattern_param, exp) :: second_ele :: q ->
-                    (* implicit pattern matching -> anonymous parameter *)
-@@ -477,7 +477,7 @@
-                                   in
-                                   (new_param, body2)
-                               | _ ->
--                                  print_DEBUG3 "Pas le bon filtre pour le paramètre optionnel avec valeur par défaut.";
-+                                  print_DEBUG3 "Pas le bon filtre pour le paramere optionnel avec valeur par defaut.";
-                                   (parameter, body)
-                              )
-                             )
-@@ -658,10 +658,10 @@
-               Typedtree.Tclass_ident p -> Name.from_path p
-             | _ ->
-                 (* we try to get the name from the environment. *)
--                (* A VOIR : dommage qu'on n'ait pas un Tclass_ident :-( même quand on a class tutu = toto *)
-+                (* A VOIR : dommage qu'on n'ait pas un Tclass_ident :-( meme quand on a class tutu = toto *)
-                 Name.from_longident lid
-           in
--          (* On n'a pas ici les paramètres de type sous forme de Types.type_expr,
-+          (* On n'a pas ici les parametres de type sous forme de Types.type_expr,
-              par contre on peut les trouver dans le class_type *)
-           let params =
-             match tt_class_exp.Typedtree.cl_type with
-@@ -746,7 +746,7 @@
-             match tt_class_expr2.Typedtree.cl_desc with
-               Typedtree.Tclass_ident p -> Name.from_path p (* A VOIR : obtenir le nom complet *)
-             | _ ->
--                (* A VOIR : dommage qu'on n'ait pas un Tclass_ident :-( même quand on a class tutu = toto *)
-+                (* A VOIR : dommage qu'on n'ait pas un Tclass_ident :-( meme quand on a class tutu = toto *)
-                 match p_class_expr2.Parsetree.pcl_desc with
-                   Parsetree.Pcl_constr (lid, _) ->
-                     (* we try to get the name from the environment. *)
-@@ -937,7 +937,7 @@
-         | Element_type t ->
-              (function
-                 Types.Tsig_type (ident,_,_) ->
--                  (* A VOIR: il est possible que le détail du type soit caché *)
-+                  (* A VOIR: il est possible que le detail du type soit cache *)
-                   let n1 = Name.simple t.ty_name
-                   and n2 = Ident.name ident in
-                   n1 = n2
-@@ -1269,7 +1269,7 @@
-              let new_env = Odoc_env.add_module env new_module.m_name in
-              let new_env2 =
-                match new_module.m_type with
--                 (* A VOIR : cela peut-il être Tmty_ident ? dans ce cas, on aurait pas la signature *)
-+                 (* A VOIR : cela peut-il etre Tmty_ident ? dans ce cas, on aurait pas la signature *)
-                  Types.Tmty_signature s ->
-                    Odoc_env.add_signature new_env new_module.m_name
-                      ~rel: (Name.simple new_module.m_name) s
-@@ -1368,7 +1368,7 @@
-           let new_env = Odoc_env.add_module_type env mt.mt_name in
-           let new_env2 =
-             match tt_module_type with
--              (* A VOIR : cela peut-il être Tmty_ident ? dans ce cas, on n'aurait pas la signature *)
-+              (* A VOIR : cela peut-il etre Tmty_ident ? dans ce cas, on n'aurait pas la signature *)
-               Types.Tmty_signature s ->
-                 Odoc_env.add_signature new_env mt.mt_name ~rel: (Name.simple mt.mt_name) s
-             | _ ->
-@@ -1496,7 +1496,7 @@
-               im_info = comment_opt ;
-             }
-           in
--          (0, env, [ Element_included_module im ]) (* A VOIR : étendre l'environnement ? avec quoi ? *)
-+          (0, env, [ Element_included_module im ]) (* A VOIR : etendre l'environnement ? avec quoi ? *)
+--- ocamldoc/remove_DEBUG
++++ ocamldoc/remove_DEBUG
+@@ -18,4 +18,4 @@
+ # respecting the cpp # line annotation conventions
  
-      (** Analysis of a [Parsetree.module_expr] and a name to return a [t_module].*)
-      and analyse_module env current_module_name module_name comment_opt p_module_expr tt_module_expr =
+ echo "# 1 \"$1\""
+-LC_ALL=C sed -e '/DEBUG/s/.*//' "$1"
++LC_ALL=C sed -e '/DEBUG/c\ ' "$1"