From 2610b80cbaded77e29a7e784c4697be2e3024bac Mon Sep 17 00:00:00 2001 From: Julian Noble Date: Sun, 15 Mar 2026 19:19:51 +1100 Subject: [PATCH] fix breakage in winlnk --- src/bootsupport/modules/punk/winlnk-0.1.1.tm | 5 ++++- src/modules/punk/winlnk-999999.0a1.0.tm | 5 ++++- .../src/bootsupport/modules/punk/winlnk-0.1.1.tm | 5 ++++- .../src/bootsupport/modules/punk/winlnk-0.1.1.tm | 5 ++++- src/vfs/_vfscommon.vfs/modules/punk/winlnk-0.1.1.tm | 5 ++++- 5 files changed, 20 insertions(+), 5 deletions(-) diff --git a/src/bootsupport/modules/punk/winlnk-0.1.1.tm b/src/bootsupport/modules/punk/winlnk-0.1.1.tm index f283348f..398adfdb 100644 --- a/src/bootsupport/modules/punk/winlnk-0.1.1.tm +++ b/src/bootsupport/modules/punk/winlnk-0.1.1.tm @@ -615,7 +615,10 @@ tcl::namespace::eval punk::winlnk { return [dict create localbasepath $localbasepath commonpathsuffix $commonpathsuffix note ] } - + proc Contents_Get_DataStrings {contents start} { + set data_strings [string range $contents $start end] + return $data_strings + } proc Contents_Get_Info {contents} { diff --git a/src/modules/punk/winlnk-999999.0a1.0.tm b/src/modules/punk/winlnk-999999.0a1.0.tm index 3387cfe3..c219fc96 100644 --- a/src/modules/punk/winlnk-999999.0a1.0.tm +++ b/src/modules/punk/winlnk-999999.0a1.0.tm @@ -615,7 +615,10 @@ tcl::namespace::eval punk::winlnk { return [dict create localbasepath $localbasepath commonpathsuffix $commonpathsuffix note ] } - + proc Contents_Get_DataStrings {contents start} { + set data_strings [string range $contents $start end] + return $data_strings + } proc Contents_Get_Info {contents} { diff --git a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/winlnk-0.1.1.tm b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/winlnk-0.1.1.tm index f283348f..398adfdb 100644 --- a/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/winlnk-0.1.1.tm +++ b/src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/winlnk-0.1.1.tm @@ -615,7 +615,10 @@ tcl::namespace::eval punk::winlnk { return [dict create localbasepath $localbasepath commonpathsuffix $commonpathsuffix note ] } - + proc Contents_Get_DataStrings {contents start} { + set data_strings [string range $contents $start end] + return $data_strings + } proc Contents_Get_Info {contents} { diff --git a/src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/winlnk-0.1.1.tm b/src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/winlnk-0.1.1.tm index f283348f..398adfdb 100644 --- a/src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/winlnk-0.1.1.tm +++ b/src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/winlnk-0.1.1.tm @@ -615,7 +615,10 @@ tcl::namespace::eval punk::winlnk { return [dict create localbasepath $localbasepath commonpathsuffix $commonpathsuffix note ] } - + proc Contents_Get_DataStrings {contents start} { + set data_strings [string range $contents $start end] + return $data_strings + } proc Contents_Get_Info {contents} { diff --git a/src/vfs/_vfscommon.vfs/modules/punk/winlnk-0.1.1.tm b/src/vfs/_vfscommon.vfs/modules/punk/winlnk-0.1.1.tm index f283348f..398adfdb 100644 --- a/src/vfs/_vfscommon.vfs/modules/punk/winlnk-0.1.1.tm +++ b/src/vfs/_vfscommon.vfs/modules/punk/winlnk-0.1.1.tm @@ -615,7 +615,10 @@ tcl::namespace::eval punk::winlnk { return [dict create localbasepath $localbasepath commonpathsuffix $commonpathsuffix note ] } - + proc Contents_Get_DataStrings {contents start} { + set data_strings [string range $contents $start end] + return $data_strings + } proc Contents_Get_Info {contents} {