refactor(platform/xilinx): use tcl command to create links eliminating the need for administrator privileges on Windows

This commit is contained in:
Gatsby Van
2025-02-24 01:40:14 +08:00
parent af260c1610
commit 751071d670
+4 -5
View File
@@ -126,13 +126,12 @@ proc _handle_sources {app_name sources} {
switch $link_srcs {
"y" {
# Create symbolic link
# -- TCL cannont create symbolic link for files on Windows
# -- Fallback to use mklink command
if {$::tcl_platform(platform) eq "windows" && ![file isdirectory $eval_source]} {
# -- Symbolic link for file dose not support on NTFS
if {$::tcl_platform(platform) eq "windows" && [file isfile $eval_source]} {
if {[catch {
exec cmd /c mklink [file nativename $target_path] [file nativename $eval_source]
file link -hard $target_path $eval_source
} err]} {
error "Failed to create file symbolic link using mklink: $err"
error "Failed to create file hard link: $err"
}
} else {
if {[catch {