diff --git a/src/modules/punk/mix/#modpod-templates-999999.0a1.0/templates/project_layouts/vendor/punk/project-0.1/src/make.tcl b/src/modules/punk/mix/#modpod-templates-999999.0a1.0/templates/project_layouts/vendor/punk/project-0.1/src/make.tcl index fd4bf051..36c83222 100644 --- a/src/modules/punk/mix/#modpod-templates-999999.0a1.0/templates/project_layouts/vendor/punk/project-0.1/src/make.tcl +++ b/src/modules/punk/mix/#modpod-templates-999999.0a1.0/templates/project_layouts/vendor/punk/project-0.1/src/make.tcl @@ -278,6 +278,23 @@ namespace eval ::punkboot::lib { return "${plat}-${cpu}" } + proc platform_punk {} { + #canonical punkshell platform-dir name: platform_generic normalized. + #INLINE COPY of punk::platform::normalize (src/modules/punk/platform-*.tm; + #'help platforms' documents the canon) - the boot stage cannot package + #require, so keep this mapping in sync with that module: + #amd64->x86_64, aarch64->arm64, macos->macosx, macosx arm->arm64. + set parts [split [platform_generic] -] + set cpu [lindex $parts end] + set os [join [lrange $parts 0 end-1] -] + if {$os eq "macos"} {set os macosx} + switch -- $cpu { + amd64 {set cpu x86_64} + aarch64 {set cpu arm64} + arm {if {$os eq "macosx"} {set cpu arm64}} + } + return "${os}-${cpu}" + } } @@ -370,7 +387,7 @@ set startdir [pwd] # ------------------------------------------------------------------------------------- set bootsupport_module_paths [list] set bootsupport_library_paths [list] -set this_platform_generic [punkboot::lib::platform_generic] +set this_platform_generic [punkboot::lib::platform_punk] ;#normalized punkshell platform-dir name (punk::platform canon) #we always create these lists in order of desired precedence. # - this is the same order when adding to auto_path - but will need to be reversed when using tcl:tm::add if {[file exists [file join $::punkboot::scriptfolder bootsupport]]} { diff --git a/src/project_layouts/vendor/punk/basic/src/make.tcl b/src/project_layouts/vendor/punk/basic/src/make.tcl index fd4bf051..36c83222 100644 --- a/src/project_layouts/vendor/punk/basic/src/make.tcl +++ b/src/project_layouts/vendor/punk/basic/src/make.tcl @@ -278,6 +278,23 @@ namespace eval ::punkboot::lib { return "${plat}-${cpu}" } + proc platform_punk {} { + #canonical punkshell platform-dir name: platform_generic normalized. + #INLINE COPY of punk::platform::normalize (src/modules/punk/platform-*.tm; + #'help platforms' documents the canon) - the boot stage cannot package + #require, so keep this mapping in sync with that module: + #amd64->x86_64, aarch64->arm64, macos->macosx, macosx arm->arm64. + set parts [split [platform_generic] -] + set cpu [lindex $parts end] + set os [join [lrange $parts 0 end-1] -] + if {$os eq "macos"} {set os macosx} + switch -- $cpu { + amd64 {set cpu x86_64} + aarch64 {set cpu arm64} + arm {if {$os eq "macosx"} {set cpu arm64}} + } + return "${os}-${cpu}" + } } @@ -370,7 +387,7 @@ set startdir [pwd] # ------------------------------------------------------------------------------------- set bootsupport_module_paths [list] set bootsupport_library_paths [list] -set this_platform_generic [punkboot::lib::platform_generic] +set this_platform_generic [punkboot::lib::platform_punk] ;#normalized punkshell platform-dir name (punk::platform canon) #we always create these lists in order of desired precedence. # - this is the same order when adding to auto_path - but will need to be reversed when using tcl:tm::add if {[file exists [file join $::punkboot::scriptfolder bootsupport]]} { diff --git a/src/project_layouts/vendor/punk/project-0.1/src/make.tcl b/src/project_layouts/vendor/punk/project-0.1/src/make.tcl index fd4bf051..36c83222 100644 --- a/src/project_layouts/vendor/punk/project-0.1/src/make.tcl +++ b/src/project_layouts/vendor/punk/project-0.1/src/make.tcl @@ -278,6 +278,23 @@ namespace eval ::punkboot::lib { return "${plat}-${cpu}" } + proc platform_punk {} { + #canonical punkshell platform-dir name: platform_generic normalized. + #INLINE COPY of punk::platform::normalize (src/modules/punk/platform-*.tm; + #'help platforms' documents the canon) - the boot stage cannot package + #require, so keep this mapping in sync with that module: + #amd64->x86_64, aarch64->arm64, macos->macosx, macosx arm->arm64. + set parts [split [platform_generic] -] + set cpu [lindex $parts end] + set os [join [lrange $parts 0 end-1] -] + if {$os eq "macos"} {set os macosx} + switch -- $cpu { + amd64 {set cpu x86_64} + aarch64 {set cpu arm64} + arm {if {$os eq "macosx"} {set cpu arm64}} + } + return "${os}-${cpu}" + } } @@ -370,7 +387,7 @@ set startdir [pwd] # ------------------------------------------------------------------------------------- set bootsupport_module_paths [list] set bootsupport_library_paths [list] -set this_platform_generic [punkboot::lib::platform_generic] +set this_platform_generic [punkboot::lib::platform_punk] ;#normalized punkshell platform-dir name (punk::platform canon) #we always create these lists in order of desired precedence. # - this is the same order when adding to auto_path - but will need to be reversed when using tcl:tm::add if {[file exists [file join $::punkboot::scriptfolder bootsupport]]} {