fix(x-compilation): only install the context passed to -x

Signed-off-by: Antonio Nuno Monteiro <anmonteiro@gmail.com>

bin/common.ml

@@ -911,6 +911,8 @@ let root t = t.root
 
 let watch t = t.builder.watch
 
+let x t = t.builder.workspace_config.x
+
 let print_metrics t = t.builder.print_metrics
 
 let dump_memo_graph_file t = t.builder.dump_memo_graph_file

bin/common.mli

@@ -3,6 +3,8 @@ open Stdune
 
 type t
 
+val x : t -> Dune_engine.Context_name.t option
+
 val capture_outputs : t -> bool
 
 val root : t -> Workspace_root.t

bin/install_uninstall.ml

@@ -73,7 +73,7 @@ module Workspace = struct
        and+ contexts = Context.DB.all () in
        { packages = conf.packages; contexts })
 
-  let package_install_file t pkg =
+  let package_install_file t ~findlib_toolchain pkg =
     match Package.Name.Map.find t.packages pkg with
     | None -> Error ()
     | Some p ->
@@ -82,11 +82,11 @@ module Workspace = struct
       Ok
         (Path.Source.relative dir
            (Dune_rules.Install_rules.install_file ~package:name
-              ~findlib_toolchain:None))
+              ~findlib_toolchain))
 end
 
-let resolve_package_install workspace pkg =
-  match Workspace.package_install_file workspace pkg with
+let resolve_package_install workspace ~findlib_toolchain pkg =
+  match Workspace.package_install_file workspace ~findlib_toolchain pkg with
   | Ok path -> path
   | Error () ->
     let pkg = Package.Name.to_string pkg in
@@ -573,7 +573,19 @@ let install_uninstall ~what =
         let* workspace = Workspace.get () in
         let contexts =
           match context with
-          | None -> workspace.contexts
+          | None -> (
+            match Common.x common with
+            | Some findlib_toolchain ->
+              let contexts =
+                List.filter workspace.contexts ~f:(fun (ctx : Context.t) ->
+                    match ctx.findlib_toolchain with
+                    | None -> false
+                    | Some ctx_findlib_toolchain ->
+                      Dune_engine.Context_name.equal ctx_findlib_toolchain
+                        findlib_toolchain)
+              in
+              contexts
+            | None -> workspace.contexts)
           | Some name -> (
             match
               List.find workspace.contexts ~f:(fun c ->
@@ -599,9 +611,14 @@ let install_uninstall ~what =
         in
         let install_files, missing_install_files =
           List.concat_map pkgs ~f:(fun pkg ->
-              let fn = resolve_package_install workspace pkg in
               List.map contexts ~f:(fun (ctx : Context.t) ->
-                  let fn = Path.append_source (Path.build ctx.build_dir) fn in
+                  let fn =
+                    let fn =
+                      resolve_package_install workspace
+                        ~findlib_toolchain:ctx.findlib_toolchain pkg
+                    in
+                    Path.append_source (Path.build ctx.build_dir) fn
+                  in
                   if Path.exists fn then Left (ctx, (pkg, fn)) else Right fn))
           |> List.partition_map ~f:Fun.id
         in
@@ -755,7 +772,10 @@ let install_uninstall ~what =
                           Fiber.return entry)
                   in
                   if create_install_files then
-                    let fn = resolve_package_install workspace package in
+                    let fn =
+                      resolve_package_install workspace
+                        ~findlib_toolchain:context.findlib_toolchain package
+                    in
                     Io.write_file (Path.source fn)
                       (Install.gen_install_file entries)))
         in

test/blackbox-tests/test-cases/cross-compilation-install.t/dune

@@ -1,4 +1,4 @@
 (library
- (name repro_main)
- (public_name repro-main)
+ (name repro)
+ (public_name repro)
  (modules foo))

test/blackbox-tests/test-cases/cross-compilation-install.t/dune-project

@@ -5,16 +5,11 @@
 (generate_opam_files true)
 
 (package
- (name repro-main)
+ (name repro)
  (depends
   (ocaml
    (>= 4.12.0))
   dune-site)
  (sites
   (share libs))
  (synopsis "Repro main"))
-
-(package
- (name repro-libs)
- (depends repro-main)
- (synopsis "Repro libs"))

test/blackbox-tests/test-cases/cross-compilation-install.t/run.t

@@ -3,23 +3,30 @@
   $ export OCAMLFIND_CONF=$PWD/etc/findlib.conf
 
 
-  $ dune build --display short --promote-install-files=false -p repro-main @install -x foo
-        ocamlc .repro_main.objs/byte/repro_main.{cmi,cmo,cmt} [default.foo]
-      ocamldep .repro_main.objs/repro_main__Foo.impl.d [default.foo]
-      ocamlopt .repro_main.objs/native/repro_main.{cmx,o} [default.foo]
-        ocamlc .repro_main.objs/byte/repro_main__Foo.{cmi,cmo,cmt} [default.foo]
-      ocamlopt .repro_main.objs/native/repro_main__Foo.{cmx,o} [default.foo]
-        ocamlc repro_main.cma [default.foo]
-      ocamlopt repro_main.{a,cmxa} [default.foo]
-      ocamlopt repro_main.cmxs [default.foo]
+  $ dune build --display short -p repro --promote-install-files=false @install -x foo
+  x: _build/default/repro.install
+  x: _build/default.foo/repro-foo.install
+        ocamlc .repro.objs/byte/repro.{cmi,cmo,cmt} [default.foo]
+      ocamldep .repro.objs/repro__Foo.impl.d [default.foo]
+      ocamlopt .repro.objs/native/repro.{cmx,o} [default.foo]
+        ocamlc .repro.objs/byte/repro__Foo.{cmi,cmo,cmt} [default.foo]
+      ocamlopt .repro.objs/native/repro__Foo.{cmx,o} [default.foo]
+        ocamlc repro.cma [default.foo]
+      ocamlopt repro.{a,cmxa} [default.foo]
+      ocamlopt repro.cmxs [default.foo]
 
-  $ ls | grep *.install
-  repro-main-foo.install
-
-  $ dune install --prefix prefix --display short -p repro-main --create-install-files repro-main -x foo
-  x: repro-main.install
-  Error: The following <package>.install are missing:
-  - _build/default/repro-main.install
-  - _build/default.foo/repro-main.install
-  Hint: try running: dune build [-p <pkg>] @install
-  [1]
+  $ dune install --prefix prefix --display short -p repro -x foo
+  Installing prefix/foo-sysroot/lib/repro/META
+  Installing prefix/foo-sysroot/lib/repro/dune-package
+  Installing prefix/foo-sysroot/lib/repro/foo.ml
+  Installing prefix/foo-sysroot/lib/repro/repro.a
+  Installing prefix/foo-sysroot/lib/repro/repro.cma
+  Installing prefix/foo-sysroot/lib/repro/repro.cmi
+  Installing prefix/foo-sysroot/lib/repro/repro.cmt
+  Installing prefix/foo-sysroot/lib/repro/repro.cmx
+  Installing prefix/foo-sysroot/lib/repro/repro.cmxa
+  Installing prefix/foo-sysroot/lib/repro/repro.ml
+  Installing prefix/foo-sysroot/lib/repro/repro__Foo.cmi
+  Installing prefix/foo-sysroot/lib/repro/repro__Foo.cmt
+  Installing prefix/foo-sysroot/lib/repro/repro__Foo.cmx
+  Installing prefix/foo-sysroot/lib/repro/repro.cmxs