fix(platform/xilinx): fallback to mklink for file symlink creation on Windows
This commit is contained in:
@@ -125,7 +125,21 @@ proc _handle_sources {app_name sources} {
|
|||||||
switch $link_srcs {
|
switch $link_srcs {
|
||||||
"y" {
|
"y" {
|
||||||
# Create symbolic link
|
# 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]} {
|
||||||
|
if {[catch {
|
||||||
|
exec cmd /c mklink [file nativename $target_path] [file nativename $eval_source]
|
||||||
|
} err]} {
|
||||||
|
error "Failed to create file symbolic link using mklink: $err"
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
if {[catch {
|
||||||
file link -symbolic $target_path $eval_source
|
file link -symbolic $target_path $eval_source
|
||||||
|
} err]} {
|
||||||
|
error "Failed to create symbolic link: $err"
|
||||||
|
}
|
||||||
|
}
|
||||||
_info "Created symbolic link: $target_path -> $eval_source"
|
_info "Created symbolic link: $target_path -> $eval_source"
|
||||||
}
|
}
|
||||||
"n" {
|
"n" {
|
||||||
|
|||||||
Reference in New Issue
Block a user