提交 5d1843b9 编写于 作者: P Phillip Carter 提交者: Don Syme

Fix linux build (#5748)

* Attempt to fix linux build

* Clean up
上级 4529c8fd
......@@ -60,15 +60,15 @@ module Scripting =
let (++) a b = Path.Combine(a,b)
let getBasename a = Path.GetFileNameWithoutExtension a
let getFullPath a = Path.GetFullPath a
let getFilename a = Path.GetFileName a
let getDirectoryName a = Path.GetDirectoryName a
let getBasename (a: string) = Path.GetFileNameWithoutExtension(a)
let getFullPath a = Path.GetFullPath(a)
let getFilename (a: string) = Path.GetFileName(a)
let getDirectoryName (a: string) = Path.GetDirectoryName(a)
let copyFile source dir =
let dest =
if not (Directory.Exists dir) then Directory.CreateDirectory dir |>ignore
let result = Path.Combine(dir, Path.GetFileName source)
let result = Path.Combine(dir, getFilename source)
result
//printfn "Copy %s --> %s" source dest
File.Copy(source, dest, true)
......@@ -96,7 +96,7 @@ module Scripting =
let processExePath baseDir exe =
if Path.IsPathRooted(exe) then exe
else
match Path.GetDirectoryName(exe) with
match getDirectoryName exe with
| "" -> exe
| _ -> Path.Combine(baseDir,exe) |> Path.GetFullPath
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册