Format: Backport scan_push change

[Julow]

Follow-up on #2777

This backports ocaml/ocaml#13853 and fix the worst formatting changes.
This changes the formatting in many cases but a lot of the changes are improvements.

[Julow]

This change reflow a lot of comments and string literals, which might impact a lot of code.

However, many changes are less impacting or result in nicer code. For example, comments just after a then or a else:

       if
         i < Array.length g.constants
         && Constants.inlined ~target g.constants.(i)
-      then
-        (* Inlined constant *)
+      then (* Inlined constant *)
         let x, state = State.fresh_var state in
         let cst = g.constants.(i) in
         (x, state, Let (x, Constant cst) :: instrs)

Some or-patterns are also reflow:

   match (a, b) with
-  | ( ( ( TComment _ | T_EOF | T_LPAREN | T_LPAREN_ARROW | T_RPAREN
-        | T_SEMICOLON | T_VIRTUAL_SEMICOLON | T_COMMA ),
+  | ( ( ( TComment _ | T_EOF | T_LPAREN | T_LPAREN_ARROW | T_RPAREN | T_SEMICOLON
+        | T_VIRTUAL_SEMICOLON | T_COMMA ),
         _ )
       :: a,
       b ) ->

What are your opinion ?