jn
/
punkshell
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

fix runtime path generation (file tail)

master
Julian Noble 1 week ago
parent
17ad552c95
commit
6d0593ab47
4 changed files with 12 additions and 12 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 6
      src/make.tcl
  2. 6
      src/project_layouts/custom/_project/punk.basic/src/make.tcl
  3. 6
      src/project_layouts/custom/_project/punk.project-0.1/src/make.tcl
  4. 6
      src/project_layouts/custom/_project/punk.shell-0.1/src/make.tcl

6
src/make.tcl
Unescape View File

@ -2452,9 +2452,9 @@ if {[file dirname [info nameofexecutable]] eq $rtfolder} {
# - when the current runtime is using a runtime in the rtfolder that is a tclkit, it is mounted at the same path as the physical file and so appears to Tcl as if it's a directory.
# - use external filesystem tools to make a copy of the file
if {$::tcl_platform(platform) eq "windows"} {
exec cmd /c copy [info nameofexecutable] $rtfolder/[file rootname [info nameofexecutable]]_BUILDCOPY.exe
exec cmd /c copy [info nameofexecutable] $rtfolder/[file rootname [file tail [info nameofexecutable]]]_BUILDCOPY.exe
} else {
exec cp [info nameofexecutable] $rtfolder/[file rootname [info nameofexecutable]]_BUILDCOPY
exec cp [info nameofexecutable] $rtfolder/[file tail [info nameofexecutable]]_BUILDCOPY
}
}
@ -2632,7 +2632,7 @@ foreach runtime [dict keys $runtime_vfs_map] {
#assume it's a mounted tclkit (because tcl kits mount in same place as their underlying path and mask the executable)
#use the BUILDCOPY created above - REVIEW
if {$::tcl_platform(platform) eq "windows"} {
set useruntime [file rootname [file tail $runtime]]_BUILDCOPY.exe
set useruntime [file rootname $runtime]_BUILDCOPY.exe
} else {
set useruntime ${runtime}_BUILDCOPY
}

6
src/project_layouts/custom/_project/punk.basic/src/make.tcl
Unescape View File

@ -2452,9 +2452,9 @@ if {[file dirname [info nameofexecutable]] eq $rtfolder} {
# - when the current runtime is using a runtime in the rtfolder that is a tclkit, it is mounted at the same path as the physical file and so appears to Tcl as if it's a directory.
# - use external filesystem tools to make a copy of the file
if {$::tcl_platform(platform) eq "windows"} {
exec cmd /c copy [info nameofexecutable] $rtfolder/[file rootname [info nameofexecutable]]_BUILDCOPY.exe
exec cmd /c copy [info nameofexecutable] $rtfolder/[file rootname [file tail [info nameofexecutable]]]_BUILDCOPY.exe
} else {
exec cp [info nameofexecutable] $rtfolder/[file rootname [info nameofexecutable]]_BUILDCOPY
exec cp [info nameofexecutable] $rtfolder/[file tail [info nameofexecutable]]_BUILDCOPY
}
}
@ -2632,7 +2632,7 @@ foreach runtime [dict keys $runtime_vfs_map] {
#assume it's a mounted tclkit (because tcl kits mount in same place as their underlying path and mask the executable)
#use the BUILDCOPY created above - REVIEW
if {$::tcl_platform(platform) eq "windows"} {
set useruntime [file rootname [file tail $runtime]]_BUILDCOPY.exe
set useruntime [file rootname $runtime]_BUILDCOPY.exe
} else {
set useruntime ${runtime}_BUILDCOPY
}

6
src/project_layouts/custom/_project/punk.project-0.1/src/make.tcl
Unescape View File

@ -2452,9 +2452,9 @@ if {[file dirname [info nameofexecutable]] eq $rtfolder} {
# - when the current runtime is using a runtime in the rtfolder that is a tclkit, it is mounted at the same path as the physical file and so appears to Tcl as if it's a directory.
# - use external filesystem tools to make a copy of the file
if {$::tcl_platform(platform) eq "windows"} {
exec cmd /c copy [info nameofexecutable] $rtfolder/[file rootname [info nameofexecutable]]_BUILDCOPY.exe
exec cmd /c copy [info nameofexecutable] $rtfolder/[file rootname [file tail [info nameofexecutable]]]_BUILDCOPY.exe
} else {
exec cp [info nameofexecutable] $rtfolder/[file rootname [info nameofexecutable]]_BUILDCOPY
exec cp [info nameofexecutable] $rtfolder/[file tail [info nameofexecutable]]_BUILDCOPY
}
}
@ -2632,7 +2632,7 @@ foreach runtime [dict keys $runtime_vfs_map] {
#assume it's a mounted tclkit (because tcl kits mount in same place as their underlying path and mask the executable)
#use the BUILDCOPY created above - REVIEW
if {$::tcl_platform(platform) eq "windows"} {
set useruntime [file rootname [file tail $runtime]]_BUILDCOPY.exe
set useruntime [file rootname $runtime]_BUILDCOPY.exe
} else {
set useruntime ${runtime}_BUILDCOPY
}

6
src/project_layouts/custom/_project/punk.shell-0.1/src/make.tcl
Unescape View File

@ -2452,9 +2452,9 @@ if {[file dirname [info nameofexecutable]] eq $rtfolder} {
# - when the current runtime is using a runtime in the rtfolder that is a tclkit, it is mounted at the same path as the physical file and so appears to Tcl as if it's a directory.
# - use external filesystem tools to make a copy of the file
if {$::tcl_platform(platform) eq "windows"} {
exec cmd /c copy [info nameofexecutable] $rtfolder/[file rootname [info nameofexecutable]]_BUILDCOPY.exe
exec cmd /c copy [info nameofexecutable] $rtfolder/[file rootname [file tail [info nameofexecutable]]]_BUILDCOPY.exe
} else {
exec cp [info nameofexecutable] $rtfolder/[file rootname [info nameofexecutable]]_BUILDCOPY
exec cp [info nameofexecutable] $rtfolder/[file tail [info nameofexecutable]]_BUILDCOPY
}
}
@ -2632,7 +2632,7 @@ foreach runtime [dict keys $runtime_vfs_map] {
#assume it's a mounted tclkit (because tcl kits mount in same place as their underlying path and mask the executable)
#use the BUILDCOPY created above - REVIEW
if {$::tcl_platform(platform) eq "windows"} {
set useruntime [file rootname [file tail $runtime]]_BUILDCOPY.exe
set useruntime [file rootname $runtime]_BUILDCOPY.exe
} else {
set useruntime ${runtime}_BUILDCOPY
}

Write Preview
Loading…
Cancel
Save