boot: add a --static option to build a static dune (ocaml#10528)

This options adds `-ccopt -static` to the link flags (this requires a
libc that supports static linking).

The motivation is `nix build .#dune-static`, which otherwise requires
patching sources.

Signed-off-by: Etienne Millon <[email protected]>

Author: emillon

boot/bootstrap.ml

@@ -17,6 +17,7 @@ let keep_generated_files =
     ; ( "--force-byte-compilation"
       , Arg.Unit ignore
       , " Force bytecode compilation even if ocamlopt is available" )
+    ; "--static", Arg.Unit ignore, " Build a static binary"
     ]
     anon
     "Usage: ocaml bootstrap.ml <options>\nOptions are:";

boot/duneboot.ml

@@ -1,13 +1,14 @@
 (** {2 Command line} *)
 
-let concurrency, verbose, debug, secondary, force_byte_compilation =
+let concurrency, verbose, debug, secondary, force_byte_compilation, static =
   let anon s = raise (Arg.Bad (Printf.sprintf "don't know what to do with %s\n" s)) in
   let concurrency = ref None in
   let verbose = ref false in
   let prog = Filename.basename Sys.argv.(0) in
   let debug = ref false in
   let secondary = ref false in
   let force_byte_compilation = ref false in
+  let static = ref false in
   Arg.parse
     [ "-j", Int (fun n -> concurrency := Some n), "JOBS Concurrency"
     ; "--verbose", Set verbose, " Set the display mode"
@@ -17,10 +18,11 @@ let concurrency, verbose, debug, secondary, force_byte_compilation =
     ; ( "--force-byte-compilation"
       , Set force_byte_compilation
       , " Force bytecode compilation even if ocamlopt is available" )
+    ; "--static", Set static, " Build a static binary"
     ]
     anon
     (Printf.sprintf "Usage: %s <options>\nOptions are:" prog);
-  !concurrency, !verbose, !debug, !secondary, !force_byte_compilation
+  !concurrency, !verbose, !debug, !secondary, !force_byte_compilation, !static
 ;;
 
 (** {2 General configuration} *)
@@ -1123,6 +1125,7 @@ let build
       | ".ml" -> Some (Filename.remove_extension fn ^ compiled_ml_ext)
       | _ -> None)
   in
+  let static_flags = if static then [ "-ccopt"; "-static" ] else [] in
   write_args "compiled_ml_files" compiled_ml_files;
   Process.run
     ~cwd:build_dir
@@ -1132,6 +1135,7 @@ let build
        ; obj_files
        ; [ "-args"; "compiled_ml_files" ]
        ; link_flags
+       ; static_flags
        ; allow_unstable_sources
        ])
 ;;

flake.nix

@@ -47,13 +47,7 @@
         ocamlPackages = super.ocaml-ng.ocamlPackages_4_14.overrideScope (oself: osuper: {
           dune_3 = osuper.dune_3.overrideAttrs (a: {
             src = ./.;
-            postPatch = ''
-              substituteInPlace \
-                boot/duneboot.ml \
-                --replace-fail \
-                '; link_flags' \
-                '; link_flags; ["-ccopt"; "-static"]'
-            '';
+            preBuild = "ocaml boot/bootstrap.ml --static";
           });
         });
       };