Take OpamSystem.back_to_forward from ocaml#3346

dra27 · May 10, 2018 · 4776a92 · 4776a92
1 parent 012ae0f
commit 4776a92
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/src/core/opamSystem.ml b/src/core/opamSystem.ml
@@ -313,6 +313,12 @@ let env_var env var =
   in
   aux 0
 
+let back_to_forward =
+  if Sys.win32 then
+    String.map (function '\\' -> '/' | c -> c)
+  else
+    fun x -> x
+
 (* OCaml 4.05.0 no longer follows the updated PATH to resolve commands. This
    makes unqualified commands absolute as a workaround. *)
 let resolve_command =

diff --git a/src/core/opamSystem.mli b/src/core/opamSystem.mli
@@ -268,3 +268,6 @@ val register_printer: unit -> unit
     lib may not perform properly without this if [Sys.catch_break] isn't set
     and SIGPIPE isn't handled (with a no-op) *)
 val init: unit -> unit
+
+(** On Unix, a no-op. On Windows, convert \ to / *)
+val back_to_forward : string -> string