From 2bb989581782c62ac24d5491aeed8a5385482d79 Mon Sep 17 00:00:00 2001
From: Rudi Grinberg <rudi.grinberg@gmail.com>
Date: Sat, 26 May 2018 20:04:56 +0700
Subject: [PATCH] Make explode_path work in 1 pass

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
---
 src/stdune/path.ml | 35 +++++++++++++++++++++++++++--------
 1 file changed, 27 insertions(+), 8 deletions(-)

diff --git a/src/stdune/path.ml b/src/stdune/path.ml
index 7019a4ab..df738579 100644
--- a/src/stdune/path.ml
+++ b/src/stdune/path.ml
@@ -1,15 +1,34 @@
+let is_dir_sep =
+  match Sys.os_type with
+  | "Win32" | "Cygwin" -> fun c -> c = '/' || c = '\\' || c = ':'
+  | _ -> fun c -> c = '/'
+
 let explode_path =
-  let rec loop path acc =
-    let dir  = Filename.dirname  path in
-    let base = Filename.basename path in
-    if dir = Filename.current_dir_name then
-      base :: acc
-    else if dir = path then
+  let rec start acc path i =
+    if i < 0 then
       acc
+    else if is_dir_sep (String.unsafe_get path i) then
+      start acc path (i - 1)
     else
-      loop dir (base :: acc)
+      component acc path i (i - 1)
+  and component acc path end_ i =
+    if i < 0 then
+      String.sub path ~pos:0 ~len:(end_ + 1)::acc
+    else if is_dir_sep (String.unsafe_get path i) then
+      start
+        (String.sub path ~pos:(i + 1) ~len:(end_ - i)::acc)
+        path
+        (i - 1)
+    else
+      component acc path end_ (i - 1)
   in
-  fun path -> loop path []
+  fun path ->
+    if path = Filename.current_dir_name then
+      [path]
+    else
+      match start [] path (String.length path - 1) with
+      | "." :: xs -> xs
+      | xs -> xs
 
 module External = struct
   type t = string