Add FreeBSD (#26)

Author: benmandrew

lib/cluster_build.ml

@@ -48,26 +48,34 @@ module Op = struct
       k.version
       (Current_git.Commit_id.hash k.commit)
 
+  let spec (k : Key.t) =
+    Fmt.to_to_string Obuilder_spec.pp
+    @@
+    match Conf.DD.distro_of_tag k.distro with
+    | None ->
+        let os_family =
+          if String.equal k.distro "macos-homebrew" then `Macos
+          else if String.equal k.distro "freebsd" then `Freebsd
+          else
+            raise
+              (Failure (Printf.sprintf "Distro '%s' is not available" k.distro))
+        in
+        Spec.v k.opam_repo_commit
+          (Printf.sprintf "%s-ocaml-%s" k.distro k.version)
+          os_family k.arch
+    | Some d ->
+        Spec.v k.opam_repo_commit k.docker_tag
+          (Conf.DD.os_family_of_distro d)
+          k.arch
+
   let run t job (k : Key.t) () =
     Current.Job.on_cancel job (fun reason ->
         Logs.debug (fun l ->
             l "Calling the cluster on_cancel callback with reason: %s" reason);
         if reason <> "Job complete" then t.on_cancel reason;
         Lwt.return_unit)
     >>= fun () ->
-    let spec =
-      Fmt.to_to_string Obuilder_spec.pp
-      @@
-      match Conf.DD.distro_of_tag k.distro with
-      | None ->
-          Spec.v k.opam_repo_commit
-            (Printf.sprintf "macos-homebrew-ocaml-%s" k.version)
-            `Macos k.arch
-      | Some d ->
-          Spec.v k.opam_repo_commit k.docker_tag
-            (Conf.DD.os_family_of_distro d)
-            k.arch
-    in
+    let spec = spec k in
     let action = Cluster_api.Submission.obuilder_build spec in
     let src = Current_git.Commit_id.(repo k.commit, [ hash k.commit ]) in
     let cache_hint = get_cache_hint k in

lib/conf.ml

@@ -69,11 +69,12 @@ module Platform = struct
   let distro_to_os = function
     | "debian-11" -> "linux"
     | "macos-homebrew" -> "macos"
+    | "freebsd" -> "freebsd"
     | s ->
         failwith
           (Printf.sprintf
              "Unexpected distro: '%s'. Must be one of: 'debian-11', \
-              'macos-homebrew'"
+              'macos-homebrew', 'freebsd'"
              s)
 
   let label t =
@@ -125,6 +126,19 @@ let macos_platforms : Platform.t list =
     };
   ]
 
+let freebsd_platforms : Platform.t list =
+  [
+    {
+      builder = Builders.local;
+      pool = "freebsd-x86_64";
+      distro = "freebsd";
+      arch = `X86_64;
+      docker_tag = "homebrew/brew";
+      docker_tag_with_digest = None;
+      ocaml_version = "5.1";
+    };
+  ]
+
 let pool_of_arch : arch -> string = function
   (* | `X86_64 | `I386 -> "linux-x86_64"
      | `Riscv64 -> "linux-riscv64" *)
@@ -203,4 +217,4 @@ let platforms () =
     |> List.map (fun (ocaml_version, distro, arch) ->
            v ~arch distro ocaml_version)
   in
-  platforms @ macos_platforms |> get_digests
+  platforms @ macos_platforms @ freebsd_platforms |> get_digests

lib/spec.ml

@@ -3,12 +3,13 @@ let install_project_deps opam_repo_commit os arch =
     match os with
     | `Macos -> "~/local"
     | `Linux -> "/usr"
+    | `Freebsd -> "/usr/local"
     | `Windows | `Cygwin -> failwith "Windows and Cygwin not supported"
   in
   let ln =
     match os with
     | `Macos -> "ln"
-    | `Linux -> "sudo ln"
+    | `Linux | `Freebsd -> "sudo ln"
     | `Windows | `Cygwin -> failwith "Windows and Cygwin not supported"
   in
   let open Obuilder_spec in
@@ -26,19 +27,24 @@ let install_project_deps opam_repo_commit os arch =
           Obuilder_spec.Cache.v "homebrew"
             ~target:"/Users/mac1000/Library/Caches/Homebrew";
         ]
+    | `Freebsd ->
+        [
+          Obuilder_spec.Cache.v "opam-archives"
+            ~target:"/usr/home/opam/.opam/download-cache";
+        ]
     | `Windows | `Cygwin -> failwith "Windows and Cygwin not supported"
   in
   let network = [ "host" ] in
   let home_dir =
     match os with
     | `Macos -> None
-    | `Linux -> Some "/src"
+    | `Linux | `Freebsd -> Some "/src"
     | `Windows | `Cygwin -> failwith "Windows and Cygwin not supported"
   in
   let work_dir =
     match os with
     | `Macos -> "./src/"
-    | `Linux -> "./"
+    | `Linux | `Freebsd -> "./"
     | `Windows | `Cygwin -> failwith "Windows and Cygwin not supported"
   in
   let setup_pins =
@@ -103,7 +109,7 @@ let v opam_repo_commit base os arch =
   let home_dir =
     match os with
     | `Macos -> "./src"
-    | `Linux -> "/src"
+    | `Linux | `Freebsd -> "/src"
     | `Windows | `Cygwin -> failwith "Windows and Cygwin not supported"
   in
   let run_build =
@@ -116,7 +122,7 @@ let v opam_repo_commit base os arch =
     in
     match os with
     | `Macos -> run "cd ./src && %s" build_and_test
-    | `Linux -> run "%s" build_and_test
+    | `Linux | `Freebsd -> run "%s" build_and_test
     | `Windows | `Cygwin -> failwith "Windows and Cygwin not supported"
   in
   let opam_repo_commit = Current_git.Commit_id.hash opam_repo_commit in