83369f3d9f
System.FilePath.parent did not return the correct parent path in the case of absolute file paths Example of previous behavior ``` (FilePath.mk "/foo").parent -> some (FilePath.mk "") (System.FilePath.mk "/").parent -> some (FilePath.mk "") ``` The new behavior is based on rust's std::path::Path::parent function (as previously described in comment in System.FilePath) Example of updated behavior ``` (System.FilePath.mk "/foo").parent -> some (FilePath.mk "/") (System.FilePath.mk "/").parent -> none ``` Behavior for relative file paths is unchanged Closes #3618
56 lines
1.7 KiB
Text
56 lines
1.7 KiB
Text
open System
|
|
open System.Platform
|
|
|
|
def norm (f : FilePath) : String :=
|
|
f.toString.map fun c => if c == '\\' then '/' else c
|
|
|
|
#eval FilePath.isAbsolute (if isWindows then "C:\\foo" else "/foo")
|
|
#eval FilePath.isAbsolute "a/b"
|
|
|
|
#eval norm <| ("a" : FilePath) / "b"
|
|
#eval norm <| ("a" : FilePath) / "b" / "c"
|
|
#eval norm <| ("a" : FilePath) / "/b/c"
|
|
|
|
#eval norm <$> FilePath.parent "a/b"
|
|
#eval norm <$> FilePath.parent "a/b/c"
|
|
#eval norm <$> FilePath.parent "a"
|
|
|
|
/-! Test FilePath.parent with absolute paths general cases -/
|
|
#eval norm <$> FilePath.parent "/a/b/c"
|
|
#eval norm <$> FilePath.parent "/a"
|
|
#eval norm <$> FilePath.parent "/aaa"
|
|
#eval norm <$> FilePath.parent "/"
|
|
|
|
/-!
|
|
Test FilePath.parent with absolute paths for OS specific cases
|
|
Some of these tests are not meaningful on Unix but are included for clarity
|
|
-/
|
|
def testParentAcrossOS (p : FilePath) (windowsParent : Option String) (unixParent : Option String) : Bool :=
|
|
if isWindows then
|
|
p.parent == windowsParent
|
|
else
|
|
p.parent == unixParent
|
|
|
|
|
|
#eval testParentAcrossOS "c:/a/b" "c:/a" "c:/a"
|
|
#eval testParentAcrossOS "c:/a" "c:/" "c:"
|
|
#eval testParentAcrossOS "c:/" none "c:"
|
|
#eval testParentAcrossOS "c:" none none
|
|
|
|
#eval FilePath.fileName "a/b"
|
|
|
|
#eval FilePath.fileStem "a/b"
|
|
#eval FilePath.fileStem "a/b.tar.gz"
|
|
#eval FilePath.fileStem "a/.gitignore"
|
|
|
|
#eval norm <| FilePath.withFileName "a/b" "c"
|
|
|
|
#eval FilePath.extension "a/b"
|
|
#eval FilePath.extension "a/b.txt"
|
|
#eval FilePath.extension "a/.gitignore"
|
|
|
|
#eval norm <| FilePath.withExtension "a/b.tar.gz" "xz"
|
|
#eval norm <| FilePath.withExtension "a/b.tar.gz" ""
|
|
#eval norm <| FilePath.withExtension "a/b" "tar.gz"
|
|
|
|
#eval norm <| FilePath.addExtension "a/b.tar.gz" "bak"
|