fix(platform/xilinx): fallback to mklink for file symlink creation on Windows

2024-10-29 14:26:26 +08:00
parent 20c8751540
commit 47bb9119dd
1 changed files with 15 additions and 1 deletions
@@ -125,7 +125,21 @@ proc _handle_sources {app_name sources} {
            switch $link_srcs {
                "y" {
                    # Create symbolic link
-                    file link -symbolic $target_path $eval_source
+                    # -- 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
+                        } err]} {
+                            error "Failed to create symbolic link: $err"
+                        }
+                    }
                    _info "Created symbolic link: $target_path -> $eval_source"
                }
                "n" {