5.5 support: Backport Format changes (#2777)

An minimal unsafe version of Domain.DLS is used to implement Format_.
This shim module just needs to be removed if OCamlformat ever use
parallelism.

* Disable scan_push bug fix

This bug fix breaks OCamlformat and will be fixed in a separate PR.

Author: Julow

CHANGES.md

@@ -8,7 +8,7 @@ profile. This started with version 0.26.0.
 
 ### Highlight
 
-- Support OCaml 5.5 syntax (#2772, #2774, #2775, @Julow)
+- Support OCaml 5.5 syntax (#2772, #2774, #2775, #2777, @Julow)
 
 - \* Update Odoc's parser to 3.0 (#2757, @Julow)
   The indentation of code-blocks containing OCaml code is reduced by 2 to avoid

vendor/ocamlformat_support/camlinternalFormatBasics_.ml

@@ -0,0 +1,59 @@
+include CamlinternalFormatBasics
+
+type neutral_concat =
+  { f:
+      'a 'b 'c 'd 'e 'f. [`String of string | `Char of char ] ->
+      ('a,'b,'c,'d,'e,'f) fmt -> ('a,'b,'c,'d,'e,'f) fmt
+  }
+
+let rec string_concat_map: type a b c d e f.
+   neutral_concat -> (a,b,c,d,e,f) fmt -> (a,b,c,d,e,f) fmt =
+  fun f -> function
+  | String (pad, rest) -> String (pad, string_concat_map f rest)
+  | Caml_string (pad, rest) -> Caml_string (pad, string_concat_map f rest)
+
+  | Int (iconv, pad, prec, rest) ->
+    Int (iconv, pad, prec,  string_concat_map f rest)
+  | Int32 (iconv, pad, prec, rest) ->
+    Int32 (iconv, pad, prec,  string_concat_map f rest)
+  | Nativeint (iconv, pad, prec, rest) ->
+    Nativeint (iconv, pad, prec,  string_concat_map f rest)
+  | Int64 (iconv, pad, prec, rest) ->
+    Int64 (iconv, pad, prec,  string_concat_map f rest)
+  | Float (fconv, pad, prec, rest) ->
+    Float (fconv, pad, prec,  string_concat_map f rest)
+
+  | Char (rest) -> Char (string_concat_map f rest)
+  | Caml_char rest ->
+    Caml_char ( string_concat_map f rest)
+  | Bool (pad, rest) -> Bool (pad,  string_concat_map f rest)
+  | Alpha rest -> Alpha (string_concat_map f rest)
+  | Theta rest -> Theta (string_concat_map f rest)
+  | Custom (arity, fc, rest) ->
+    Custom (arity, fc,  string_concat_map f rest)
+  | Reader rest -> Reader (string_concat_map f rest)
+  | Flush rest -> Flush (string_concat_map f rest)
+
+  | String_literal (str, rest) -> f.f (`String str) (string_concat_map f rest)
+  | Char_literal (chr, rest) ->
+      f.f (`Char chr) (string_concat_map f rest)
+  | Format_arg (pad, fmtty, rest) ->
+    Format_arg   (pad, fmtty, string_concat_map f rest)
+  | Format_subst (pad, fmtty, rest) ->
+    Format_subst (pad, fmtty, string_concat_map f rest)
+
+  | Scan_char_set (width_opt, char_set, rest) ->
+    Scan_char_set (width_opt, char_set, string_concat_map f rest)
+  | Scan_get_counter (counter, rest) ->
+    Scan_get_counter (counter,string_concat_map f rest)
+  | Scan_next_char (rest) ->
+    Scan_next_char (string_concat_map f rest)
+  | Ignored_param (ign, rest) ->
+    Ignored_param (ign, string_concat_map f rest)
+
+  | Formatting_lit (fmting_lit, rest) ->
+    Formatting_lit (fmting_lit, string_concat_map f rest)
+  | Formatting_gen (fmting_gen, rest) ->
+    Formatting_gen (fmting_gen, string_concat_map f rest)
+
+  | End_of_format -> End_of_format