+(* /foo/./bar/..//baz -> /foo/baz *)
+let normalize_path s =
+ let s = Str.global_replace (Str.regexp "//") "/" s in
+ let l = Str.split (Str.regexp "/") s in
+ let rec aux = function
+ | [] -> []
+ | he::".."::tl -> aux tl
+ | he::"."::tl -> aux (he::tl)
+ | he::tl -> he :: aux tl
+ in
+ (if Str.string_match (Str.regexp "^/") s 0 then "/" else "") ^
+ String.concat "/" (aux l)
+ ^ (if Str.string_match (Str.regexp "/$") s 0 then "/" else "")
+;;
+