Add a --workspace option

Makefile

@@ -15,6 +15,9 @@ uninstall:
 
 reinstall: uninstall reinstall
 
+all-supported-ocaml-versions:
+	$(BIN) build @install --workspace jbuild-workspace.dev
+
 clean:
 	rm -rf _build
 

bin/main.ml

@@ -2,22 +2,19 @@ open Jbuilder
 open Import
 open Jbuilder_cmdliner.Cmdliner
 
-module Main = Jbuilder.Main
-
 (* Things in src/ don't depend on cmdliner to speed up the bootstrap, so we set this
    reference here *)
 let () = suggest_function := Jbuilder_cmdliner.Cmdliner_suggest.value
 
 let (>>=) = Future.(>>=)
 
-let create_log = Main.create_log
-
 type common =
-  { concurrency: int
-  ; debug_rules: bool
-  ; debug_dep_path: bool
-  ; debug_findlib: bool
-  ; dev_mode: bool
+  { concurrency    : int
+  ; debug_rules    : bool
+  ; debug_dep_path : bool
+  ; debug_findlib  : bool
+  ; dev_mode       : bool
+  ; workspace_file : string option
   }
 
 let set_common c =
@@ -27,6 +24,15 @@ let set_common c =
   Clflags.debug_findlib := c.debug_findlib;
   Clflags.dev_mode := c.dev_mode
 
+module Main = struct
+  include Jbuilder.Main
+
+  let setup common =
+    setup ?workspace_file:common.workspace_file ()
+end
+
+let create_log = Main.create_log
+
 let copts_sect = "COMMON OPTIONS"
 let help_secs =
   [ `S copts_sect
@@ -38,12 +44,13 @@ let help_secs =
   ]
 
 let common =
-  let make concurrency debug_rules debug_dep_path debug_findlib dev_mode =
+  let make concurrency debug_rules debug_dep_path debug_findlib dev_mode workspace_file =
     { concurrency
     ; debug_rules
     ; debug_dep_path
     ; debug_findlib
     ; dev_mode
+    ; workspace_file
     }
   in
   let docs = copts_sect in
@@ -53,7 +60,20 @@ let common =
   let ddep_path = Arg.(value & flag & info ["ddep-path"] ~docs) in
   let dfindlib = Arg.(value & flag & info ["dfindlib"] ~docs) in
   let dev = Arg.(value & flag & info ["dev"] ~docs) in
-  Term.(const make $ concurrency $ drules $ ddep_path $ dfindlib $ dev)
+  let workspace_file =
+    Arg.(value
+         & opt (some file) None
+         & info ["workspace"] ~docs
+             ~doc:"Use this specific workspace file instead of looking it up")
+  in
+  Term.(const make
+        $ concurrency
+        $ drules
+        $ ddep_path
+        $ dfindlib
+        $ dev
+        $ workspace_file
+       )
 
 let installed_libraries =
   let doc = "Print out libraries installed on the system." in
@@ -84,9 +104,9 @@ let resolve_package_install setup pkg =
   | Error () ->
     die "Unknown package %s!%s" pkg (hint pkg (String_map.keys setup.packages))
 
-let build_package pkg =
+let build_package common pkg =
   Future.Scheduler.go ~log:(create_log ())
-    (Main.setup () >>= fun setup ->
+    (Main.setup common >>= fun setup ->
      Build_system.do_build_exn setup.build_system
        [resolve_package_install setup pkg])
 
@@ -95,7 +115,7 @@ let build_package =
   let name_ = Arg.info [] ~docv:"PACKAGE-NAME" in
   let go common pkg =
     set_common common;
-    build_package pkg
+    build_package common pkg
   in
   ( Term.(const go
           $ common
@@ -193,7 +213,7 @@ let build_targets =
   let go common targets =
     set_common common;
     Future.Scheduler.go ~log:(create_log ())
-      (Main.setup () >>= fun setup ->
+      (Main.setup common >>= fun setup ->
        let targets = resolve_targets setup targets in
        Build_system.do_build_exn setup.build_system targets) in
   ( Term.(const go
@@ -207,7 +227,7 @@ let runtest =
   let go common dirs =
     set_common common;
     Future.Scheduler.go ~log:(create_log ())
-      (Main.setup () >>= fun setup ->
+      (Main.setup common >>= fun setup ->
        let targets =
          List.map dirs ~f:(fun dir ->
            let dir = Path.(relative root) dir in
@@ -243,7 +263,7 @@ let install_uninstall ~what =
     set_common common;
     let opam_installer = opam_installer () in
     Future.Scheduler.go ~log:(create_log ())
-      (Main.setup () >>= fun setup ->
+      (Main.setup common >>= fun setup ->
        let pkgs =
          match pkgs with
          | [] -> String_map.keys setup.packages

jbuild-workspace.dev

@@ -1,10 +1,4 @@
-;; Install the following opam switches, copy this file as
-;; jbuild-workspace and run:
-;;
-;; $ ./_build/default/bin/main.exe build @install
-;;
-;; This will build jbuilder against all these version of OCaml
-
+;; This file is used by `make all-supported-ocaml-versions`
 (context ((switch 4.02.3)))
 (context ((switch 4.03.0)))
 (context ((switch 4.04.0)))

src/main.ml

@@ -13,14 +13,15 @@ let package_install_file { packages; _ } pkg =
   | None -> Error ()
   | Some p -> Ok (Path.relative p.path (p.name ^ ".install"))
 
-let setup ?filter_out_optional_stanzas_with_missing_deps ?workspace () =
+let setup ?filter_out_optional_stanzas_with_missing_deps
+      ?workspace ?(workspace_file="jbuild-workspace") () =
   let conf = Jbuild_load.load () in
   let workspace =
     match workspace with
     | Some w -> w
     | None ->
-      if Sys.file_exists "jbuild-workspace" then
-        Workspace.load "jbuild-workspace"
+      if Sys.file_exists workspace_file then
+        Workspace.load workspace_file
       else
         { merlin_context = Some "default"; contexts = [Default] }
   in

src/main.mli

@@ -13,6 +13,7 @@ val package_install_file : setup -> string -> (Path.t, unit) result
 val setup
   :  ?filter_out_optional_stanzas_with_missing_deps:bool
   -> ?workspace:Workspace.t
+  -> ?workspace_file:string
   -> unit
   -> setup Future.t
 val external_lib_deps