unikernel/duniverse/dune_/bin/workspace_root.mli

@@ -0,0 +1,26 @@
+open! Stdune
+
+(** Finding the root of the workspace *)
+
+module Kind : sig
+  type t =
+    | Explicit
+    | Dune_workspace
+    | Dune_project
+    | Cwd
+end
+
+type t =
+  { dir : string
+  ; to_cwd : string list (** How to reach the cwd from the root *)
+  ; reach_from_root_prefix : string
+    (** Prefix filenames with this to reach them from the root *)
+  ; kind : Kind.t
+  }
+
+val create
+  :  default_is_cwd:bool
+  -> specified_by_user:string option
+  -> (t, User_message.t) result
+
+val create_exn : default_is_cwd:bool -> specified_by_user:string option -> t